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Preface 



PURPOSE OF THE MANUAL 

The RPG II reference manual aids the programmer in 
writing RPG II programs for the IBM System/34. The 
manual describes the program documentation the 
programmer needs to write, test, and maintain RPG II 
programs. Using this manual, the programmer can: 



Chapter 10 provides a detailed explanation of the 
operation codes used on the calculation 
specifications. 

Chapter 1 1 describes how records are selected for 
processing in multifile processing and how match 
field values are assigned. 



• Use the detailed reference material to code, compile, 
and debug RPG II application programs 

• Use the detailed reference material to implement 
RPG II functions such as work station support, data 
structuring, and display format generation 

• Use the information as a guide to the RPG II program 
cycle 

• Achieve more efficient use of disk and main storage 
and more efficient program execution 



Chapter 12 describes the special considerations for 
using the CONSOLE device in an RPG II program. 
When the CONSOLE device is specified in an RPG II 
program, the operator can enter data from a display 
station directly into an executing RPG II program. 

Chapter 13 describes the special considerations for 
using a WORKSTN (display station) device in an 
RPG II program. When a WORKSTN device is 
specified, an RPG II program can receive input data 
from, and write output data to, one or more display 
stations. Sample programs that use the WORKSTN 
device are included in Chapter 13. 



MAJOR TOPICS 

The following chapter descriptions summarize the major 
topics discussed in this manual: 

• Chapter 1 describes the RPG II program cycle, briefly 
describes the indicators that can be used to change 
the program cycle, and provides an overview of the 
RPG II specifications. 

• Chapters 2 through 9 provide a column-by-column 
description of the RPG II specifications in the order 
they are used: 

- Control 

- File description 

- Extension 

- Line counter 

- Telecommunications 

- Input 

- Calculation 

- Output 



Chapter 14 describes how to create, define, and load 
tables and arrays for an RPG II program. 

Chapter 15 describes the RPG II auto report function, 
which can reduce the coding required for similar 
programs and which can produce formatted reports. 

Chapter 16 presents programming considerations that 
can help the programmer save storage and improve 
performance. 

Chapter 17 presents a detailed description of the 
RPG II program logic cycle. 

Chapter 18 describes the command statements 
required to compile and execute an RPG II program. 

Chapter 19 contains sample RPG II programs. These 
include the specifications and the printed output for 
the programs. Chapter 13 contains sample programs 
for the WORKSTN device. 



Each column description includes a list of possible 
entries, a general discussion of column use, 
considerations for all possible entries, a specific 
discussion of each entry, and, where pertinent, charts 
and examples. 



Chapter 20 describes the support provided for the 
processing of ideographic data. 



• Appendix A includes summary charts for the 
specification sheets, for the operation codes, for the 
indicators, and for the display screen format S and D 
specifications. 

• Appendix B contains the RPG and auto report printed 
messages that are generated by the compiler. 

• The glossary provides a list of RPG II terms and their 
definitions. 



SYSTEM REQUIREMENTS 

See the IBM System/34 Planning Guide, GC21-5154, for 
the system requirements for the System/34 RPG II 
Compiler. 

The System /34 RPG II compiler provides ideographic 
support when used with the ideographic version of the 
SSP and the ideographic hardware devices that version 
supports. 



RELATED PUBLICATIONS 

. IBM System/34 Introduction, GC21-5153 

• IBM System/34 Planning Guide, GC21-5154 

• IBM System/34 System Support Reference Manual, 
SC21-5155 

• IBM System/34 Concepts and Design Guide, 
SC21-7742 

• IBM System/34 Source Entry Utility Reference 
Manual, SC21 -7657 

• IBM System/34 Data Communications Reference 
Manual, SC21 -7703 t^< 

■-,<. IBM Introduction to RPG II, GC21-7514 

• IBM System/34 Installation and Modification Reference 
Manual: Program Products and Physical Setup, 
SC21-7689 



• IBM System/34 Displayed Messages Guide, 
SC21-5159 

• IBM System/34 Screen Design Aid Programmer's 
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. IBM System/34 Master Index, SC21-7739 

• IBM System/34 Interactive Communications Feature 
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The System/34 Introduction includes a Publications 
Summary that contains a brief description of the 
contents of each of the System /34 system publications. 
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Chapter 1. Introduction 



RPG II FUNCTIONS 

RPG II consists of a symbolic programming language 
and a compiler program. The language is commercially 
oriented and specifically designed for writing application 
programs to produce reports that meet common 
business data processing requirements. The compiler 
diagnoses the source program, translates the source 
program into an executable object program, and supplies 
the logic that is the framework for the RPG II program. 



STEPS IN USING RPG II 

To use RPG II to prepare a report, you must follow the 
general steps shown in Figure 1-1. The numbers in the 
following text refer to the numbers on the figure: 

1 You must analyze the report requirements to 
determine the format of the input files and the 
layout of the finished report. For example, 
determine what fields in the input records are to 
be used, what calculations are to take place, 
where the data comes from, where the data is to 
be located in the output records, and how many 
and what kind of totals must be accumulated. 

2 You must then provide the RPG II compiler with 
information about these requirements by coding 
the RPG II specification sheets. The specification 
sheets are designed so that one specification line 
represents one statement in the source program. 
The following specification sheets are used to 
code an RPG II program. For a brief description of 
the information contained on each specification 
sheet, see Overview of Specification Sheets in this 
chapter. 

a. Control and file description specifications 

b. Extension and line counter specifications 

c. Telecommunications specifications 

d. Input specifications 

e. Calculation specifications 

f. Output specifications 



After the RPG II program has been coded on the 
specification sheets, the source program must be 
placed in a library on disk in the order shown in 
Figure 1-2. The source program can be placed on 
disk in one of the following ways: 

a. Use the source entry utility (SEU) program of 
System /34 Utilities program product to enter 
the source program from a display station. See 
the SEU Reference Manual for information about 
the source entry utility. 

b. Use the reader-to-library copy function of the 
utility program $MAINT and enter the source 
program from a display station. See the System 
Support Reference Manual for more information. 

c. If the source program is on diskette in basic 
data exchange format, use the TOLIBR 
command to move the source program to a 
library on disk. See the System Support 
Reference Manual for more information. 

After the source program is entered into the 
system, the operator can run the RPG II compiler 
by entering the required procedure or command 
statements from the display station or by placing 
the job on the input job queue (see the System 
Support Reference Manual). The compiler 
processes the source program under the control of 
the system support program product. 

If the compiler does not find any terminal errors in 
the program, the object program is produced and 
stored on disk. The object program contains all 
the machine instructions required to prepare the 
report. 

The operator can now execute the object program 
by entering the required procedure or command 
statements from the display station or by placing 
the job on the input job queue (see the System 
Support Reference Manual). (See Chapter 18 for 
examples of the command statements.) The object 
program is read into the system and executed, and 
the report is produced. 
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(7) The report outline is studied by 
the programmer. 



(?) The RPG 1 1 source program is 
written on specification sheets. 



Main Storage 




Compiler Program on Disk 



Compiler Program 



Source Program 



(7) The compiler program, read from 
disk into storage, translates the 
source program into an object 
program. 



Object Program on Disk 



(5) The object program is stored on 
disk. When the program is called 
for, it is read into main storage. 
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(?) The source program is written on 
disk. 
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The object program performs the 
processing of the data specified by 
the RPG II program and produces 
the desired report. 



Figure 1-1. Preparation of a Report Using RPG II 
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Compile-Time Table 
or Array Data 



% 



Alternate Collating 
Sequence Specifications 



% 



File Translation 
Specifications 



% 



Output Specifications 



Calculation Specifications 



Input Specifications 
(required) 1 



Telecommunications 
Specifications 



Extension and Line 
Counter Specifications 



File Description Specifi- 
cations (required) 



Control Specification 



fei= blank 



1 If the KEY operation is specified as the only 
input, input specifications are not required. 

Figure 1-2. Required Order of Specifications for the RPG II Source Program 
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OVERVIEW OF SPECIFICATION SHEETS 



Extension Specifications 



Use the RPG II specification sheets to write your RPG II 
program. The specification sheets are designed in 
columns so that the information is presented in the 
format required by the RPG II compiler. Each 
specification line represents one statement in the source 
program. Each specification sheet and the information it 
provides to the compiler are briefly described in the 
following text. 



Control Specifications 

The control specifications provide the compiler with 
information about the program and describe the system 
you are using. The information includes: 

• Storage size needed to execute the program 

• Date format for the program 

• Whether special RPG II functions such as alternate 
collating sequence or file translation are to be used 

• Whether disk files will share a single input/output 
area 

• Number of formats in the display screen format load 
member for a WORKSTN file 

For a detailed description of the control specifications, 
see Chapter 2. 



File Description Specifications 

The file description specifications describe all files (for 
example, input files, output files, and combined files) 
that are used by the object program. The information 
for each file includes: 

• Name of the file 

• How the file is used 

• Size of records in the file 

• Input or output device used for the file 

• Whether the file is conditioned by an external 
indicator 

For a detailed description of the file description 
specifications, see Chapter 3. 



The extension specifications describe all record address 
files, table files, and array files used in the program. 
The information includes: 

• Name of the file 

• Number of entries in a table or array input record 

• Number of entries in a table or array 

• Length of the table or array entry 

For a detailed description of the extension 
specifications, see Chapter 4. 



Line Counter Specifications 

Line counter specifications indicate at what line overflow 
occurs and the length of the form used for each printer 
file in the program. Information for each printer file 
includes: 

• Number of lines per page (length of form) 

• Overflow line 

For a detailed description of the line counter 
specifications, see Chapter 5. 



Telecommunications Specifications 

The telecommunications specifications describe each 
BSCA file used in the program. The information 
includes: 

Name of the file 

Description of the network used 

Type of station 

Type of control 

Type of code used 

Station identification 

For a detailed description of the telecommunications 
specifications, see Chapter 6. 
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Input Specifications 



Output Specifications 



The input specifications describe the records and fields 
in the input files used by the program. The information 
for each record includes: 

• Name of the file 

• Sequence of record types 

• Indications for record identifying indicators, data 
structures, look-ahead fields, record identification 
codes, type of numeric fields, match fields, control 
level fields, field record relation, field indicators 

• Location of fields in the record 

• Name of field 

For a detailed description of the input specifications, see 
Chapter 7. 



Calculation Specifications 

Calculation specifications describe the calculations to be 
performed on the data and the order in which they are 
to be performed. Calculation specifications can also be 
used to control certain input and output operations. The 
information includes: 

• Control level and conditioning indicators for the 
operation specified 

• The fields or constants to be used in the operation 

• The operation to be performed 

• Resulting indicators that are set after the operation is 
performed 

For a detailed description of the calculation 
specifications, see Chapter 8. 



The output specifications describe the records and fields 
in the output files and the conditions under which 
output operations are performed. The information 
includes: 

• Name of the file 

• Type of record to be written 

• Spacing and skipping instructions for printer and CRT 
files 

• Output indicators that specify when the record is to 
be written 

• Name of the field and location in the output record 

• Editing specifications 

• Constants 

• Format name for the WORKSTN file 

For a detailed description of the output specifications, 
see Chapter 9. 

HOW RPG II WORKS 

Each object program that the RPG II compiler generates 
goes through the same general cycle of operations. The 
phrase program cycle refers to the operations that are 
performed for each record read. 



RPG II Program Cycle 

The program cycle involves three basic logic steps: 

• Reading information (input) 

• Performing calculations (processing) 

• Recording results (output) 

Within each program cycle, these basic logic steps can 
be divided into numerous substeps in which you as the 
programmer can assign indicators to control when 
calculation and output operations occur. 
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According to RPG II program logic, calculation and Step 1. 

output operations are performed at two different times 

in a cycle: total time and detail time (see Figure 1-3). 

First, the program performs total calculation operations 

(those conditioned by a control level indicator in 

columns 7 and 8 of the calculation specifications) and Step 2. 

total output operations (those specified by a T in column 

15 of the output specifications). Second, the program 

performs all detail calculation operations (those not Step 3. 

conditioned by a control level indicator in columns 7 and 

8 of the calculation specifications) and all detail output 

operations (those specified by a D or H in column 15 of Step 4. 

the output specifications). 

Total calculation and total output operations are 

generally performed on data accumulated for a group of 

related records that form a control group. A control Step 5. 

group is a set of records all having the same information 

in a control field. Each time a record is read, the 

program checks the information in the control field to 

determine whether it differs from the control field 

information on the previous record. When the Step 6. 

information differs from the previous record's control 

field, a control break occurs, indicating that all records Step 7. 

from a particular group have been read and a new group 

is starting. When all records from a control group have 

been read, the program performs total calculation and 

output operations using the information accumulated 

from all records in that group. Information contained in 

the record that starts the new control group is not used Step 8. 

in the total operations. 

Detail calculation and detail output operations are 

generally performed for each record read if all 

conditioning indicators are satisfied. If either of the Step 9. 

following conditions is met, detail calculation and output 

operations are performed: 



If the conditioning indicators are satisfied, 
RPG performs the heading or detail output 
(those lines having an H or D in column 15 
of the output specifications). 

RPG turns off all control level and record 
identifying indicators. 

RPG reads a record and turns on the 
appropriate record identifying indicator. 

RPG determines whether a control break 
occurred. (A control break occurs when the 
control field of the record just read differs 
from the control field of the previous record.) 

If a control break has occurred, RPG turns 
on the proper control level indicator and all 
lower control level indicators except LO, 
which is always on. 

If this is the first cycle, RPG goes to step 9. 

RPG performs total calculation operations 
(those conditioned by control level indicators 
in columns 7 and 8 of the calculation 
specifications) if the appropriate control level 
indicators are on. 

RPG performs total output operations (those 
lines having a T in column 15 of the output 
specifications) according to output 
specifications. 

RPG determines whether the LR indicator is 
on. If it is, all records have been processed, 
and the program ends. 



• All total calculation and total output operations are 
completed, but the last record is not processed. 

• No total operations are to be done (the information in 
the control field has not changed). 

Figure 1-4 shows the specific steps in the general flow 
of the RPG II program cycle. A program cycle begins 
with step 1 and continues through step 11, then begins 
again with step 1. Steps 7 and 8 are known as total 
time, and steps 1 and 1 1 are known as detail time. The 
following statements describe the steps shown in 
Figures 1-3 and 1-4. 



Step 10. RPG makes data from the record read at the 
beginning of the cycle (step 3) available for 
use in detail calculation and output 
operations. 

Step 11. RPG performs all detail calculation operations 
(those not conditioned by control level 
indicators in columns 7 and 8 of the 
calculation specifications) on the data from 
the record read at the beginning of the cycle. 
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Start 



Qj Perform detai 
calculations 



Perform heading 
or detail output 
operations. 



10 Move data from 
record read at 
beginning of 
cycle into 
processing areas 



If last record 
indicator is on, 
end of job has 
been reached 



Perform total 
output operations 




Turn off control 
level and record 
identifying 
indicators. 



Read a record and 
turn on appropriate 
record identifying 
indicator. If last 
record was read 
on previous cycle, 
turn on LR and L1 
through L9 
indicators and 
go to step 7. 



If no change in 
control field, 
go to step 6. 



Turn on control 
level indicators. 



go to step 9 



Figure 1-3. Steps in RPG II Logic, Showing Total Time and Detail Time 
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Figure 1-4. RPG II Program Logic Cycle 
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The first and last cycles of a program differ somewhat 
from the other cycles. Before the first record is read in 
the first cycle, the program prints lines conditioned by 
the 1 P (first page) indicator and also performs any 
heading or detail output operations having no 
conditioning indicators or all negative conditioning 
indicators. Heading lines printed before the first record 
is read might consist of constant or page heading 
information or fields for reserved words, such as PAGE 
and UDATE. In addition, the program bypasses total 
calculations and total output steps. 

During the last program cycle, when no more records 
are available, the LP. (last record) indicator turns on, 
automatically causing all control level indicators to turn 
on. The program performs the total calculations and 
total output, and the program ends. 

For a detailed discussion of RPG II program logic, 
including the first and last cycles of a program, see 
Chapter 17, Detailed RPG II Program Logic. 



Indicators 

RPG II logic is built around indicators. Because the logic 
is set up to test the status of various indicators at 
specific times, the status (on or off) of indicators can be 
used to affect the sequence of a program's operations. 

Usually indicators are set on or off by conditions in the 
program itself. However, you can also set certain 
indicators with the SETON, SETOF, and SET operation 
codes (see Chapter 10, Operation Codes). At the start of 
each program, all indicators are off except the 1 P (first 
page) indicator, LO indicator, and any external (U1 
through U8) indicators that have been set on. At the 
beginning of each program cycle, only record identifying 
indicators (01 through 99, L1 through L9, and LR) and 
control level indicators (LI through L9) are turned off; all 
other indicators remain unchanged. For WORKSTN files, 
command key indicators are turned off just before data 
from the record just read is made available for 
processing; all command key indicators are turned off 
except the one corresponding to the command key 
used. 

Figure 1-5 shows the valid RPG II indicators and the 
specifications on which they can be used to condition 
operations. The following text briefly describes each 
type of indicator and where it can be specified. For a 
complete description of an indicator and how it can be 
used, see the appropriate column description in the 
applicable chapter of this manual. 



01-99 (Field, Record Identifying, Resulting, and 
Conditioning Indicators) 

You can assign any numbers from 01 to 99 to indicate: 

• The type of record read. See Columns 19-20 (Record 
Identifying Indicator,**, DS) in Chapter 7, Input 
Specifications. 

• The status (plus, minus, zero/blank) of an input field. 
See Columns 65-70 (Field Indicators) in Chapter 7, 
Input Specifications. 

• The results of a calculation operation. See Columns 
54-59 (Resulting Indicators) in Chapter 8, Calculation 
Specifications. 

Any indicators that you assign in these columns or that 
you set on or off with a SETON or SETOF operation 
code can also: 

• Establish field record relations. See Columns 63-64 
(Field Record Relation) in Chapter 7, Input 
Specifications. 

• Condition calculation operations. See Columns 9-17 
(Indicators) in Chapter 8, Calculation Specifications. 

• Condition output operations. See Columns 23-31 
(Output Indicators) in Chapter 9, Output Specifications. 

Indicators reflect only one condition at a time. When 
one indicator is used to reflect two or more conditions, 
it is always set to reflect the condition of the last 
operation performed. 

If any indicator from 01 to 99 is set on or off by the 
operation code SETON or SETOF, it remains on or off 
until an instruction in a specification line containing that 
same indicator is performed. The indicator is then set to 
reflect the condition that results from the operation 
performed. 



H1-H9 (Halt) Indicators 

Use any halt indicators, H1 through H9, to: 

• Stop the program when an unacceptable condition 
occurs. 

• Condition calculation or output operations that are not 
to be performed when an unacceptable condition 
occurs. This conditioning is necessary; otherwise, all 
calculation and detail output operations are still 
performed (before processing stops) for the record 
that caused the unacceptable condition. 

• Establish field record relations. See Columns 63-64 
(Field Record Relation) in Chapter 7, Input 
Specifications. 
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Note: X denotes the indicators that can be used. 



Not valid on look-ahead fields. 

When field named is not a match field or a control field. 
Only for detail or heading lines. 

Cannot condition an exception line, but can condition fields within the exception record. 
Not valid for table input files. 
6 Valid for SET, KEY, and SETOF operations only. 

Figure 1-5. Valid Indicators 
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IP (First Page) Indicator 



LO Indicator 



Use the 1 P indicator to condition lines that are to be 
printed on only the first page. These lines are usually 
heading lines. Data printed for the heading lines is 
usually specified as constants in columns 45 through 70 
of the output specifications. 

All lines conditioned by the 1 P indicator are printed 
before the first record from the input file is processed. 
Therefore, do not use the 1 P indicator to condition 
output fields that require data from input records 
because the output will be meaningless. The 1P 
indicator cannot be used with a WORKSTN file or to 
condition calculation operations. 

The 1 P indicator is on at the beginning of the program 
and turns off after all lines conditioned by it are printed. 



MR (Matching Record) Indicator 

Use the MR indicator to condition calculation and output 
operations that are to be performed only when records 
match. The MR indicator turns on when a primary file 
record matches any secondary file record on the basis 
of the match field indicated by M1 through M9. The 
MR indicator is always set to reflect the match or 
nonmatch condition before any detail calculation 
operations are performed. If all primary file records 
match all secondary file records, the MR indicator is 
always on. (For a discussion of matching records, see 
Chapter 11, Multifile Processing.) 



OA-OG, OV (Overflow) Indicators 

Use overflow indicators for printer files primarily to 
condition the printing of heading lines. To use an 
overflow indicator in columns 23 through 31 of the 
output specifications, you must assign an overflow 
indicator to each printer file on the file description 
specifications in columns 33 and 34. This same 
indicator must then be used to condition all lines that 
are to be written to the associated printer only when 
overflow occurs. 



You do not need to assign the LO indicator because it is 
always on. Therefore, it is normally used only in 
columns 7 and 8 of the calculation specifications to 
specify that the calculation be done at total time. The 
LO indicator cannot be set off with the SETOF operation 
code. 



L1-L9 (Control Level) Indicators 

Control level (L1 through L9) indicators signal when a 
change in a control field has occurred. Therefore, you 
can use them to condition operations that are to be 
performed only when all records with the same 
information in the control field have been read. You can 
also use them to condition total printing (last record of a 
control group) or to condition detail printing (first record 
in a control group). Control level indicators always turn 
on after the first record of a control group is read. 
Control level indicators can be used on input (columns 
19 and 20, 59 and 60, and 63 and 64), calculation 
(columns 7 and 8, 9 through 17, and 54 through 59), 
and output (columns 23 through 31) specifications. 



LR (Last Record) Indicator 

Use the LR indicator to condition all operations that are 
to be done only at the end of the job. For all primary or 
secondary files (except KEYBORD), the LR indicator 
normally turns on when the last record is detected. No 
record identifying indicators will be on while last record 
processing is performed for these files. When LR turns 
on, all other control level indicators (L1 through L9) also 
turn on. 

For KEYBORD files and demand files, the LR indicator 
must be turned on at the appropriate time in calculation 
specifications. Record identifying indicators can be on 
while last record processing is performed for these files. 
When LR is turned on in detail calculations, all other 
control level indicators turn on at the beginning of the 
next cycle. LR and the record identifying indicators are 
both on throughout the remainder of the detail cycle, 
but the record identifying indicators are turned off 
before LR total time. 

Do not specify an LO through L9 indicator in an OR 
relationship with an LR indicator because the specified 
operations will be done twice at LR time. 

All total lines conditioned by LR are performed last. The 
program ends after all total records are written. 
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U1-U8 (External) Indicators 

The external indicators U1 through U8 are normally set 
prior to processing by an operation control language 
(OCL) statement (SWITCH). Their setting can be 
changed during processing, allowing the program to 
alter the status of these indicators. 

The external indicators can be used: 

• To determine whether a file is to be used for a job 
(see Columns 71-72 in Chapter 3, File Description 
Specifications) 

• To condition calculation operations 

• To condition output operations 

• As field record relation indicators 

For a discussion of external indicators when used with a 
WORKSTN file, see Chapter 13, WORKSTN File 
Considerations and Sample Programs. 

KA-KN, KP-KY (Command Key) Indicators 

Assign command key indicators to specify what 
command keys the operator can press for a SET 
operation (see SET in Chapter 10, Operation Codes). 

All 24 command keys can be used for a WORKSTN file. 
You can use the command key indicators to condition 
calculation and output operations. To document the use 
of the command keys for the operator, you can use the 
template assignment form on the IBM 5251 Display 
Station Keyboard Template Assignment Sheet and Display 
Screen Layout Sheet. 

Twenty-four command keys are designated for the top 
row of the keyboard. In the lowercase position, key 1 
corresponds to command key indicator KA, key 2 to KB, 
... - (minus) to KK, and = (equal) to KL In the 
uppercase position, key I corresponds to command key 
indicator KM, @ to KN, ... and + to KY. Any of the 
command key indicators that can be used in a SET or 
SETOF operation or for a WORKSTN file can then be 
used to: 



When the command key indicators are used as 
conditioning indicators in the preceding columns, they 
are turned on and off in the following manner: 

• They are turned on when the appropriate command 
key is pressed for a SET operation. 

• They are turned off when the specified command key 
is not pressed for the SET operation or when a 
SETOF operation is performed. 

When RPG makes the data read from a display station 
attached to a WORKSTN file available for processing, all 
command key indicators are set off. If a command key 
was pressed when the data was read into the program, 
the corresponding command key indicator is set on. 



COMMON ENTRIES 

Columns 1 through 7 and 75 through 80 are common to 
all RPG specification sheets. The entries that can be 
made in these columns are described in the following 
text. 



Columns 1-2 (Page) 

Entry Explanation 

Blank No page number is used 

01-99 Page number 

Use columns 1 and 2 in the upper right corner of each 
sheet to number the specifications sheets, in ascending 
order, for your job. You can use more than one of each 
type of sheet, but keep all sheets of the same type 
together. When all specifications sheets are filled out, 
arrange them in the order shown in Figure 1-2. 



Condition calculation operations in columns 9 through 
17 of the calculation specifications 

Condition output operations in columns 23 through 
31 of the output specifications 
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Columns 3-5 (Line) 

Entry Explanation 

Blank No line number is used. 

Any Line numbers, 

numbers 

Use columns 3 through 5 to number the lines on each 
page. Columns 3 and 4 are preprinted on each sheet so, 
in most cases, line numbering is already done. For 
instance, the calculation specifications sheet is 
prenumbered for lines 01 through 20. Below the 
prenumbered lines you can add or insert up to five more 
specifications (see Figure 1-6). 

Page and line numbers are optional entries and are not 
required to successfully compile an RPG II program. 
Columns 1 through 5 are checked for ascending 
sequence, and RPG II prints an S in the left margin of 
the RPG II listing for any statement that is out of 
sequence. If you use SEU to enter the source program, 
you can request that SEU serialize the statements. 

The control specifications line is always line 01. Any 
other lines on the sheets can be skipped. The line 
numbers used need not be consecutive, but should be in 
ascending order. 

Column 6 (Form Type) 
Entry Explanation 



Control (header) specifications 
File description specifications 
Extension specifications 
Line counter specifications 
Telecommunications specifications 
Input specifications 
Calculation specifications 
Output specifications 



Column 7 (Comments) 
Entry Explanation 

* Comment line 

Use an asterisk in column 7 to identify the line as a 
comment line. Use comments throughout your program 
to help document the purpose of a certain section of 
coding. Any character can be used in a comment line. 
Comments are not instructions to the RPG II program; 
they serve only as a means of documenting your 
program. 

Columns 7-12 (/EJECT) 

Entry Explanation 

/EJECT The specifications following this entry are 
to begin on a new page of the compiler 
listing. 

The /EJECT specification is not printed on the compiler 
listing. 

Columns 7-12 (/TITLE) 

Entry Explanation 

/TITLE The heading information (such as a title 

or security classification) that follows 
the /TITLE entry appears at the top of 
each page of the compiler listing. The 
heading information is entered in 
columns 14 through 74. 

A program can contain more than one /TITLE 
statement. Each /TITLE statement provides heading 
information for the compiler listing until the next /TITLE 
statement is encountered. To print on the first page of 
the compiler listing, a /TITLE statement must be the 
first statement encountered. Information specified by 
the /TITLE statement is printed in addition to compiler 
heading information. 

The /TITLE statement causes an eject to the next page 
before the title is printed. The /TITLE statement is not 
printed on the compiler listing. 



Column 6 contains a preprinted letter on all sheets. The 
letter identifies the type of specifications for each line of 
coding. The H in column 6 of the control specifications 
stands for header or control record. The control 
specification must always be the first record in the RPG 
II source program (see Figure 1-2). 
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Columns 7-14 (/SPACE) 



Columns 75-80 (Program Identification) 



Entry Explanation 

/SPACEbn Line spacing occurs at this point in the 
compiler listing. Valid entries for n are 
1 to 3. If n is not specified, 1 is 
assumed. 

One blank (b) must precede the value you specify for n. 
The value you specify for n indicates the number of 
blank lines to be spaced before the next specification 
line is printed. If n is greater than the number of lines 
remaining on the current page, the next specification line 
is printed on a new page. If just /SPACE is specified, 
one line is spaced. 

/SPACE is not printed on the compiler listing; it is 
replaced by the appropriate line spacing. The spacing 
indicated by /SPACE is in addition to the two blank 
lines that occur between specification types. 



Entry Explanation 

Blank RPGOBJ is the program identification 

assigned. 

Any valid Program identification. The first 

program character must be alphabetic but 

name cannot be #, $, or @. The remaining 

characters must be alphameric with 
no imbedded blanks. No special 
character can be used. 



Control Specifications 

Columns 75 through 80 of the control specifications are 
used by the compiler to name the object program and to 
identify each record in the object program. See Columns 
75-80 (Program Identification) in Chapter 2 for a 
complete description of how the compiler uses this entry 
on the control specifications. 
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All Other Source Program Specifications 

Columns 75 through 80 of all source program 
specifications, except the control specifications, can 
contain any characters. These columns can contain the 
program name used in the control specifications, or they 
can contain any other characters to identify a certain 
portion of the program. These entries are ignored by the 
compiler but appear in the source program listing. 

Note: To be compatible with other RPG systems, the 
specifications sheets show only 80 positions for each 
statement. However, each statement in an RPG II 
source program can contain up to 96 characters. 
Columns 81 through 96 are available for comments. 

To code a line that must be inserted between two 
completed lines, enter the preceding line number in 
columns 3 and 4 of the line following the last line with a 
printed line number. Then enter a number from 1 to 9 
in column 5. A maximum of nine lines can be inserted 
between two specification lines. 
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Figure 1-6. Insertion of Coding Lines 
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Chapter 2. Control Specifications 



Control specifications provide special information about 
your program and describe the computer system to the 
RPG II compiler. One control specifications statement is 
required for every program. If the control specifications 
statement is omitted from the source program, a blank 
control specification is assumed by the compiler. See 
the individual column descriptions for the meaning of 
blank entries. 

Write the control specifications on the first line of the 
RPG Control and File Description Specifications sheet 
(see Figure 2-1). The control specifications should 
always be the first statement in the source program. 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1 . 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1. 

COLUMN 6 (FORM TYPE) 

An H must appear in column 6 to identify this line as 
the control specifications (or header) statement. 



IBM 
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Figure 2-1. RPG Control and File Description Specifications 



Columns 1-2 (Page) 2-1 



COLUMNS 7-9 (SIZE TO COMPILE) 

Columns 7 through 9 are not used. Leave them blank. 
Any entry in these columns is ignored by the compiler. 
The program is compiled in the available storage 
specified by the REGION OCL statement. If no region 
size is specified, the size to compile defaults to 14K. 

COLUMN 10 (OBJECT OUTPUT) 

Entry Explanation 

Blank The system halts only when severe 

(terminal) errors are found. 

D The system halts for both warning 

errors and severe errors. The 
operator can continue the job 
after a halt occurs for a 
warning error. 

Use column 10 to indicate whether the system is to halt 
for warning errors. 

The compiler produces the object program if no severe 
(terminal) errors are detected in the source statements. 
This object program is written in the library specified by 
the OUTLIB parameter on the COMPILE OCL statement. 
If the OUTLIB parameter is not specified, the object 
program is written to the system library. The object 
program remains in the specified library until it is 
deleted by the programmer. Each object program in a 
library must be assigned a unique program name. See 
Columns 75-80 in this chapter for a detailed discussion 
of naming the program. 

COLUMN 11 (LISTING OPTIONS) 

Entry Explanation 

Blank The object program is produced if 

no severe errors are found, and an 
RPG II listing is printed. 

B The object program is produced if 

no severe errors are found, but 
no program listing is printed. Use 
this entry to produce an object 
program for which you already have 
a listing. 

P The object program is produced if 

no severe errors are found, and a 
partial program listing is printed. 

Use column 1 1 to specify the program listing option to 
be used when your program is compiied. if any severe 
errors are found during compilation and if column 1 1 
contains a blank or P, the listing is completed and the 
system halts. 

2-2 Control Specifications 



The RPG II listing consists of the source program listing, 
table and array information, indicator usage information, 
the relative location of fields and their attributes, 
unreferenced field names, diagnostics, and a main 
storage usage map. The main storage usage map lists 
the identification, the start address, and the size of each 
uniquely identifiable segment of code in the object 
program, defines the amount of main storage required 
for execution, and lists the number of library sectors 
required for the object program. 

The partial listing includes the source program, indicator 
usage information, and diagnostics. Excluded from this 
listing are table and array information, field information, 
and main storage usage map. 



COLUMNS 12-14 (SIZE TO EXECUTE) 



Column 12 

Entry Explanation 

Blank or The entry in columns 13 and 14 
determines the size to execute. 

Q, H, or T The entry in columns 13 and 14 is 

rounded up to the next even number. 

Columns 13 and 14 

Entry Explanation 

Blank The main storage available for object 

program execution defaults to the 
region size specified. If no region 
size is specified, the size to 
execute defaults to 14K. 

02-64 Enter the main storage available for 

object program execution in a multiple 
of 2K bytes (K = 1,024 bytes). 

Use columns 12 through 14 to specify the amount of 
main storage to be available for object program 
execution. The maximum amount of storage you can 
specify depends on the system size. If column 12 
contains a Q, H, or T or if columns 13 and 14 contain 
an odd number, RPG II rounds the entry in columns 13 
and 14 up to the next even number. For example, an 
entry of Q04 or 005 is rounded up to 006. 

The compiled ob'ect program occupies up to the amount 
of main storage specified in columns 13 and 14. The 
actual amount of storage the program occupies after it 
is compiled appears on the RPG listing. 



COLUMN 15 (DEBUG) 

Entry Explanation 

Blank DEBUG operation is not performed. 

1 DEBUG operation is performed. 

Use column 15 to indicate whether the DEBUG 
operation is to be performed. To perform a DEBUG 
operation: 

• A 1 must appear in column 15 when the source 
program is compiled. 

• The DEBUG operation code must be used in the 
calculation specifications. 

See DEBUG Operation in Chapter 10 for more 
information. 



COLUMNS 16-17 

Columns 16 and 17 are not used. Leave them blank. 

COLUMN 18 (CURRENCY SYMBOL) 
Entry Explanation 

Blank Defaults to $ as the currency symbol 

Any other This character is used as the currency 

character symbol. If a fixed or floating currency 

symbol is desired, this symbol must 
be appropriately coded in edit words 
or in conjunction with the appropriate 
edit codes. Any character may be 
specified as the currency symbol 
except the following characters 
which have a special meaning in edit 
codes or words: 
(zero) 
* (asterisk) 
, (comma) 
& (ampersand) 
. (decimal point) 
— (minus sign) 
C (letter C) 
R (letter R) 



COLUMNS 19-20 (DATE OPTION) 
Column 19 (Date Format) 



Entry 

Blank 



M 
D 
Y 



Explanation 

Defaults to month /day /year if 
column 21 is blank. Defaults to 
day/month /year if column 21 
contains a D, I, or J. 

Month/day/year. 

Day /month /year. 

Year/month/day. 



Use column 19 to specify the date format for UDATE. 
The date format specified in column 19 should be the 
same format as the program date. For example, if 
column 19 is blank, the input (the program date) must 
be mm/dd/yy if column 21 is blank or dd/mm/yy if 
column 21 contains a D. If you specify the date in 
mm/dd/yy format and the program date in the system 
is in dd/mm/yy format, RPG will work with an invalid 
date. 

If data containing the UDATE field is transmitted to, or 
used by, another system, the UDATE format must be 
yy/mm/dd. 

For a description of the program date, see the System 
Support Reference Manual. 



Column 20 (Date Edit) 

Entry Explanation 

Blank (1) A slash (/) is assumed when 

column 21 contains a blank or D 
and column 19 is blank, or when 
column 19 contains M; (2) a period 
(.) is assumed when column 21 
contains I or J and column 19 
is blank, or when column 19 
contains D or Y. 

& A blank separates the date field. 

Any other The character entered separates 
characters the edited date field. 

Use column 20 to specify the type of edited output that 
appears for the Y edit code, which is specified on the 
output specifications. For an example of how the entries 
in columns 19 through 21 affect the editing of date 
fields, see Column 38 (Edit Codes) in Chapter 9, Output 
Specifications. 



Column 15 (Debug) 2-3 



COLUMN 21 (INVERTED PRINT) 



Normal Collating Sequence 



Entry Explanation 

Blank Decimal periods are used for 

numeric literals and editing. 
UDATE format is mmddyy if column 

19 is blank. If columns 19 and 

20 are blank, a slash (/) is used 
for the Y edit code. 

I Decimal commas are used for numeric 

literals and editing. UDATE format 
is ddmmyy if column 19 is blank. 
If columns 19 and 20 are blank, a 
period (.) is used for the Y edit code. 

J J is the same as I except zero 

is written to the left of the decimal 
comma when the field contains a 
fraction. Nondecimal edited fields 
print with a zero in the low-order 
(units) position. 

D D is the same as blank except the 

UDATE format is ddmmyy if column 
19 is blank. 

Use column 21 to specify the constants to be used with 
RPG II edit codes that are entered on the output 
specifications. Decimal period means that numbers are 
edited with a period before the fraction (183.55) and 
with a comma denoting thousands (1,435). Decimal 
comma means that numbers are edited with a comma 
before the fraction (183,55) and with a period denoting 
thousands (1.435). 

For information on how the entries in column 21 are 
used to format numeric data, see Column 38 (Edit 
Codes) in Chapter 9, Output Specifications. 



Each of the alphabetic, numeric, and special characters 
used by System /34 is represented in the computer by a 
hexadecimal value (see Figure 2-2), The order in which 
these characters appear in the computer is based on 
this hexadecimal value and is known as the normal 
collating sequence. For an RPG II program, the system 
uses this collating sequence only in alphameric compare 
operations, in sequence checking, and for match fields. 
You can alter this collating sequence for use in these 
three types of operations. For example, you can insert a 
character between 2 consecutive characters, take a 
character out of sequence, or make 2 characters equal. 



Specifying an Alternate Collating Sequence 

To specify that an alternate collating sequence is to be 
used, enter an S in column 26. Describe each character 
whose collating sequence is to be changed on the 
Translation Table and Alternate Collating Sequence 
Coding Sheet (see Figure 2-3). Then transcribe the 
sequence changes into the correct record format for 
entry into the system. These records, called the 
alternate collating sequence table records, must be 
entered after the RPG II specifications and, if used, the 
file translation table records. The alternate collating 
sequence table is a special table that requires no file 
description or extension specifications and is printed 
with the compiled program. 



COLUMNS 22-25 

Columns 22 through 25 are not used. Leave them blank. 

COLUMN 26 (ALTERNATE COLLATING SEQUENCE) 

Entry Explanation 

Blank Normal collating sequence is used. 

S Alternate collating sequence is used. 

Use column 26 only to alter the normal collating 
sequence for alphameric compare operations, sequence 
checking, or match fields. 



2-4 Control Specifications 



Filling Out the Alternate Collating Sequence Coding Sheet 

Specify each change in the collating sequence in the 
Replaced By column on the alternate collating sequence 
coding sheet. In the Graphic column find the character 
whose normal sequence is to be changed, and enter the 
hexadecimal value of the replacing character in the 
Replaced By column. 

For example, if a blank is to be replaced by (or 
considered the same as) a zero, enter FO (the 
hexadecimal value of zero) in the Replaced By column 
next to the hexadecimal value of a blank (40) (see Figure 
2-4). Thus, whenever the system reads a blank and 
uses it in an alphameric compare, match field, or 
sequence checking operation, the blank is considered 
the same as a zero. 

If a character is to be inserted between 2 consecutive 
characters, you must specify every character that is 
altered by this insertion. For example, if the dollar sign 
($) is to be inserted between A and B, specify the 
changes for characters B through I on the coding sheet 
(see Figure 2-4). 

The translation table and alternate collating sequence 
coding sheet show many hexadecimal values between 
the characters I and }, R and S, and Z and that have 
no printable graphic associated with them. Because of 
this arrangement of nongraphics in the collating 
sequence, a character such as $, when inserted between 
A and B, changes only the position of characters B 
through I. Because the I replaces the nongraphic 
represented by hexadecimal CA, the remaining 
characters in the collating sequences are not affected. 
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A9 


57 


{ 


CO 


58 


A 


C1 


59 


B 


C2 


60 


C 


C3 


61 


D 


C4 


62 


E 


C5 


63 


F 


C6 


64 


G 


C7 


65 


H 


C8 


66 


I 


C9 


67 


} 


DO 


68 


J 


D1 


69 


K 


D2 


70 


L 


D3 


71 


M 


D4 


72 


N 


D5 


73 





D6 


74 


P 


D7 


75 


Q 


D8 


76 


R 


D9 


77 


\ 


E0 


78 


S 


E2 


79 


T 


E3 


80 


U 


E4 


81 


V 


E5 


82 


w , 


E6 


83 


X 


E7 


84 


Y 


E8 


85 


z 


E9 


86 





F0 


87 


1 


F1 


88 


2 


F2 


89 


3 


F3 


90 


4 


F4 


91 


5 


F5 


92 


6 


F6 


93 


7 


F7 


94 


8 


F8 


95 


9 


F9 



Note: When zones are specified for record identification codes, the & is considered to have a hex C zone, the - (minus sign) 
is considered to have a hex D zone, and the blank is considered to have a hex F zone, to be consistent with card punches. 



Figure 2-2. Normal Collating Sequence and Hexadecimal Value of Characters 

2-6 Control Specifications 
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International Business Machines Corporation 
TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 








•No. of 


GX21-9096- U/M050' 

Printed in U.S.A. 

sheets per pad may vary slightly 






Code 


Graphic 


Entry 


Replaced 
By/Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By/Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




00000000 




00 




00110011 




33 




01100110 




66 




10011001 


r 


99 




11001100 




CC 




00000001 




01 




00110100 




34 




01100111 




67 




10011010 




9A 




11001101 




CD . 




00000010 




02 




00110101 




35 




01101000 




68 




10011011 




9B 




11001110 




CE 




0000001 1 




03 




00110110 




36 




01101001 




69 




10011100 




9C 




11001111 




CF 




00000100 




04 




00110111 




37 




01101010 


; 


6A 




10011101 




9D 




11010000 


} 


DO 




00000101 




05 




00111000 




38 




01101011 




6B 




10011110 




9E 




11010001 


J 


D1 




00000110 




06 




00111001 




39 




01101100 


% 


6C 




10011111 




9F 




11010010 


K 


D2 




000001 1 1 




07 




00111010 




3A 




01101101 


- 


6D 




10100000 




A0 




11010011 


L 


D3 




00001000 




08 




00111011 




3B 




01101110 


> 


6E 




10100001 


~ 


A1 




11010100 


M 


D4 




00001001 




09 




00111100 




3C 




01101111 


? 


6F 




10100010 


s 


A2 




11010101 


N 


D5 




00001010 




0A 




00111101 




3D 




01110000 




70 




10100011 


t 


A3 




11010110 





Do 




00001011 




OB 




00111110 




3E 




01110001 




71 




10100100 


u 


A4 




11010111 


p 


D7 




00001100 




oc 




00111111 




3F 




01110010 




72 




10100101 


V 


A5 




11011000 


Q 


D8 




00001101 




OD 




01000000 


Blank 


40 




01110011 




73 




10100110 


w 


A6 




11011001 


R 


D9 




00001110 




OE 




01000001 




41 




01110100 




74 




1010O111 


x 


A7 




11011010 




DA 




00001 1 1 1 




OF 




01000010 




42 




01110101 




75 




10101000 


y 


A8 




11011011 




DB 




00010000 




10 




01000011 




43 




01110110 




76 




10101001 


z 


A9 




11011100 




DC 




00010001 




11 




01000100 




44 




01110111 




77 




10101010 




AA 




11011101 




DD 




00010010 




12 




01000101 




45 




01111000 




78 




10101011 




AB 




11011110 




DE 




00010011 




13 




01000110 




46 




01111001 


- 


79 




10101100 




AC 




11011111 




DF 




00010100 




14 




01000111 




47 




01111010 




7A 




10101101 




AD 




11100000 


\ 


E0 




00010101 




15 




01001000 




48 




01111011 


* 


7B 




10101110 




AE 




11100001 




E1 




00010110 




16 




01001001 




49 




01111100 


<9> 


7C 




10101111 




AF 




11100010 


s 


E2 




00010111 




17 




01001010 


t 


4A 




01111101 




7D 




10110000 




B0 




11100011 


T 


E3 




00011000 




18 




01001011 




4B 




01111110 


= 


7E 




10110001 




B1 




11100100 


U 


E4 




00011001 




19 




01001100 


< 


4C 




01111111 




7F 




10110010 




B2 




11100101 


V 


E5 




00011010 




1A 




01001101 


( 


4D 




10000000 




80 




10110011 




B3 




11100110 


w 


E6 




00011011 




IB 




01001110 


+ 


4E 




10000001 


a 


81 




10110100 




B4 




11100111 


X 


E7 




00011100 




1C 




01001111 


I 


4F 




10000010 


b 


82 




10110101 




B5 




11101000 


Y 


E8 




00011101 




1D 




01010000 


& 


50 




10000011 


c 


83 




10110110 




B6 




11101001 


Z 


E9 




00011110 




IE 




01010001 




51 




10000100 


d 


84 




10110111 




B7 




11101010 




EA 




00011111 




IF 




01010010 




52 




10000101 


e 


85 




10111000 




B8 




11101011 




EB 




00100000 




20 




01010011 




53 




10000110 


f 


86 




10111001 




B9 




11101100 




EC 




00100001 




21 




01010100 




54 




10000111 


g 


87 




10111010 




BA 




11101101 




ED 




00100010 




22 




01010101 




55 




10001000 


h 


88 




10111011 




BB 




11101110 




EE 




00100011 




23 




01010110 




56 




10001001 


i 


89 




10111100 




BC 




11101111 




EF 




00100100 




24 




01010111 




57 




10001010 




8A 




10111101 




BD 




11110000 





F0 




00100101 




25 




01011000 




58 




10001011 




8B 




10111110 




BE 




11110001 


1 


F1 




00100110 




26 




01011001 




59 




10001100 




8C 




10111111 




BF 




11110010 


2 


F2 




00100111 




27 




01011010 


! 


5A 




10001101 




8D 




11000000 


{ 


CO 




11110011 


3 


F3 




00101000 




28 




01011011 


$ 


5B 




10001110 




8E 




11000001 


A 


CI 




11110100 


4 


F4 




00101001 




29 




01011100 


* 


5C 




10001111 




8F 




11000010 


B 


C2 




11110101 


5 


F5 




00101010 




2A 




01011101 


1 


5D 




10010000 




90 




11000011 


c 


C3 




11110110 


6 


F6 




00101011 




2B 




01011110 




5E 




10010001 


i 


91 




11000100 


D 


C4 




11110111 


7 


F7 




00101100 




2C 




01011111 


~ " 


5F 




10010010 


k 


92 




11000101 


E 


C5 




11111000 


8 


F8 




00101101 




2D 




01100000 




60 




10010011 


1 


93 




11000110 


F 


C6 




111110O1 


9 


F9 




00101110 




2E 




01100001 


/ 


61 




10010100 


m 


94 




11000111 


G 


C7 




11111010 




FA 




00101111 




2F 




01100010 




62 




10010101 


n 


95 




11001000 


H 


C8 




11111011 




FB 




00110000 




30 




01100011 




63 




10010110 


o 


96 




11001001 


1 


C9 




11111100 




FC 




00110001 




31 




01100100 




64 




10010111 


p 


97 




11001010 




CA 




11111101 




FD 




00110010 




32 




01100101 




65 




10011000 


q 


98 




11001011 




CB 




11111110 




FE 




11111111 




FF 

































Note: Not all graphic symbols shown here are available on all systems. 
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International Business Machines Corporation 
TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 








•No. of 


GX21-9096- U/M050' 
Printed in U.S.A 

sheets per pad may vary slightly 






Code 


Graphic 


Entry 


Replaced 
By/Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By/Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




Code 


Graphic 


Entry 


Replaced 
By /Takes 
Place Of 




00000000 




00 




00110011 




33 




01100110 




66 




10011001 


r 


99 




11001100 




CC 




00000001 




01 




00110100 




34 




01100111 




67 




10011010 




9A 




11001101 




CD 




00000010 




02 




00110101 




35 




01101000 




68 




10011011 




9B 




11001110 




CE 




0000001 1 




03 




00110110 




36 




01101001 




69 




10011100 




9C 




11001111 




CF 




00000100 




04 




00110111 




37 




01101010 




6A 




10011101 




9D 




11010000 


} 


DO 




00000101 




05 




00111000 




38 




01101011 




6B 




10011110 




9E 




11010001 


J 


D1 




00000110 




06 




00111001 




39 




01101100 


% 


6C 




10011111 




9F 




11010010 


K 


D2 




00000111 




07 




00111010 




3A 




01101101 


- 


6D 




10100000 




AO 




11010011 


L 


D3 




00001000 




OS 




00111011 




3B 




01101110 


> 


6E 




10100001 


~ 


A1 




11010100 


M 


D4 




00001001 




09 




00111100 


Blank and zero considered eq 


111 


6F 




10100010 


s 


A2 




11010101 


N 


D5 




00001010 




OA 




00111101 




70 




10100011 


t 


A3 




11010110 


O 


D6 




00001011 




OB 




00111110 




...... 3.E.. ,,,,,, 






01110001 




71 




10100100 


u 


A4 




11010111 


p 


D7 




00001100 




oc 




001 1 1 1 1 \<ii 




ssg^wxw- 




01110010 




72 




10100101 


V 


A5 




11011000 


Q 


D8 




00001101 




OD 




0100000BS 


Blank 


40 


/•* 


01110011 




73 




10100110 


w 


A6 




11011001 


R 


D9 




00001110 




OE 




OlOOOOiBS. 




«:•:>»:.,„„., 




01110100 




74 




10100111 


X 


A7 




11011010 




DA 




00001 1 1 1 




OF 




01000010* 




•-«••••»»:* 




01110101 




75 




10101000 


V 


A8 




11011011 




DB 




00010000 




10 




01000011 




43 




01110110 




76 




10101001 


z 


A9 




11011100 




DC 




00010001 




11 




01000100 




44 




01110111 




77 




10101010 




AA 




11011101 




DD 




00010010 




12 




01000101 




45 




01111000 




78 




10101011 




AB 




11011110 




DE 




00010011 




13 




01000110 




46 




01111001 • 


- 


79 




10101100 




AC 




11011111 




DF 




00010100 




14 




01000111 




47 




01111010 




7A 




10101101 




AD 




11100000 


\ 


E0 




00010101 




15 




01001000 




48 




01111011 


# 


7B 




10101110 




AE 




11100001 




El 




00010110 




16 




01001001 




49 




01111100 


s> 


7C 




10101111 




AF 




11100010 


s 


E2 




00010111 




17 




01001010 


* 


4A 




01111101 




7D 




10110000 




BO 




11100011 


T 


E3 




00011000 




18 




01001011 




4B 




01111110 


= 


7E 




10110001 




B1 




11100100 


u 


E4 




00011001 




19 




01001100 


< 


4C 




01111111 




7F 




10110010 




B2 




11100101 


V 


E5 




00011010 




1A 




01001101 


( 


4D 




10000000 




80 




10110011 




B3 




11100110 


w 


E6 




00011011 




1B 




01001110 


+ 


4E 




10000001 


a 


81 




10110100 




B4 




11100111 


X 


E7 




00011100 




1C 




01001111 


1 


4F 




10000010 


b 


82 




10110101 




B5 




11101000 


Y 


E8 




00011101 




1D 




01010000 


& 


50 




10000011 


c 


83 




10110110 




B6 




11101001 


z 


E9 




00011110 




IE 




01010001 




51 




10000100 


d 


84 




10110111 




B7 




11101010 




EA 




00011111 




1F 




01010010 




52 




10000101 


e 


85 




10111000 




B8 




11101011 




EB 




00100000 




20 




01010011 




53 




10000110 


f 


86 




10111001 




B9 




11101100 




EC 




00100001 




21 




01010100 




54 




10000111 


9 


87 




10111010 




BA 




11101101 




ED 




00100010 




22 




01010101 




55 




10001000 


h 


88 




10111011 




BB 




11101110 




EE 




00100011 




23 




01010110 




56 


$ take; 


. r 


3' n ' + 




89 




10111100 




BC 


B takes C's posit 




EF 




00100100 




24 




01010111 




57 


> L 




8A 




10111101 




BD 




F0 




00100101 




25 




01011000 




58 






10001011 




8B 




10111110 




BE 


/ 




11110001 


1 


F1 




00100110 




26 




01011001 .. 




59..,,,,., 


.;.>; 


:■:.■.:■::■:.,„,,,. 


10001100 




8C 




10111111 




BF 


J 


11110010 


2 


F2 




00100111 




27 




oionwsi 


im^mmi 


W>>SA:?:¥:->: 




:.. 10001101 




8D 




11000000 


••(;,:••••••:• 


mSfkwK-x 


Jm^>,,. 


11110011 


3 


F3 . 




00101000 




28 




oioi ten 


$ 


5B 


Z2j0± 


S 10001110 




8E 




iioooqqsis: 


• '• A • 


»:->ei««>x 




11110100 


4 


F4 




00101001 




29 




oiontao 


' 


:*:*:SG*:*:«: 




; ' 10001111 




8F 




11000010 


B 


C2 


£3 <cV 


p^ttS C takes D's position. — 


00101010 




2A 




01011 lot™ 


a:}*:*:-:*:*:*--.-. 


-:v,yj,,,. : ,,.. 




10010000 




90 




110009*.! 


c 


C3 


CtCA} 


00101011 




2B 




01011110 




5E 




10010001 


i 


91 




1100010053 






:.<*S«««* 


11110111 


7 


F7 




00101100 




2C 




01011111 


-• 


5F 




10010010 


k 


92 




11000101 


■«%mm& 


V0&F*SiX 


Mr/o 


11111000 


8 


F8 




00101101 




2D 




01100000 




60 




10010011 


1 


93 




11000110 


F 


C6 


C7 t6M 


11111001 


9 


F9 




00101110 




2E 




01100001 


/ 


61 




10010100 


m 


94 




11000111 


G 


C7 


C* CM) 


11111010 




FA 




00101111 




2F 




01100010 




62 




10010101 


n 


95 




11001000 


H 


C8 


cq ex) 


11111011 




FB 




00110000 




30 




01100011 




63 




10010110 


o 


96 




11001001 


I 


C9 


cA ± 


■777 (no printable character) 


00110001 




31 




01100100 




64 




10010111 


P 


97 




11001010 




CA 




00110010 




32 




01100101 




65 




10011000 


q 


98 




11001011 




CB 




11111110 




FE 




11111111 




FF 



































Not all graphic symbols shown he> 



Formatting the Alternate Collating Sequence Records 



Example of Alternate Collating Sequence Record 



The changes to the collating sequence that are 
described on the coding sheet must be transcribed into 
the correct record format so that the operator can enter 
them into the system. The alternate collating sequence 
must be formatted as follows: 



Record 
Position 

1-6 



7-8 
9-10 



Entry 

ALTSEQ (This indicates to the system 
that the normal sequence is being 
altered.) 

Leave these positions blank. 

Enter the hexadecimal value for the 
character whose normal sequence is 
being changed. Figure 2-2 shows each 
printable character and its 
hexadecimal value. 

Enter the hexadecimal value of the 
character replacing the character 
whose normal sequence is being 
changed. 

Use these positions in the same way 
as positions 9 through 12. The 
first two positions specify the 
character to be replaced by the 
character specified in the next two 
positions. There can be as many 
four-position entries as can be 
contained in the record. The first 
blank position terminates the record. 

The records that describe the alternate collating 
sequence must be preceded by a record with **£ (6 = 
blank) in positions 1 through 3. The remaining positions 
in this record can be used for comments. 



11-12 



13-16, 
17-20, 
21.-24 



The record for the preceding example of inserting the 
dollar sign ($) between A and B is formatted as follows. 
The changes specified on the alternate collating 
sequence coding sheet are shown in Figure 2-4. 



Record 




Position 


Entry 


1-6 


ALTSEQ 


7-8 


Blanks 


9-12 


5BC2 ($ takes B's position) 


13-16 


C2C3 (B takes C's position) 


17-20 


C3C4 (C takes D's position) 


21-24 


C4C5 (D takes E's position) 


25-28 


C5C6 (E takes F's position) 


29-32 


C6C7 (F takes G's position) 


33-36 


C7C8 (G takes H's position) 


37-40 


C8C9 (H takes I's position) 


41-44 


C9CA (I takes the position 



of an unprintable character) 

COLUMNS 27-36 

Columns 27 through 36 are not used. Leave them blank. 

COLUMN 37 (INQUIRY) 

Entry Explanation 

Blank or I Program when interrupted will not 
allow the operator to enter new 
procedures or commands (does 
not recognize an inquiry request). 

B Program when interrupted will 

allow the operator to enter new 
procedures or commands (does 
recognize an inquiry request). 

Use column 37 to specify whether an executing program 
can be interrupted to allow another program to execute. 

The operator requests an interruption (called an inquiry 
request) by pressing the ATTN key on the display 
station. The procedure or command statements for the 
interrupting program must be entered from the display 
station. 



Columns 27-36 2-9 



The program to be loaded following an inquiry request 
(the interrupting program) can have an I, B, or blank in 
column 37 of its control specifications. However, even if 
it has a B in column 37, the interrupting program cannot 
be interrupted by another inquiry request. 

If column 37 contains a B, the inquiry function of 
System /34 allows the operator to interrupt a program 
that is currently using the display station and to enter 
new procedures or commands. If column 37 contains 
any of the valid entries, the operator can set the inquiry 
latch for SUBR95, cancel a single requestor terminal 
(SRT) program that the operator initiated, or release the 
display station from a multiple requestor terminal (MRT) 
program. 

For more information on inquiry, including restrictions on 
the use of system utilities in inquiry mode, see 
Interrupting a Program (Inquiry) in Chapter 2 of the 
System/34 Concepts and Design Guide. 

File Sharing 



Single Program Mode 

When System/34 is operating in single program mode, 
an inquiry program can access the files being used by 
the interrupted program (that is, the active files) for 
input and update processing only. Update processing of 
an active file is allowed only if the interrupted program 
is not updating or adding to the file. Active output files 
cannot be accessed by the inquiry program. 



Multiple Program Mode 

When System/34 is operating in multiple program 
mode, an inquiry program can access active input, 
update, and add files. However, an inquiry program 
cannot access indexed sequential add file types or 
output files. Each file to be shared in both the 
interrupted and the inquiry programs must be designated 
by the DISP-SHR parameter on the FILE OCL 
statement. 



For a description of the valid file sharing combinations, 
see the System Support Reference Manual. 



Inline Inquiry Subroutine (SUBR95) 

The IBM-written subroutine SUBR95 can be used to 
perform an inquiry type function if the RPG II program 
does not have an MRT attribute (that is, the MRTMAX 
parameter on the COMPILE OCL statement has a value 
of or is not specified). Column 37 can be blank or 
contain an I or B. (See Interrupting a Program (Inquiry) 
in Chapter 2 of the System/34 Concepts and Design 
Guide for restrictions on the inquiry function.) 

The linkage to SUBR95 must be specified on the 
calculation specifications at every point in the program 
where a check is to be made for an inquiry request (see 
Figure 2-5). The indicator specified in columns 45 and 
46 must be an RPG II indicator. For a detailed 
discussion of this linkage, see Linking to External 
Subroutines in Chapter 10. 

When SUBR95 is called, it checks to determine whether 
an inquiry request was made. If one was made (that is, 
the operator selected option 4 in response to the inquiry 
display), the indicator specified in the RLABL operation 
is turned on and the inquiry request is reset. This 
indicator can then be used to condition subsequent 
calculation and output operations. 
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Fiaure 2-5. Linkage for SUBR95 
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COLUMNS 38-40 

Columns 38 through 40 are not used. Leave them blank. 

COLUMN 41 (IP FORMS POSITION) 



Entry 



Blank 



1 



Explanation 



First line is printed only once. 



First line can be printed repeatedly. 



Use column 41 only when the first output line is written 
to a printer file. If the program contains more than one 
printer file, the 1 P entry in column 41 applies to each 
printer file that has 1 P (first page) output. 

When forms are first inserted in the printer, they may 
not be in perfect alignment. Sometimes several lines 
must be printed to determine the correct positioning of 
the form. If 1 P forms position is specified, the system 
prints the first line of output and issues a message. The 
operator can then align the forms and select the 
appropriate option to retry printing the line or to 
continue printing. The 1 P forms specification is also 
valid if the output is spooled. The page counter is not 
incremented until the forms have been positioned 
correctly. 

The 1 P forms position specification can be overridden 
on the PRINTER OCL statement, or forms alignment can 
be specified on the PRINTER OCL statement. 



COLUMN 42 

Column 42 is not used. Leave it blank. 



COLUMN 43 (FILE TRANSLATION) 
Entry Explanation 

Blank No file translation is needed. 

F Input, output, update, or combined 

files are to be translated. 

Use column 43 only when information contained in an 
input, output, update, or combined file is in a character 
code different from the character code used by 
System/ 34. 

The file translation function of RPG II translates 1 
character into another. The characters can be translated 
when they are read into the system from an input file or 
before they are written to an output file. An F in column 
43 indicates one or both of the following: (1) a 
character code used in the input data must be translated 
into System /34 code; (2) the output data must be 
translated from System /34 code into a different code. 
If file translation is specified for update or combined 
files, the input data is translated into System /34 code 
and then translated back into the different code for 
output. 

File translation is generally used as a security measure 
when input or output data is coded to prevent access to 
classified information. The system cannot process this 
classified information until it is translated into 
System/34 code. Figure 2-2 shows the hexadecimal 
code used by the System /34 to internally represent 
alphabetic, numeric, and special characters. 

To specify file translation, enter an F in column 43. 
Then describe the character that is to be translated on 
the Translation Table and Alternate Collating Sequence 
Coding Sheet (see Figure 2-3). The translations 
described must also be transcribed into the correct 
record format for entry into the system. These records, 
called the file translation table records, must be entered 
following the RPG II specifications. This special table 
requires no file description or extension specifications, 
and is printed with the compiled program. 
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Filling Out the Translation Table Coding Sheet 

Identify each character that is to be translated on the 
translation table coding sheet. In the Replaced By 
column, enter the hexadecimal value of the character 
that is to replace the character presently associated with 
the hexadecimal value shown in the Entry column. For 
example, if the input data is in a code in which the 
character B is used to represent the number 1, enter the 
hexadecimal value of 1 (which is F1) in the Replaced By 
column next to the character B (see Figure 2-6). 
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This is the hexadecimal value of the 
character to be translated. 



This is the hexadecimal value of the character 
that will be substituted for the character that 
is to be translated. 



Figure 2-6. Specif ications for File Translation Input Records 
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Formatting File Translation Table Records 



Example of File Translation 



File translation table records must be formatted as 
■follows: 



Record 
Position 

1-6 

(To translate) 

all files) 



1-8 

(To translate 

a specific 

file) 



Entry 

Enter *FILES to indicate that all 
input, output, update, and combined 
files are to be translated (both 
the input and output data of the update 
and combined files are translated). 
Complete the file translation table 
record beginning with positions 9 
and 10. 

Enter the filename of the input, 
output, update, or combined file to be 
translated (both the input and output 
data of update and combined files 
are translated). Complete the file 
translation table record beginning with 
positions 9 and 10. The *FILES entry 
is not made in positions 1 through 6 
when only a specific file is to be 
translated. 

Enter the hexadecimal equivalent 
of the external character to be 
translated-from on input, or to be 
translated-to on output. 

Enter the hexadecimal equivalent 
of the internal character that RPG 
works with. It will replace the 
character in positions 9 and 10 
on input and be replaced by the 
character in positions 9 and 10 
on output. 

13-16, Use these positions in the same way 

17-20, as positions 9 through 12. The first 

21-24, ... , two positions contain the hexadecimal 
93-96 value of the character to be replaced 

by the character whose hexadecimal 
value is specified in the next two 
positions. 

If the number of translations exceeds 96 positions, 
duplicate positions 1 through 8 on the next record and 
continue with the translation pairs as before in positions 
9 through 96. 



9-10 



11-12 



A department store processes sales slips that contain 
the wholesale price and the retail price of each item. 
Because the wholesale price must remain confidential, 
the store substitutes the individual letters of a code 
name for the numbers comprising the wholesale costs. 
The store uses the code name BUCKINGHAM to 
represent the numbers 1 through 9 and 0, respectively. 

In order for the system to perform any calculations with 
the wholesale prices, file translation must be specified 
for this file by an F entry in column 43 of the control 
specifications for this program. Figure 2-6 shows the 
entries made on the translation table coding sheet that 
translate the code name into System /34 characters. 

The file translation table record for translating this code 
word is as follows: 

Record 

Position Entry 

1-6 *FILES (All files in the program 

are to be translated.) 

7-8 Blank 

9-12 C2F1 (Each B read from the file 

is translated into a 1 .) 

13-16 E4F2 (Each U read from the file 

is translated into a 2.) 

17-20 C3F3 (Each C read from the file 

is translated into a 3.) 

21-24 D2F4 (Each K read from the file 

is translated into a 4.) 

25-28 C9F5 (Each I read from the file 

is translated into a 5.) 

29-32 D5F6 (Each N read from the file 

is translated into a 6.) 

33-36 C7F7 (Each G read from the file 

is translated into a 7.) 

37-40 C8F8 (Each H from the file is 

translated into an 8.) 

41-44 C1 F9 (Each A read from the file 

is translated into a 9.) 

45-48 D4F0 (Each M read from the file 

is translated into a 0.) 



All table records for one file must be kept together. The 
file translation table records must be preceded by one 
record with **5 (b = blank) in positions 1 through 3. 
The remaining positions of this record can be used for 
comments. 
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Note: On input, the alphabetic characters are translated 
to their corresponding numbers. On output, the 
numbers are translated back to their corresponding 
alphabetic characters. 

When the program with this file translation is executed, 
each character given in the file translation table record is 
translated for every field in each file in the program 
(unless a specific file was given in positions 1 through 8 
of the file translation table record). All characters that 
are not in the file translation table record are handled in 
the normal manner. 

COLUMN 44 

Column 44 is not used. Leave it blank. 



COLUMN 45 (NONPRINT CHARACTERS) 

Entry Explanation 

Blank Program halts if the last line 

printed contained an unprintable 
character. 

1 Program does not halt for 

unprintable characters. 

Use column 45 to bypass machine halts for unprintable 
characters. This column applies only to printer files. 

All characters are represented in the system by a 
hexadecimal value, which is a numeric code. If a 
hexadecimal value is formed during a calculation that is 
not in the System /34 character set and that character is 
to be printed, the system halts after printing the line. In 
the printed line, the unprintable characters are replaced 
with blanks. 

To bypass this halt, enter a 1 in column 45. An 
unprintable character is then replaced with a blank, and 
no halt occurs. Note, however, that your output is not 
correct, and, by bypassing the halt, the incorrect output 
may not become known (for example, when a packed 
key field is printed or when a nonprintable field is built 
by calculation specifications). 



COLUMNS 46-47 

Columns 46 and 47 are not used. Leave them blank. 



COLUMN 48 (SHARED I/O) 

Entry Explanation 

Blank All disk files use a separate 

input/output area. 

1 All disk files share a single 

input/output area. 

Use column 48 to allow all disk files to use one 
input/output area. 

Normally an RPG II program uses one input/output area 
for each file. Specifying a shared input/output area can 
reduce the amount of main storage needed to process a 
program. This is particularly important if a program is so 
large that it cannot run in the main storage available. 
However, the use of a shared input/output area can 
increase the time required to process the program. 
Therefore, before indicating that all disk files are to 
share one input/output area, be sure that the program 
would otherwise exceed the capacity of the system. 

Additional input/output areas, which can be specified in 
column 32 of the file description specifications, cannot 
be specified for disk files using a shared input/output 
area. Also when an update file using a shared 
input/output area is processed, you must ensure that 
retrieval of another record did not occur between 
retrieval and update of the specified record; otherwise 
an invalid record update operation message is issued. 



COLUMNS 49-51 

Columns 49 through 51 are not used. Leave them blank. 

COLUMNS 52-53 (NUMBER OF FORMATS) 

Entry Explanation 

Blank Program assumes an entry of 32. 

0-32 Enter the number of formats in the 

display screen format member for 
the WORKSTN file. 

Use columns 52 and 53 to indicate the number of 
individual formats in the display screen format member. 
This number must include all the formats in the display 
screen format load member, not just the number of 
formats used by the program. 
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COLUMNS 54-56 

Columns 54 through 56 are not used. Leave them blank. 

COLUMN 57 (TRANSPARENT LITERAL) 

Entry Explanation 

Blank No transparent literals or constants 

are present in the program. 

1 Transparent literals or constants can 

be present in the program. 

The transparent literal option must be specified if there 
are transparent literals or constants present in your 
program. Transparent literals or constants must begin 
with an apostrophe followed immediately by the 
shift-out (S/O) control character (hex OE), and must end 
with the shift-in (S/l) control character (hex OF) 
followed immediately by the terminating apostrophe. 
Transparent literals and constants are not checked for 
embedded apostrophes. 

If the transparent literal option is specified and a literal 
or constant is found that begins with an apostrophe 
immediately followed by the S/O control character, the 
RPG II compiler checks for a valid transparent literal or 
constant. The following conditions cause a literal or 
constant to be diagnosed as an invalid transparent literal 
or constant: 

• A second S/O control character is found before the 
S/l control character. 

• An odd number of 1-byte characters are found 
between the S/O and S/l control characters. 

• The S/l control character is not immediately followed 
by the terminating apostrophe. 

If a literal or constant is found to be an invalid 
transparent literal or constant, it is rechecked as an 
alphameric literal or constant. 



COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

Entry Explanation 

Blank RPGOBJ is the program identification 

assumed by the compiler. 

Any valid The first character of the program 
program identification must be alphabetic, 

name but cannot be #, $, or @. The 

remaining characters must be 
alphameric; however, no special 
character can be used and blanks 
must not appear between characters. 



Use columns 75 through 80 to assign a unique name to 
your object program. The compiler uses the program 
name in a program directory that contains the location 
of your program on disk. 

If the program contains a CONSOLE or WORKSTN 
device, the compiler also uses this program identification 
to name the display screen format load member for the 
program. The display screen format load member is 
generated by RPG II only for CONSOLE files; however, 
the name is created for both CONSOLE and WORKSTN 
files. This name is used by RPG II; therefore the user 
must generate his own load member with this name for 
WORKSTN files. For the display screen format load 
member name, the compiler uses the name specified as 
the value of the FMTS continuation line option. If the 
FMTS continuation line option is not specified, the 
compiler uses the characters specified in columns 75 
through 80 of the control specifications (the program 
name) and adds the characters FM to the end of the 
program name. FM is added to the end of the program 
name regardless of its length, and the resulting name 
contains no embedded blanks. 

If a cross-reference listing is to be generated for the 
program, this program identification is also used to 
identify the listing. 



COLUMNS 58-74 

Columns 58 through 74 are not used. Leave them blank. 
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Chapter 3. File Description Specifications 



File description specifications describe each file used by 
a program. One file description specifications statement 
is required for each file, and a maximum of 20 files can 
be described per program. 

Write the file description specifications on the Control 
and File Description Specifications sheet (see Figure 
3-1). 

Charts at the end of this chapter show all possible files 
that can be defined on the file description specifications 
sheet (see Figure 3-20 through Figure 3-30). The charts 
are arranged by device and show the basic entries for all 
possible DISK, PRINTER, CRT, KEYBORD, CONSOLE, 
WORKSTN, BSCA, and SPECIAL files. 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1. 

COLUMN 6 (FORM TYPE) 

An F must appear in column 6 to identify this line as a 
file description specifications statement. 
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Figure 3-1. RPG Control and File Description Specifications 



Columns 1-2 (Page) 3-1 



V 



COLUMNS 7-14 (FILENAME) 

Entry Explanation 

A valid Every file used in a program must 

filename have a unique name. The first 

character must be alphabetic. The 
remaining characters can be any 
combination of alphabetic and numeric 
characters; however, special characters 
are not allowed. Blanks cannot appear 
between characters in the filename. 
The filename can be from 1 to 8 
characters long, and must begin 
in column 7. 

Use columns 7 through 14 to assign a unique name to 
every file used in your program, with the following 
exceptions'. 

• Compile-time tables and arrays do not require a 
filename. 

• If multiple tables or arrays are read in at preexecution 
time from the same device, multiple filenames are 
required. 

For naming tables and arrays, see Columns 27-32 in 
Chapter 4, Extension Specifications. 



Input Files 

Input files contain records that a program uses as a 
source of data. All input files must be further described 
on input specifications, with the following exceptions: 

• Preexecution-time tables and arrays and record 
address files are described on the extension 
specifications. There is, however, a method of 
loading arrays using extension and input 
specifications. See Chapter 14, Tables and Arrays, for 
complete information. 

• Input files using the device name KEYBORD are 
further described on the calculation specifications 
when the KEY operation code is used. 

All input files must be described within the first 24 
noncommented file description specifications, including 
continuation statements. 



Output Files 

Output files contain records written or printed by a 
program. All output files, except table output files, must 
be further described on the output specifications. Table 
output files are further described on extension 
specifications. 



COLUMN 15 (FILE TYPE) 
Entry Explanation 

I Input file 

O Output file 

U Update file 

C Combined file 



Update Files 

Update files are disk files from which a program reads a 
record, updates fields in the record, and writes the 
record back in the location from which it was read. The 
fields to be updated in this file must be described on 
the input and output specifications. 

Records can be deleted from update files. The file must 
be defined as delete-capable when it is built (for further 
information on defining delete-capable files, see FILE 
Statement in the System Support Reference Manual). 

Records are deleted from files by specifying DEL in 
columns 16 through 18 of the output specifications (for 
further information on deleting records, see Columns 
16-18 (ADD/ DEL) in Chapter 9). Deleted records are 
filled with hex FFs. The record is not physically removed 
from the file. When a direct file load of a 
delete-capable file is executed, the entire file is 
initialized to deleted records (hex FFs). (For further 
information on direct file loading of delete-capable files, 
see Direct Files in this chapter.) 



3-2 File Description Specifications 



A chained file or a demand file can be updated at detail 
time, total time, or at exception output time. However, 
all other disk files can be updated only at detail time or 
exception output time during the same program cycle in 
which the record is read. 

An invalid record update operation message is issued if 
the record to be updated has not previously been read 
by the program, or if another record in the same file is 
retrieved between the retrieval and update of the 
specified record. After a record is retrieved, only one 
update is allowed if the files are shared (DISP-SHR). A 
second update attempt results in an error message, 
without retrieving the record again. 

You should use care when updating disk files in any 
program that supports multiple display stations 
(including MRT programs). If a file is shared by two or 
more display stations in a program and if the present 
record is not updated before the next read from the file, 
the following error conditions can occur: 

• An update can be lost. For example, if a record is 
read from file X and displayed at display station 1, 
then the same record is read from file X and 
displayed at display station 2. The update performed 
from one display station might then be destroyed by 
an update performed by the other display station. 

If this condition occurs and DISP-SHR was specified 
for file X, a diagnostic message is issued and the 
second update is not performed. 

• The wrong record can be updated. For example, if a 
record is read from file X and displayed at display 
station 1, then a different record is read from file X 
and displayed at display station 2. If display station 1 
then tries to update the first record, but the program 
does not reread that record, the program attempts to 
update the last record read from file X. If this 
condition occurs during an attempt to update an 
indexed file, a diagnostic message is issued and the 
requested update is not performed. Otherwise, the 
wrong record is updated. 

• An update performed by another program sharing the 
file can be lost. For example, if a record is read from 
file X and is displayed at display station 1, then a 
record in a different sector is read from file X and 
displayed at display station 2. The second read from 
file X causes the system support program product to 
free the sector containing the first record. Another 
program sharing file X can then update the first 
record. If display station 1 also tries to update that 
record using the original field values, the updates 
made by the other program may be lost. 



You can avoid the preceding error conditions by using 
one of the following techniques: 

• Before performing an update, reread the record and 
check that none of the fields being updated have 
been changed since the record was displayed for 
updating. (If any of the fields were changed, you 
might want to redisplay the field for updating again 
or, if possible, perform the update using the field 
values currently in the record.) 

• Within the program, define an array for each disk file. 
The array should contain one element for each 
display station. When a display station operator 
enters a relative record number, or index key of a 
record to be updated, the program should check the 
array to ensure that no other display station is 
updating that record. If no other display station is 
updating the requested record, the program should 
place the specified relative record number, or index 
key, into the array element corresponding to the 
display station. The program can then read the 
record and display it at the display station. After the 
operator enters the updates, the program must reread 
the record being updated and update it using the 
information entered from the display station. The 
program should then blank out the array element 
corresponding to the display station. 

If the possibility exists that another program may 
update the same file concurrently, the file should be 
defined as a different logical file for each display 
station using the program. Shared input/output must 
be used. If you use logical files and specify 
DISP-SHR for each logical file, the system support 
program product protects the sector containing the 
record from updates by other programs. Using 
shared input/output reduces the amount of space 
required for input/output buffers. In addition, shared 
input/output automatically performs the reread 
operation before updating the record. 

Note: Additional input/output areas (numeric entry in 
column 32 of the file description specifications) 
cannot be specified for disk files using a shared 
input/output area. 

CAUTION 

If shared input/output is not used and the reread of 
the record is performed by the program, the record is 
momentarily not protected for update by the system 
support program product. Another program can then 
update that same record before the reread is 
completed. 
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Combined Files 



Primary Files 



A combined file is both an input file and an output file. 
A combined file can be specified only if the device name 
in columns 40 through 46 of the file description 
specifications is SPECIAL or WORKSTN. A program 
reads records from a combined file and includes output 
data on the records in the file. The result is one file that 
contains both input and output data. Combined files 
must be further described on both the input and output 
specifications. 



COLUMN 16 (FILE DESIGNATION 


Entry 


Explanation 


P 


Primary file 


S 


Secondary file 


C 


Chained file 


R 


Record address file 


T 


Table file (preexecu 




tables or arrays) 


D 


Demand file 


Blank 


Output file (except 



output files) 

Use column 16 to further identify the use of input, 
combined, and update files. Leave the column blank for 
all output files except chained output files. 



An input, combined, or update file can be specified as a 
primary file. A primary file is not required in a program. 
However, if specified, the primary file is the main file 
from which a program reads records. In multifile 
processing, the primary file is used to control the order 
in which records are selected for processing. (See 
Chapter 11, Multifile Processing, for more information on 
record selection in primary files.) 

If a primary file is not specified and one or more 
secondary files are specified, the first secondary file is 
assigned as the primary file. If no primary or secondary 
files are specified, you must provide an exit for your 
program by setting on the LR indicator. 

If KEYBORD is specified as the device for a primary 
input file, no other files in the program can be specified 
as primary or secondary files. In this case, you must 
provide an exit for your program by setting on the LR 
indicator. 

If WORKSTN is specified as the device for a primary 
file, no other files in the program can be specified as 
secondary files. 



Secondary Files 

Secondary files are used only in programs that do 
multifile processing. All files used in multifile 
processing, except the primary file, are secondary files. 
A secondary file can be an input, update, or combined 
file. Secondary files are processed in the order in which 
they are written in the file description specifications. 



See Chapter 11, Multifile Processing, for more 
information on record selection for primary and 
secondary files. 
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Chained Files 



Table or Array Files 



A chained file is a disk file for which the CHAIN 
operation code is used to do one of the following: 

• Read records randomly 

• Load a nondelete-capable direct file 

A chained file can be an input, output, or update file. 
See Column 28 (Mode of Processing), Random by 
Relative Record Number or Key in this chapter for a 
discussion of random processing. See Chapter 10, 
Operation Codes, CHAIN, for information about the 
CHAIN operation code. 

No more than 15 chained and demand files can be 
specified for one program. 



A table or array file is an input file that contains table or 
array entries. Only preexecution-time table or array files 
are described on the file description specifications. 
However, all tables and arrays (compile time, 
preexecution time, and execution time) must be 
described by extension specifications. (For a complete 
description of tables and arrays, see Chapter 14, Tables 
and Arrays.) 

Table files are not used in record selection and 
processing. Table files are only a means of supplying 
entries for tables used by the program. When 
preexecution-time table or array files are read during the 
execution of the program, the program reads all the 
entries from the table or array file before it begins 
record processing. 

Table or array files must be sequential files. 



Record Address Files 

A record address file is an input file that indicates which 
records are to be read from a disk file, and the order in 
which these records are to be read. You can use only 
one record address file in a program. All record address 
files must be further defined on the extension 
specifications. Record address files contain either 
record-key limits or relative record numbers. 

Record address files that contain record-key limits can 
be disk files or CONSOLE files. These record address 
files are used with indexed files only. See Column 28 
(Mode of Processing), Sequential Within Limits in this 
chapter for a complete discussion of this topic. 



Demand Files 

Demand files can be input, update, or combined files. 
The READ operation code must be used in the 
calculation specifications to read any demand files 
except those entered from files assigned to the 
KEYBORD. (The KEY operation code must be used in 
calculation specifications to read from KEYBORD 
demand files.) See Chapter 10, Operation Codes, READ, 
for a complete discussion of processing demand files. 

No more than 15 demand and chained files can be 
specified for one program. 



Record address files that contain relative record 
numbers in binary format can only be disk files. These 
files are called addrout (address output) files, and they 
are produced by the sort program. An addrout file can 
be used with a sequential, indexed, or direct file. See 
Column 28 (Mode of Processing), Random by Addrout 
File in this chapter for a complete discussion of this 
topic. 
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COLUMN 17 (END OF FILE) 

Entry Explanation 

Blank The program can end whether or 

not all records from the file 
are processed. However, if column 
17 is blank for all files, all 
records from every file must be 
processed before the program 
can end. This column must be blank 
for WORKSTN or KEYBORD files. 

E All records from the file must be 

processed before the program can end. 
This entry is not valid for files 
processed by record address files. 

Use column 17 to indicate whether the program can end 
before all records from the file are processed. Column 
17 applies only to files used in a program that does 
multifile processing. 

Column 17 can be used only for input, update, or 
combined files used as primary, secondary, or record 
address files. The devices associated with column 17 
are DISK and CONSOLE. End of file for CONSOLE files 
is identified when the operator presses command key 
12, that is, the Cmd key and the = (equal) key. 

A program that performs multifile processing could 
reach the end of one file before reaching the end of the 
others. It needs, therefore, some indication of whether 
it is to continue reading records from the other files or 
end the program. An entry in column 17 provides that 
indication. 

If the records from all files must be processed, column 
17 must be blank for all files or contain Es for all files. 

Note: An entry cannot be made in column 17 for files 
assigned to the KEYBORD and WORKSTN devices. To 
terminate the program with a primary file assigned to 
the KEYBORD, the LR indicator must be set on by 
calculation specifications. 



COLUMN 18 (SEQUENCE) 

Entry Explanation 

Blank No sequence checking is to 

be done. This column must be 
blank for a WORKSTN file. 

A Sequence checking is to be done. 

Records in the file are in 
ascending order. 

D Sequence checking is to be done. 

Records in the file are in 
descending order. 

Use column 18 to indicate whether the program is to 
check the sequence of records. Column 18 applies to 
input, update, or combined files used as primary or 
secondary files. Sequence checking can be done for 
disk files (except those processed randomly) and 
CONSOLE files. Use columns 61 and 62 of the input 
specifications to identify the record fields containing the 
sequence information. 

Sequence checking is required when match fields are 
used in the records from the file. When a record from a 
matching input file is found to be out of sequence, the 
program halts and the operator has three options: 

• Bypass the record out of sequence and read the next 
record from the same file. 

• Bypass the record out of sequence, turn on the LR 
indicator, and perform all end-of-job and final total 
procedures. 

• Cancel the entire program. 

If column 18 contains an entry and matching records are 
specified, the entry in column 18 must be the same for 
all files. If column 18 is left blank and matching records 
are specified, then ascending order is assumed for a 
primary file and the sequence of the primary file is 
assumed for all secondary files. 



COLUMN 19 (FILE FORMAT) 
Entry Explanation 

F or blank Fixed-length records 

An F in column 13 indicates itial aii records in the file 
are of the same length. If this column is blank, F is 
assumed. 



3-6 File Description Specifications 



COLUMNS 20-23 (BLOCK LENGTH) 

Entry Explanation 

Blank The block length for this file 

equals the record length. These 
columns must be blank for a 
WORKSTN file and can be blank 
for any other file. 

1-9999 Block length for disk equals the 

record length or is a multiple 
of the record length. 

1 -9999 Block length for a SPECIAL file 

equals the record length or 
is greater than the record 
length. 

1 -4075 Block length for a BSCA file 

equals the record length or is 
a multiple of the record length. 

2-1518 Block length for a CONSOLE file, 

if entered, must equal the record 
length. 

1 -79 Length of largest field keyed for 

a KEYBORD file. 

1 -79 Length of largest output record 

for a CRT file. 

1-198 Length of largest output record 

for a printer file. (Entries from 
133 through 198 should only be 
used for printers with 198 
print positions.) 

Use columns 20 through 23 to specify the block length 
for the file. The entry made in columns 20 through 23 
depends on the device named for the file. The block 
length entry must end in column 23, and leading zeros 
can be omitted (see Figure 3-2). 

The function of the block length entry is to specify the 
amount of main storage to use for the input/output 
area. The maximum block length is 9999. The block 
length entered for disk files must equal the record 
length or be a multiple of the record length. If the 
record length is entered but the block length is not 
specified, RPG assumes the block length equals the 
record length. 



COLUMNS 24-27 (RECORD LENGTH) 

Entry Explanation 

1 -4096 Record length for disk 

or SPECIAL files. 

1 -4075 Record length for BSCA files. 

2-1518 Record length for CONSOLE files. 

1 -79 Length of largest field keyed 

for KEYBORD files. 

1-79 Length of largest output record 

for CRT files. 

1-198 Length of largest output record 

for printer files. (Entries from 
133 through 198 should only be used 
for printers with 198 print positions.) 

2-58 Twice the record address field 

length for a record address file 
assigned to the CONSOLE device. 

1 -9999 Length of largest input or output 

record for a WORKSTN file. 

Use columns 24 through 27 to indicate the length of the 
records in a file. An entry must be made for each file, 
and the entry depends on the device named for the file. 
Entries in these columns must end in column 27, and 
leading zeros can be omitted (Figure 3-2). 

All records in one file must be the same length. (For 
update files, the length of the record after the record is 
updated must be the same as it was before the record 
was updated.) The maximum length allowed depends 
upon the device assigned to the file (see Figure 3-2). 
The record length specified can be shorter than the 
maximum length allowed for the device but not longer. 
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Cols 40-46 
Device 



DISK 



CONSOLE 



KEYBORD 



PRINTER 



Cols 20-23 
Block Length 1 



Record length or a multiple 
of record length 

Record length 

Record address file 
record length 

Length of largest field 
to be keyed 

Record length 



Cols 24-27 
Record Length 



Record length 

Record length 
Record length 



Length of largest field 
to be keyed 

Record length 



Maximum 
Record Length 



4096 



1518 




58 




79- 


alphameric 


15- 


numeric 



198 



CRT 



SPECIAL 



BSCA 



WORKSTN 



Length of longest output 
record 

Record length or greater 
than the record length 

Record length or a multiple 
of record length 

Must be blank 



Length of longest 
output record 

Record length 



Record length 



Length of longest 
input or output 
record 



1 Block length must be blank for a WORKSTN file and can be blank for any other file. 
Figure 3-2. Block Length and Record Length Entries 



79 



4096 



4075 



9999 



The record length for KEYBORD files should be the 
length of the largest field to be keyed (that is, the 
record length equals the largest field length specified in 
columns 49 through 51 of the calculation specifications 
when the KEY operation code is used). If the KEY 
operation is used to display a message, you must also 
consider the length of the message when you specify 
the record length for the KEYBORD file. The maximum 
alphameric field length is 79 characters, and the 
maximum numeric field length is 15 characters. If the 
record length specified for a KEYBORD file is 40 or less, 
a display of six lines with 40 characters per line is 
centered both vertically and horizontally on the display 
screen. If the record length is greater than 40, the 
display consists of 24 lines with 79 characters per line. 



COLUMN 28 (MODE OF PROCESSING) 
Entry Explanation 



Blank 

L 
R 



Consecutive 1 
Sequential by key 1 

Sequential within limits 1 

Random by relative record number 
Random by key 
Random by addrout file 
Direct file load (random load) 



1 See Shared File Considerations in this chapter. 



3-8 File Description Specifications 



Use column 28 to indicate the method by which records 
are to be read from the file, or to indicate that a direct 
file load (random load) is to take place. 

For disk files specified as primary, secondary, demand, 
or chained, the possible processing methods depend 
upon the organizations of the files (see Figure 3-3). For 
the other types of files, consecutive processing is the 
only possible method. 

Column 31 further identifies the access method for the 
program. See Column 31 (Record Address Type) in this 
chapter. 

Primary, Secondary, or Demand Files 
File 
Organization Possible Processing Methods 

Sequential - Consecutively 

- Randomly by addrout file 



Direct 



Indexed 



Consecutively 
Randomly by addrout file 
(except demand files) 

Sequentially by key 
Sequentially within limits 
Randomly by addrout file 
Consecutively (not using the index) 



Chained Files 



File 

Organization Possible Processing Methods 

Sequential Randomly by relative record number 

Direct Randomly by relative record number 

Indexed Randomly by key or relative 

record number 

Figure 3-3. Possible Processing Methods for Disk Files 



Consecutive 

The consecutive processing method applies to 
sequential, indexed, and direct input disk files (blank in 
column 31). During consecutive processing, records are 
read in the order they appear in the file. The contents of 
spaces left for missing records in direct files are read as 
though the records were there, unless the file is defined 
as delete-capable. If the file is delete-capable, deleted 
or missing records are bypassed. (When a 
non-delete-capable direct file is loaded, such spaces are 
filled with blanks. If the file is delete-capable, the 
spaces are filled with hex FFs to designate deleted 
records.) If an indexed file is processed consecutively, 
the index is not used. Records in the file can only be 
read; they cannot be updated or added to the file. 

The program reads records from the file until either the 
end of that file is reached or the program ends because 
of an end-of-file condition of another file. See Column 
17 (End of File) in this chapter for more information 
about the second condition. 



Sequential by Key 

The sequential-by-key method of processing applies 
only to indexed disk files that are used as primary files, 
secondary files, or demand files. 

Records are read in ascending key sequence. However, 
records added to the file since the last sort of the index 
cannot be accessed unless the I FILE attribute is 
specified. If the file is to be processed sequentially as 
an input file or if the file is to be updated or added to, 
the keys must be sorted to allow access to all the added 
records in the file. To ensure that the keys are sorted, 
make sure that the FILE OCL statement does not have 
DISP-SHR specified, or use the KEYSORT procedure 
(see Shared File Considerations in this chapter). The 
program reads records until all records in the file are 
processed or the program ends because of the 
end-of-file condition of another file. See Column 17 
(End of File) in this chapter for more information about 
the second condition. 
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Sequential Within Limits 

The sequential-within-limits method of processing 
applies only to indexed disk files used as primary files, 
secondary files, or demand files. A limits record 
consists of the lowest record key and the highest record 
key of the records in the indexed disk file that are to be 
read. Limits records are contained in a record address 
file. The record address file can be a disk file or a 
CONSOLE file. 

The sequential-within-limits method can be executed 
when you use either (1) a record address file containing 
limits records or (2) the SETLL operation code in 
calculation specifications. However, records added to 
the file since the last sort of the index cannot be 
accessed unless the I FILE attribute is specified (see 
Shared File Considerations in this chapter). 

To process sequentially within limits, the program reads: 

• A limits record from the record address file 



The record address file containing the limits and the 
files being processed by limits can have record keys in 
different formats. For example, one file can have 
packed keys and the other zoned decimal keys. During 
execution time, the format of the key from the record 
address file is changed to the format of the record key 
in the file being processed by limits. If the formats 
differ, the format of the keys for each file must be 
indicated by an A or a P in column 31. Also, the zoned 
decimal key length must be twice the packed length, 
minus one or two. See Packed Decimal Format (P) in 
Chapter 7 for more information concerning this 
calculation. 

Note: A key cannot contain any hex FF characters. 

The same set of limits can appear in more than one 
record in the record address file. Data records, 
therefore, can be processed as many times as you want. 

If the two record keys in a limits record are equal, only 
one data record is read. 



• Records with keys greater than or equal to the low 
record key and less than or equal to the high record 
key 

The program repeats this procedure until either the end 
of the record address file is reached or the program 
ends because of the end-of-file condition of another 
file. See Column 17 (End of File) in this chapter for 
more information about the second condition. 



Note: Double buffering (column 32) should not be 
specified for the record address file. 

The SETLL operation code method of limits processing 
applies to any indexed disk file used as a demand file (D 
in column 16 and L in column 28 of the file description 
specifications). You cannot, however, process an 
indexed demand file with SETLL if you are using a 
record address file to set the limits of the file. 



The format of records in a record address file containing 
limits must conform to these rules: 

• Only one set of limits is allowed per record in the 
record address file. The length of a record in a 
record address file, therefore, must be twice the 
length of the record key. 

• The low record key must begin in position 1 of the 
record. The high record key must immediately follow 
the low record key. A record key can be from 1 to 
29 characters in length. 

• The low record key and the high record key must 
have the same length, and each key must have the 
same length as the key field length specified in 
columns 29 and 30. Therefore, leading zeros may be 
necessary when numeric record keys are specified. 



The maximum number of files that can be processed 
with the SETLL operation is limited by the number of 
demand files permitted in an RPG II program. A 
maximum of 15 demand and/or chained files is allowed 
per program. See Figure 3-4 for an example of SETLL. 
For more information on how to use the SETLL 
operation code to set limits, see Chapter 10, Operation 
Codes. , 

When the end-of-file indicator is turned on, another 
SETLL can be specified and processing of the file can 
continue. However, it is not necessary to wait for end 
of file before you specify another SETLL operation. 



An alphameric record key can contain blanks. 



3-10 File Description Specifications 



Random by Relative Record Number or Key 

Random processing by relative record number or by key 
applies to chained files only. Either method requires use 
of the CHAIN operation code. The records of a file to 
be read or written must be processed by the CHAIN 
operation code. The records are read only when the 
CHAIN statements that identify them are executed. 

For sequential and direct files, relative record numbers 
must be used to identify the records (see Figure 3-5). 
Relative record numbers identify the positions of the 
records relative to the beginning of the file. For 
example, the relative record numbers of the first, fifth, 
and seventh records in a file are 1, 5, and 7 
respectively. 

For indexed files, record keys must be used to identify 
the records (see Figure 3-6). A record key is the 
information from the key field of a record. The 
information is used in the index portion of the file to 
identify the record. 

When random processing is used, records are read from 
the chained update file during the calculation phase of 
the program. Records can be read during total 
calculations and updated during total output, or be read 
during detail calculations and updated during detail 
output (see Figure 3-7). 
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The input disk file, MASTER, described as an indexed 
file to be processed by record keys is to be processed 
within the limits contained on the record address file, 
LIMITS. The LIMITS file, which is further described on 
the extension specifications sheet, is entered from the 
CONSOLE device. 



Each set of limits read from LIM ITS consists of the low 
and high account numbers to be processed. Because the 
account number key field (ACCT) is eight positions long, 
each set of limits includes two 8-position keys. 
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As MASTER is processed within each set of limits, the 
corresponding records are written out on the printer 
output file, PRINT. Processing is complete when all 
sets of limits have been processed. 
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Figure 3-4 (Part 1 of 2). Processing Indexed Files Sequentially Within Limits 
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File SM ASTER is processed by the SETLL operation code. 
It is characterized by having no extension specifications, 
and its filename appears in factor 2 of the SETLL operation 
code. In this example the first record read from file 
SM ASTER would be the one whose key is equal to or the 
next higher than the literal 'AAAAAAAA'. Records are 
read sequentially to end of file unless the cycle is interrupted 
by additional SETLL operations. 
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Figure 3-4 (Part 2 of 2). Processing Indexed Files Sequentially Within Limits 
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The direct update file, MASTER, is to be processed 
randomly by relative record numbers. The account 
number (ACCT) from the primary DISK file, CHANGE, 
is used as the relative record number. As each record is 
read from CHANGE, the MASTER record corresponding 



to the account number is read during calculation time by 
the CHAIN operation code. At detail output time, the 
data in the NEW field replaces the original data in the 
NAMADR field and the updated MASTER record is out- 
put to its original relative record location on the disk file. 
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Figure 3-5. Random Processing of a Direct File by Relative Record Number 
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MASTER, a chained update file, is described on the file 
description specifications sheet as an indexed file to be 
processed by keys. As each record is read from the input 
disk file, CHANGE, the account number (ACCT) is used 
as the key to chain to the corresponding record in 
MASTER at calculation time. At detail output time, the 



data in the NEW field of CHANGE replaces the original 
data in the NAMADR field. The updated MASTER 
record is then written on its original disk location. See 
Column 32 (File Organization or Additional I/O Area) 
in this chapter for a description of indexed file organiza- 
tion. 
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Figure 3-6. Random Processing of an Indexed File by Key 
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Indexed file, MASTER, is described as a chained update 
file to be processed by keys. The key field in MASTER 
is ITEMNO, in positions 1 through 10. As each record 
is read from TRANS, the input transaction file, the 
ITEMNO field is used as the key to chain to MASTER 
during calculations. If the character 2 is in position 64 
of the transaction record, the quantity in ADJUST is 

Input Specifications 



added to the ONHAND field of MASTER. If the 
character 3 is in position 64, ADJUST is subtracted 
from ONHAND. If the character 1 appears in location 
64 of the MASTER record, the updated ONHAND 
field is written out on its original location in the 
MASTER record at detail output time. 
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Figure 3-7. Updating an Indexed File 
3-16 File Description Specifications 



Random by Addrout File 

An addrout (address output) file is a record address file 
produced by the sort program. It contains the relative 
record numbers of the records in a disk file. (Each 
relative record number is a 3-byte binary field.) You can 
use addrout files to process input or update files that 
are designated as primary or secondary files. 

When an RPG II program uses an addrout file, it reads a 
binary relative record number from that file. The binary 
relative record number is then converted to a disk 
address, and the record at that address in the original 
file is located and read. Records are read in this manner 
until either the end of the addrout file is reached or the 
program ends because of the end-of-file condition of 
another file (see Figure 3-8). See Column 17 (End of 
File) in this chapter for more information about the 
second condition. 

Because addrout files are record address files, they 
must be further described on the extension 
specifications. Both the addrout file and the file to be 
processed by the addrout file must be described on the 
file description specifications. 



COLUMNS 29-30 (LENGTH OF KEY FIELD OR 
RECORD ADDRESS FIELD) 

Entry Explanation 

1 -29 Length of record key or 

relative record number 

Use columns 29 and 30 to indicate: 

• The length in bytes of the record keys in indexed files 
and record address files 

• The length of the relative record numbers in addrout 
files, which is always 3 

Columns 29 and 30 apply only to indexed files and 
record address files. 

All of the key fields in the records in an indexed file 
must be the same length. The maximum length is 29 
bytes (8 bytes for record keys in packed format). All of 
the relative record numbers contained in an addrout file 
are 3 characters long. 



Shared File Considerations 

After an indexed file has records added to it, the keys 
might be out of sequence. If the file is to be processed 
sequentially as an input file (blank or L in column 28) or 
if the file is to be updated or added to, the keys must 
be sorted to allow access to all the records in the file, 
unless the I FILE attribute is specified. To ensure that 
the keys are sorted, make sure the FILE OCL statement 
does not have DISP-SHR specified, or use the 
KEYSORT command. An indexed file that is created 
(output file) has its keys sorted at job termination if an 
unordered load was specified (U in column 66 of the file 
description specifications). For further information on 
key sorting, see Key Sorting for Indexed Files in Chapter 
2 of the Concepts and Design Guide. 

IFILE support allows shared, indexed sequential 
processing of all added records in an indexed file. 
Without IFILE support, indexed sequential processing is 
limited to only those records having index entries in the 
primary portion of the index. Indexed files can be given 
the IFILE attribute by specifying it on the FILE OCL 
statement or in the SETFILE or BLDFILE procedure. For 
more information about IFILE support, see Indexed Files 
with the IFILE Attribute in Chapter 2 of the System/34 
Concepts and Design Guide. 
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The record address file, AD RTF I LE, defined as an 
addrout disk file, consists of 3-byte binary relative 
record numbers that correspond to locations of records 
on the input disk file, MASTER. As each record is read 
from AD RTF I LE, the indicated record from MASTER 
is located and read. For each record read from MASTER 
(indicator 01 is on), a detail line is printed on the printer 
output file, PRINTER. 



Because end of file (E in column 17 of the file descrip- 
tion specifications sheet) is specified for the addrout 
file, processing continues until all records in ADRTFILE 
have been read. 
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Figure 3-8. Processing a Sequential Disk File With an Addrout File 
3-18 File Description Specifications 



COLUMN 31 (RECORD ADDRESS TYPE) 

Entry Explanation 

Blank - Relative record numbers are used 

in processing sequential and 
direct files. 

- A sequential or direct file is 
being loaded. 

- Records are read consecutively. 

- Keys in the record address file 
are in the same format as keys 
in the indexed files. 

A Record keys in zoned decimal format 

are used in processing or loading 
indexed files and processing record 
address files. 

I Relative record numbers from the 

addrout file are used to process the 
file, or the file is an addrout file 
consisting of relative record numbers. 



P Record keys in packed format are 

used in processing or loading 
indexed files and processing 
record address files. 

Use column 31 to indicate how records in a disk file are 
identified. Column 31 applies to disk files specified as 
input, update, or chained output files. Together, 
columns 28 and 31 indicate: 

• The method by which records are read from the file 

• A direct file load 



Following is the specification identifying methods for 
retrieving records: 

Primary, Secondary, or Demand Files 



Processing Entry in 


Entry in 


Method Column 28 


Column 31 


Consecutive Blank 


Blank 


By addrout (except R 


I 


demand files) 




Sequential by key Blank 


A or P 


Sequential within L 


A or P 


limits 




Chained Files 





Random by relative R 
record number 
Random by key R 
Direct file load R 

(random load) 



Blank 

A or P 
Blank 1 



1 For nondelete-capable file, a direct file load requires an O in 
column 15 and a C in column 16. For delete-capable files, a 
direct file load requires an O in column 15 and a blank in 
column 16. 

For addrout files, column 31 must contain an I, 
indicating that binary relative record numbers are used in 
processing. 

Note: When building a file with packed keys (P in 
column 31), you must specify the key field as packed in 
your output specifications. 



Column 31 (Record Address Type) 3-19 



COLUMN 32 (FILE ORGANIZATION OR 
ADDITIONAL INPUT/OUTPUT AREA) 



Entry 

Blank 

I 

T 
1-9 



Explanation 

Sequential file or direct file. 

The program uses one input/output 

area for the file. 

Indexed file. 

Addrout file. 

Sequential file. 

The program uses two input/output 

areas for the file. 



Use column 32 to (1) identify the organization of all disk 
files except addrout files, (2) identify addrout files, and 
(3) indicate whether one or two input/output areas are 
to be used for sequential files. 



File Organization 

File organization is the arrangement of records in a file. 
The three organizations are indexed, direct, and 
sequential. Files other than disk files are always 
sequential files. Disk files can be sequential, direct, or 
indexed files. 



Indexed Files 

An indexed file is a disk file in which the location of the 
records is recorded in a separate portion of the file 
called an index. The index and its associated records 
occupy adjacent positions on the disk. The index 
contains the record key and disk address of every record 
in the file (see Figure 3-9). 

See Key Sorting for Indexed Files in Chapter 2 of the 
Concepts and Design Guide for an explanation of when 
keys for an indexed file are sorted! 



A record key is the information from the key field of a 
record. The record key identifies the records in an 
indexed file. Record keys are always required in an 
indexed file. Indexed files can be loaded with the keys 
in ascending sequence or in unordered sequence. See 
Column 66 (File Addition) in this chapter for a definition 
of the unordered load function. 

If an indexed file is processed consecutively, the index is 
not used. Records are processed in the order in which 
they are physically stored in the file; that is, in relative 
record number order. They are not retrieved in key 
sequence. 



Direct Files 

Direct files are disk files in which records are assigned 
specific record positions. Regardless of the order in 
which the records are put in the file, they always occupy 
a specific position in the file relative to the beginning of 
the file. Relative record numbers identify the position of 
a record within the file. 



Direct File Load (Nondelete- Capable Files): To define a 
nondelete-capable direct file load, you must specify the 
disk file to be loaded as a chained output file in the file 
description specifications (columns 15 and 16). On the 
calculation specifications, factor 1 must contain either 
the name of a field containing the relative record 
number or the relative record number itself; columns 28 
through 32 must contain the operation code CHAIN; and 
factor 2 must contain the name of the disk file to be 
loaded (see Figure 3-10). The field or the relative record 
number entered in factor 1 defines the record position 
for each record in the direct disk file. The relative record 
number can be a field or part of a field in the input 
records. Such fields are used for record identification of 
the input record, as well as for the disk records after the 
disk file is loaded. 

Before a nondelete-capable direct file is loaded, the disk 
space required for the file is automatically filled with 
blanks. When a record is read in, the relative record 
number is used to chain to the corresponding relative 
record position in the disk file, and the information 
contained in the input record is then written on disk, 
replacing the blanks with data. If a record is missing 
from the input file when a nondelete-capable direct file 
is loaded, the space reserved for that record in the disk 
file remains blank until the proper record is read in later 
(see Figure 3-11). 



3-20 File Description Specifications 



Once the direct file is loaded, records can be inserted or 
changed in the file if you define the direct file as an 
update file on the file description specifications. This 
file can then be processed consecutively or by the 
CHAIN operation. (Remember that any file defined as a 
chained output file is cleared entirely to blanks before 
any records are processed.) 

You might have to allow for synonyms when you load a 
nondelete-capable direct file. Synonyms are two or 
more records with the same relative record number. If 
you have synonyms, you can load the file in one of two 
ways: 

• Clear the file to blanks in the first job by defining it 
as a chained output file. Once the file is cleared, you 
can run one or more subsequent jobs using the 
update function to read record locations and check 
for synonyms while loading the file. 

• Load the direct file with records without synonyms, 
then run another job to identify synonyms and load 
them into the file. 

Note: Adding records to direct disk files is different 
from adding records to indexed files or extending 
sequential files. For sequential disk files, the new record 
is added at the first available position at the end of the 
file. The same process occurs for an indexed file, 
except that the record key and disk address are added 
to the file index. Any new records added to a direct 
disk file already have a space reserved for them. Hence, 
the record is inserted in its proper place, not merely 
added to the physical end of the file. 



Unlike the nondelete-capable direct file load, this 
method of direct file load does not use a CHAIN 
operation to indicate where the record is to be located. 
You must place the relative record number in the 
RECNO field. The records are written to the output file 
in the same way they are written to any device. The 
records can be written as heading, detail, total, or 
exception output. If there is a record present with the 
same relative record number as the record you are 
loading, an error message is displayed and the operator 
can continue, bypassing the duplicate record. With this 
method of direct file load, the system checks for 
synonyms. 

Before a delete-capable direct file is loaded, the disk 
space required for the file is initialized to deleted records 
(hex FFs). The relative record number that the 
programmer places in the RECNO field indicates where 
the record is to be loaded in the file. The information in 
the record is written over the deleted record, replacing 
the hex FFs with data. If a deleted record is not 
replaced with data, it remains in the file. A record can 
later be added at this relative record number (see Adding 
Records to Delete-Capable Direct and Sequential Files in 
this chapter). A deleted record cannot be accessed by 
the program. If a deleted record is accessed by a 
CHAIN operation, the no-record-found indicator 
(specified in columns 54 and 55) is set on. 

This method of direct file load can be used only for 
delete-capable files. If you attempt to load a 
nondelete-capable file this way, an error occurs and a 
message is displayed. Nondelete-capable files must be 
loaded using the CHAIN operation. 



Direct File Load (Delete-Capable Files): To specify a 
delete-capable direct file load, you must define the disk 
file as an output file that is processed randomly (0 in 
column 15 and R in column 28 of the file description 
specifications). Also required is a file description 
specifications continuation line with the keyword RECNO 
and its associated field. The relative record number of 
the record to be loaded in the file must be placed in the 
.RECNO field before the record is loaded (for an example 
of this method of direct file load, see Figure 3-12). 



Sequential Files 

Sequential files are files in which the order of the 
records is determined by the order in which the records 
are put in the file. For example, the tenth record put in 
the file occupies the tenth record position (see Figure 
3-13). 



Column 32 (File Organization or Additional Input/Output Area) 3-21 



Additional Input/Output Area 

Normally the program uses one input/output area for 
each file. A second area, however, can be used for 
sequential files specified as input or output files in 
column 15. 

The use of two input/output areas increases the 
efficiency of the program. However, it also increases 
the size of the program. Therefore, before indicating 
that two areas are to be used for a file, be sure that the 
increase in size does not make your program exceed the 
capacity of your system. 

Additional input/output areas cannot be specified for 
table files, for demand files (except for BSCA demand 
files), for indexed files, for chained files, for direct files, 
or for disk files with a shared input/output area (a 1 in 
column 48 of the control specifications). If both 
additional and shared input/output areas are specified, 
the additional input/output area specification is ignored 
and a warning message is issued. 



3-22 File Description Specifications 



Records are stored in the data portion of the 
file in the same order in which they are read. 
When a record is stored in the data portion, 
an entry for the record is made in the index. 
After the last entry is made in the index, 
the entries are sorted into ascending order 
according to the record keys. 
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The order of the records in the data portion remains 
unchanged when the entries in the index are sorted. 
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Figure 3-9. Indexed File Organization 
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The direct file being created, CUSTFILE, is defined as 
chained output file. 
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CUSTNO field from input records is used to chain to the 
direct file. Indicator 04 turns on if the record is not found. 
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Output Specifications 
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A record is written for each successful CHAIN operation. 
Figure 3-10. Using CHAIN to Load a Direct File 



3-24 File Description Specifications 



Relative record number 



Records are stored on disk in the order 
indicated by the relative record numbers. 
Spaces are left in the file for missing 
records (in this case, records 5 and 7). 




The programmer usually derives relative record numbers from information in the records. 
Figure 3-11. Direct File Organization 
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The direct file being created, CUSTFILE, is defined as an 
output file that is processed randomly. A file description 
specifications continuation line containing the keyword 



RECNO specifies that RPG uses the contents of the field 
CUSTNO as the relative record number of the record to 
be loaded. 































































Input Specification: 
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These input specifications define the fields that make up the 
record to be loaded. The CUSTNO field from the input 



record is used as the relative record number to indicate 
the record to be loaded. 
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A record is loaded in the CUSTFILE for each record read 
from the RECIN file. 

Figure 3-12. Using RECIMO to Load a Direct File 



3-26 File Description Specifications 




Records are stored on disk in the same order in 
which they are read. No index is kept, and no 
spaces are left between disk records. 



Figure 3-13. Sequential File Organization 



Column 32 (File Organization or Additional Input/Output Area) 3-27 



Addrout Files 

When describing an addrout file, you must place a T in 
column 32. The addrout file must be a disk file. See 
Column 28 (Mode of Processing) in this chapter for a 
description and example of addrout processing. 



When overflow is handled automatically and the 
overflow line is sensed, the following steps occur: 

1. All remaining detail lines in that program cycle are 
printed if a printer operation spaced or skipped to 
the overflow area. 



COLUMNS 33-34 (OVERFLOW INDICATOR) 
Entry Explanation 

Blank No overflow indicator is used. 

OA-OG, Specified overflow indicator 

OV conditions what records will 

be printed when overflow occurs. 

Use columns 33 and 34 to specify an overflow indicator 
to condition which lines in each printer file will be 
printed when overflow occurs. 

Only one overflow indicator can be assigned to a file. If 
more than one printer file in a program is assigned an 
overflow indicator, the indicator must be unique for each 
file. 

Overflow occurs when a record is printed on the 
overflow line or when a space or skip instruction causes 
forms movement past the overflow line. When overflow 
occurs, the specified overflow indicator turns on and 
remains on for the rest of the program cycle. The 
indicator turns off after all lines conditioned by that 
indicator are printed. If no overflow indicator is 
specified and the fetch overflow routine is not used, the 
compiler automatically handles overflow. See Column 16 
(Fetch Overflow) in Chapter 9, Output Specifications, for 
a description of the fetch overflow routine. 



Automatic Overflow 

If an overflow indicator is not specified, the compiler 
automatically advances the forms to the next page and 
continues printing once overflow is sensed. Printing 
begins on line 06 after the operator has positioned the 
first page, and overflow occurs at six lines less than the 
system page size unless the overflow line has been 
changed by line counter specifications. Detail lines, 
therefore, begin on line 06 for all pages except the first. 



2. All remaining total lines in that program cycle are 
printed. 

3. A skip to line 06 occurs. 



Overflow Indicator Specified 

RPG II logic allows the overflow indicator to turn on at 
three different times in the program cycle: (1) at total 
time, (2) at detail time, and (3) at calculation time if 
exception output is used. There is only one time in the 
program cycle, however, when the program checks to 
determine whether the overflow indicator is on: right 
after all total records are printed. 

When the overflow line is sensed, the overflow indicator 
turns on and the following steps occur: 

1 . Detail lines are printed if that part of the program 
cycle is not already completed. 

2. Total lines are printed. 

3. Total overflow lines are printed if conditioned by 
the overflow indicator. 

4. Forms advance to the next page if indicated by the 
skip specifications on a heading line or total line. 

5. Heading and detail lines are printed if conditioned 
by overflow indicators. 

For more information on how to condition output 
operations with the overflow indicator, see Columns 
23-31 (Output Indicators) in Chapter 9, Output 
Specifications. 



3-28 File Description Specifications 



COLUMNS 35-38 (KEY FIELD STARTING 
LOCATION) 

Entry Explanation 

1 -4096 Record position in which the key 

field begins 

Use columns 35 through 38 to identify the record 
position in which the key field for an indexed file begins. 
Columns 35 through 38 apply only to indexed disk files, 
and an entry must be made in these columns for an 
indexed disk file. The key field of a record contains the 
information that identifies the record. This information is 
used in the index portion of the file. The key field must 
be in the same location in all of the records in the file. 
The entry in these columns must end in column 38. 
Leading zeros can be omitted. 

Key fields cannot contain any hex FF characters. 
Therefore, if the key field is a binary field, you must be 
sure that no hex FF characters appear in the key field. 



COLUMN 39 (EXTENSION CODE) 

Entry Explanation 

Blank No extension or line counter 

specifications are used. 

E Extension specifications further 

describe the file. 

L Line counter specifications further 

describe the file. 

Use column 39 to indicate whether the file is further 
described on the extension specifications or on the line 
counter specifications. Column 39 applies only to (1) 
preexecution-time table and array files, (2) record 
address files, and (3) output files assigned to the printer. 
Describe printer output files on the line counter 
specifications, and describe table, array, and record 
address files on the extension specifications. 



COLUMNS 40-46 (DEVICE) 

Entry Explanation 

BSCA Binary synchronous communications 

adapter 

CONSOLE Console data file or console record 
address file 



CRT 
DISK 



Display screen 
Disk 



KEYBORD Keyboard 

PRINTER 132-position printer 

SPECIAL Used for a device not supported 

directly by RPG II 

WORKSTN Display station 

Use columns 40 through 46 to identify the input/output 
device used for the file. All entries must begin in 
column 40. The devices and the associated file types 
that can be used with each device are shown in Figure 
3-14. Figure 3-15 shows the columns that can be used 
for the devices named. 

WORKSTN, CONSOLE, CRT, and KEYBORD all refer to 
the same physical device-a display station that consists 
of a display screen and a keyboard. CONSOLE, CRT, 
and KEYBORD devices can be used only with one 
display station. A CONSOLE file can be used only as an 
input file and cannot be used to display existing records 
in a file. A KEYBORD file can be used as an 
input/output file with the SET and KEY operation codes, 
which allow the output of prompts and the input of one 
field at a time. A CRT file can be used only as an 
output file to display information on the screen; this 
information cannot be changed by the operator. The 
WORKSTN file is an input/output (combined) file, which 
allows the programmer to specify multiple fields that 
can be output fields, input fields, or output/input fields. 
The WORKSTN file can be used with multiple display 
stations or SSP-ICF sessions. 



Columns 35-38 (Key Field Starting Location) 3-29 



BSCA 

A BSCA device allows an RPG II program to transmit 
and receive binary synchronous data via a data 
communications network. For more information on the 
BSCA device, see Chapter 6, Telecommunications 
Specifications. 



CONSOLE 

Use CONSOLE as the device name in one of two ways: 
(1) for a record address file, or (2) for an input data file. 
If CONSOLE is used for a record address file, the file 
must be further defined by extension specifications. Use 
CONSOLE when you want data records entered directly 
from a display station to an executing program. 
CONSOLE is an input file only and cannot be used to 
display existing records. 
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1 For information on the specifications for the direct file load of a delete-capable file, see Direct File Load (Delete-Capable File) in 
this chapter. 



Figure 3-14. Devices and Associated File Types 
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Shaded columns must be blank. 



Figure 3-15. Columns That Apply to Device Named 



CRT 



The CRT (display screen) can be used as an output 
device for normal and exception output. (See Column 15 
in Chapter 9, Output Specifications, for more information 
on exception output.) Any alphameric character can be 
written on the display screen. If the record length is 
less than or equal to 40, up to 40 characters can be 
written across the width of the screen, and a maximum 
of six such lines can appear on the screen at one time. 
The display is centered both vertically and horizontally 
on the screen. If the record length is greater than 40, 
up to 79 characters can be written across the width of 
the screen, and a maximum of 24 lines can appear on 
the screen at one time. 

Data moves onto the screen from bottom to top: after 
the bottom line is written on the screen, if space-1 -after 
is coded for the bottom line, the top line of a full screen 
moves off. Data is written on the display screen at the 
normal output times (total and detail) or at calculation 
time for exception output. 



The display screen is designed to display messages and 
instructions to the operator and to display operator 
responses. It should not be used interchangeably with 
the printer as a major output device because of the 
speed with which data moves on and off the screen. 

Output operations such as spacing and skipping can be 
specified with some restrictions. Spacing before and 
after (a to 3 entry in columns 17 and 18 of the output 
specifications) and a skip-before to line 01 only (01 
entry in columns 19 and 20 of the output specifications) 
can be specified. Specify a skip-before to 01 to erase 
data from the display screen. If a skip-before to any line 
other than 01 is specified, the system assumes the entry 
to be 01 and the screen is erased. A skip-after 
(columns 21 and 22 of the output specifications) cannot 
be specified for CRT files. When a line is written on the 
display screen over a previous line, the previous line is 
erased. Edit codes, edit words, and output indicators 
can be specified for CRT files. 



3-32 File Description Specifications 



DISK 



WORKSTN 



DISK is an input/output device that allows the RPG II 
program to process data stored on disk. Disk files can 
be sequential, direct, or indexed files. See Column 28 
(Mode of Processing) in this chapter for a description of 
the processing methods that can be used for disk files. 



KEYBORD 

The entries CONSOLE and KEYBORD refer to the same 
physical unit that includes both the keyboard and the 
display screen. Use KEYBORD when you use the KEY 
or SET operation codes. If KEYBORD is specified for 
the primary input file, you must provide a means of exit 
from the program by setting on the LR indicator. 

Input specifications are not used for KEYBORD files. 
The input data is defined in the KEY or SET/KEY 
operation itself. 



PRINTER 

The print unit allows a separate output file to be printed 
on a 132-position printer. A maximum of eight printer 
files is allowed per program. PRINTER must be 
assigned as the device for each file, and each file must 
have a unique filename. Use the PRINTER OCL 
statement to assign a filename to a particular printer. 



The WORKSTN device allows an RPG II program to 
communicate with one or more display stations. A 
device can be specified as WORKSTN if you use the 
System /34 Display Screen Format Specifications to 
define its output and input and if it is allocated to the 
program. Only one WORKSTN file can be specified in a 
program. A program containing a WORKSTN file cannot 
contain KEYBORD, CONSOLE, or CRT files. 

For a complete description of the file description 
specifications for a WORKSTN file, see Chapter 13, 
WORKSTN File Considerations and Sample Programs. 



SPECIAL Device Support 

Files using devices not directly supported by RPG II can 
be processed on System /34. To do this, enter 
SPECIAL in columns 40 through 46 of the file 
description specifications to indicate that the file is 
handled by a SPECIAL device. 

You must also supply a subroutine to perform the 
input/output operations required to transfer data 
between the SPECIAL device and main storage. Enter 
the subroutine name in columns 54 through 59 of the 
file description specifications. Control cannot be 
transferred from one user assembler subroutine to 
another user assembler subroutine. 

The SPECIAL device is also used with the IBM-written 
subroutine SUBR22 to read a transaction file created by 
the work station utility of the Utilities Program Product 
(see Reading a Work Station Utility Transaction File in 
this chapter). 
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Linkage for User -Written Input /Output Subroutines 

The RPG II compiler generates the following DTF (define 
the file) for linking to an assembler input/output 
subroutine: 



Bytes 


Description 


(hex) 







Device code (X'OO') 


1-2 


Address of data management 


3 


Mask for external indicators 


4-5 


Backward chain pointer 


6-7 


Forward chain pointer 


8-9 


Logical record address 


A 


Completion code: 



X'42' = End of file 
X'41' = Controlled cancel 
X'40' = Normal completion 



The address of byte of the DTF is passed to the 
input/output subroutine in index register 2. Bytes 
through 7 and C through 21 are filled in by RPG II at 
compile time. The contents of these fields depend on 
the entries specified in the file description specifications 
for the SPECIAL device. The input address (bytes 1A 
and 1B) and the output address (bytes 1C and 1D), 
when present, point to the physical buffer that has been 
allocated within the load module by RPG II for use by 
the SPECIAL device. The completion code (byte A) is 
inserted by the input/output subroutine when control is 
returned to RPG II. The operation code (byte B) and the 
logical record address (bytes 8 and 9) are inserted at 
object time. 

Figure 3-16 shows an example of the DTF generated by 
RPG II for an input/output subroutine. 

If array linkage is used, the RPG II compiler generates 
the following DTT (define the table): 

Bytes Description 

0-1 Address of rightmost byte of 

the first element of the array 



B 


Operation code: 




X'80' = Get 




X'40' = Put 




X'20' = Update 




X'10' = Close 


C-F 


Attributes 




Byte 1 : 




X'20' = Update file 




X'40' = Output file 




X'80' = Input file 




X'CO' = Combined file 




Byte 2: 




X'08' = Dual input/output 




X'OT = DTF open 


10-11 


Record length 


12-19 


Filename 


1A-1B 


Physical input address 


1C-1D 


Physical output address 


1E-1F 


Block length 


20-21 


Address of array DTT if array 




linkage is used 



2-3 Address of rightmost byte of 

the last element of the array 

4-5 RPG II last LOKUP element 

6-7 Length of array element 

8-13 Array name 



3-34 File Description Specifications 



******************************************************************** 

* * 

* RPG II SPECIAL DTF OFFSETS AND EQUATES * 

* * 

******************************************************************** 



0000 
0002 
0003 
0005 
0007 
0009 
000A 
000B 
000C 
OOOD 
OOOE 
OOOF 
0011 
0019 
001B 
001D 
001F 
0021 
0022 



* **** SPECIAL DTF 

SPDEV EQU 

SPDMA EQU SPDEV+2 

SPUPS EQU SPDMA+1 

SPCHA EQU SPUPS+2 

SPCHB EQU SPCHA+2 

SPLRA EQU SPCHB+2 

SPCMP EQU SPLRA+1 

SPOPC EQU SPCMP+1 

SPAT1 EQU SPOPC+1 

SPAT2 EQU SPAT1+1 

SPAT 3 EQU SPAT2+1 

SPAT4 EQU SPAT3+1 

SPRCL EQU SPAT4+2 

SPNAM EQU SPRCL+8 

SPPBI EQU SPNAM+2 

SPPBO EQU SPPBI+2 

SPBKL EQU SPPBO+2 

SPDTT EQU SPBKL+2 

SPLEN EQU SPDTT+1 



LAYOUT **** 

DEVICE CODE (X'OO 1 ) 

ADDRESS OF D.M. 

UPS I INDICATORS 

BACKWARD CHAIN POINTER 

FORWARD CHAIN POINTER 

LOGICAL RECORD ADDRESS 

COMPLETION CODE 

OPERATION CODE 

ATTRIBUTE BYTE ONE 

ATTRIBUTE BYTE TWO 

ATTRIBUTE BYTE THREE 

ATTRIBUTE BYTE FOUR 

RECORD LENGTH 

FILE NAME 

PHYSICAL INPUT I/O ADDRESS 

PHYSICAL OUTPUT I/O ADDRESS 

BLOCK LENGTH 

ADDR OF ARRAY DTT IF SPECIFIED 

LENGTH OF SPECIAL DTF 



0040 
0042 
0041 



* **** SPCMP EQUATES **** 
SPNORM EQU X'40' NORMAL 

SPEOF EQU X'42' END OF FILE 

SPCCNL EQU X'41 1 CONTROLLED CANCEL 



0020 
0040 
0080 
00C0 



**** SPAT1 EQUATES **** 



SPUPDT 


EQU 


X' 


'20' 


SPOUT 


EQU 


X' 


'40' 


SPINP 


EQU 


X' 


'80' 


SPCMB 


EQU 


X' 


'CO' 



UPDATE FILE 
OUTPUT FILE 
INPUT FILE 
COMBINED 



0008 
0001 



* **** SPAT2 EQUATES **** 

SPDIO EQU X'08 1 DUAL I/O 

SPOPEN EQU X'01' DTF OPEN 



**** SPOPC EQUATES **** 



0040 
0080 
0020 
0010 



SPPUT 
SPGET 
SPUPD 
SPCLS 



EQU 
EQU 
EQU 
EQU 



X'40* 
X' 80 ■ 
X'20 1 
X'10' 



*** END OF EXPANSION 
Figure 3-16. Example of RPG II Generated DTF 



** 



PUT 
GET 
UPDATE 
CLOSE 
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Considerations for the Assembler Programmer 



File Description Specifications for SPECIAL Device 



The input/output subroutine must save and restore the 
registers altered in the subroutine. Control should be 
returned to the address in the address recall register 
(ARR). 

When an input operation is done, the input/output 
subroutine must move the address of the physical buffer 
currently being used to the logical record address 
location in the DTF (bytes 8 and 9). This logical record 
address points to the record within the physical buffer 
that is to be processed by the RPG II program. 

When an output operation is requested, the 
input/output subroutine must move the data from the 
logical buffer (address in bytes 8 and 9 of the DTF) to 
the physical buffer (address in bytes 1C and 1D of the 
DTF). The logical record address (bytes 8 and 9) points 
to the RPG II common output buffer that contains the 
record to be output by the SPECIAL device. 

The assembler programmer must also consider the 
following: 

• The input/output subroutine must do its own open 
when the first call to it is issued. It must also do its 
own close to the file on a close call. 

• If a dual input/output area is requested, the second 
area will be immediately behind the first. 

• Subroutines of the type SUBRxx cannot be overlaid; 
however, subroutines of the type SRyzzz can be 
overlaid. 

• Only consecutive processing is supported for 
SPECIAL files. 



The following file description specifications apply to files 
assigned to the SPECIAL device: 



Column 


Entry 


7-14 


Valid RPG II filename. 


15 


I, 0, U, or C. 


16 


P, S, D, or blank. 


17 


E or blank. 


18 


A, D, or blank. 


19 


F. 


20-23 


Block length. 


24-27 


Record length. 


28-31 


Must be blank. 


32 


1 through 9 or blank. 


33-39 


Must be blank. 


40-46 


SPECIAL. 


47-53 


Must be blank. 


54-59 


Name of the user-wri 



IBM -written subroutine that 
performs the input/output 
operations. The subroutine name 
must be in the form SUBRxx, where 
x is any alphabetic character or 
in the form SRyzzz, where y is any 
of the following 15 characters: B, 

C, D, F, G, H, I, L, M, 0, P, R, 
S, T, or U; and z is any of the 
following 16 characters: A, B, C, 

D, F, G, H, I, L, M, 0, P, R, S, 
T, or U. 



60-70 Must be blank. 

71-72 U1 through U8 or blank. 

73-74 Must be blank. 



3t36 File Description Specifications 



The following can be used with SPECIAL files: 

• FORCE operation code 

• READ operation code 

• File translation 

The following cannot be used with SPECIAL files: 

• CHAIN operation code 

• Spacing and skipping 

. *PRINT 

SPECIAL files can only be processed consecutively. 
(See Figure 3-31 for possible file description entries for 
SPECIAL files.) 



Reading and Updating a Work Station Utility 
Transaction File (SUBR22) 

The IBM-written subroutine SUBR22 allows an RPG II 
program to read and update records from a transaction 
file created by the work station utility of the System /34 
Utilities Program Product. To link to this subroutine, use 
the SPECIAL device and an array with one 13-character 
element. 

For an example of an RPG II program that reads records 
from a work station utility transaction file, see Figure 
3-17. 

Notes: 

1. The user program must initialize positions 1 through 

1 1 of the array before the first data record is read by 
SUBR22 or before SUBR22 begins to read a new 
logical chain. 

2. The last 13 bytes of the work station utility 
transaction file record (the trailer information) are not 
returned to the RPG program and cannot be updated. 

3. The user program should check position 13 of the 
array (the error indicator) after each data record is 
read to determine if any errors were encountered. 



File Description Entries 

To use SUBR22, the following entries must be made on 
the file description specifications: 



Column 


Entry 


6 


F. 


7-14 


Name of the transaction file 




created by the work station 




utility. 


15 


I, U. 


16 


P, S, or D. 


17 


Blank or E. 



18 Blank (assumed blank if an 
entry is present). 

19 F. 

20-23 Enter the block length, which is 

calculated by the following formula: 

• Block length = 256 if the record 
length is a submultiple of 256 

• Block length = the record length 
if the record length is a 
multiple of 256 

• Otherwise, the block length must 
equal the record length plus 255 
rounded up to the next multiple 
of 256 

24-27 Valid entries for record length 

are 14 through 4096. 

Note: The record length 
specified must include 13 bytes 
for the work station utility file 
trailer information, of which 
bytes 11 and 12 contain 
the work station ID. 



28-39 


Must be blank. 


40-46 


SPECIAL. 


47-53 


Must be blank. 


54-59 


SUBR22. 


60-70 


Must be blank. 


71-72 


Blank or U1 through U8. 


73-74 


Must be blank. 


75-80 


Program identification. 
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Control 


Specifications 




















H 


Size to 
Compile 

7 8 9 


o 

O 

10 


o 


Size to 
Execute 

12 13 14 


s 

15 


E 
u 

2 

16 


17 18 


1 

Q 
19 


Q 
20 


21 


5 
o 
o 

22 


Number 
Of Print 
Positions 

23 24 25 


a 
<3i 

u 

26 


Model 20 


37 


Mode 
'20 


X 
40 


E 
a. 

41 


42 


43 


o 

s 


1 

z 

45 


46 


X 
47 


g 

& 

48 


49 


E 
□ 

I 

50 


a 

rr 

a 
oc 

51 


Refer to the specific System Reference 
"£ Library manual for actual entries. 

z £ 

52 5' 54 55 56 67 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 






Address 
to Start 

27 28 29 30 


s 

31 


o 
o 

32 


6 
33 


3* 


35 


U 

36 


E 
o 

1 

IT 
38 


6 

■a 

I 

39 


Line 
3 4 5 


e 

6 


1 1 | 


H 


1 1 






II 






l 










II 




ill 












































n 


II II 1 1 II II 1 1 1 1 1 II II 1 



File Description Specifications 





r 




















File Type 




dode of Processing 






O 

39 




























s 

z 

1 




























: ile Addition/Unordered 


r - 


Filename 

7 8 9 10 11 12 13 14 


□ 

y 
3 
3 

15 




File Designation 


rr 
28 


Length of Key Field or 


Device 

40 41 42 43 44 45 46 


Symbolic 
Device 

47 48 49 50 51 52 


Name of 
Label Exit 


Extent Exit 
for DAM 


3 
66 


Number of Tracks 


Line 
3 4 6 


8. 

E 
6 


Q 

16 










or Cylinder Overflow 






29 30 




67 




17 









Number of Extents 






1 

31 


Type of File 
Organization 


Storage Index 


68 69 


T 


18 




-ile Format 




Rewind 


□ 

> 

19 


Block 
Length 

20 21 22 23 


Record 

Length 

24 25 26 27 




or Additional Area 


z 

3 

re 

70 


File 
Condition 


oc 

Q 
X 

32 


Overflow Indicator 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 


Continuation Lines 


71 72 73 74 


K 
53 


Option 

54 55 56 57 58 59 


Entry 
60 61 62 63 64 65 





2 




F 


5(35 


PL 


t\ 


Y 




n 


E 






E 
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ffiEKSTN 
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? 
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This program uses SUBR22 to selectively read chains of 
records from the work station transaction file 
(WSUXAC) and to write them to a permanent disk file 
(TRANS). The operator enters the ID of the work station 
whose transactions he wishes to copy. The program 
displays error messages when a file or chain containing 
an error is encountered, or when the work station ID 
entered cannot be found. The program also displays a 
message after all the records in a chain have been 
copied. The program ends when a file containing an 
error is found, or when Cmd key 7 is pressed. 



Extension Specifications 



Record Sequence of the Chaininq Fil 



Numlier of the Chaining Field : 



From Filename 



11 12 13 14 15 16 17 



19 20 21 22 23 24 25 26 



Table or 
Array Name 



27 28 29 30 31 32 



H 



Per Table 



36 37 38 39 



Table or 
Array Name 

(Alter natintj 



59 60.61 62 63 64 65 66 67 68 G9 70 71 72 73 74 

r 



NTRL_ 



13 



SUBR22 requires an array (in this program, an 
execution-time array is used) to contain control 
information to be passed to and from SUBR22 and the 
program with each data record. This array (CONTRL) 
contains the work station ID, the error indications, and 
the last record flag. 

Figure 3-17 (Part 1 of 4). Reading a Work Station Utility Transaction File 
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Figure 3-17 (Part 2 of 4). Reading a Work Station Utility Transaction File 
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The first READ operation reads the first record, which is 
blank, from the display. Indicator 08 is set on to display 
the initial ENTER WS ID prompt (displayed by the 
EXCPT operation) and is then set off. The program also 
sets off indicators 04, 05, 06, and 07. 

The second READ operation is executed when: 

• The Enter/ Rec Adv key is pressed (WSID is blank). 
Indicator 06 is turned on because the input field is 
blank. The EXCPT operation is executed, displaying 
the ENTER WS ID prompt and the error message 
WSID BLANK. The program then goes to RSTART, 
sets off indicators 04, 05, 06, and 07, and waits for 
the READ operation to be executed. 

• Two characters are entered in the WSID field. 

The program attempts to read a record from the 
transaction file (WSUXAC). The SUBR22 error flag 
(ERROR) is checked for the following: 

- If the WSU transaction file contains an error, 
indicator 03 is turned on. 

- If the record returned to the program is from a 
display station session that ended abnormally, 
indicator 04 is turned on. 

- If no records exist for the work station ID that was 
entered, indicator 05 is turned on. 

After these comparisons are executed, the last record 
flag (LAST) is checked to determine whether this 
record is the last record in the logical chain. If it is 
the last record, indicator 07 is turned on. 



Depending on which indicators have been turned on 
by the previous comparisions, the EXCPT operation 
causes one of the following output combinations to 
be performed: 

- The ENTER WS ID prompt and the error message 
WS ID xx BAD CHAIN are displayed if indicator 

04 is on. 

- The ENTER WS ID prompt and the error message 
WS ID xx NOT FOUND are displayed if indicator 

05 is on. 

- The record is written to the permanent disk file 
(TRANS), and the ENTER WS ID prompt and the 
message WS ID XX CHAIN COPIED are displayed 
if indicator 07 is on. 

- The record is written to the permanent disk file 
(TRANS) if indicator 01 is on. 

If indicator 04, 05 or 07 is on, the program goes to 
NEW ID after performing the output. Otherwise, the 
program goes to LOOP and continues reading records 
from the WSU transaction file until an error is 
encountered or the last record in the chain is 
reached. 

The program ends in one of two ways. Either Cmd key 
7 is pressed, turning on indicator KG, or a bad file is 
found, turning on indicator 03. Either condition causes 
the program to branch to END, turn on the LR indicator, 
and display the END OF JOB screen. If indicator 03 is 
on, the error message BAD FILE is also displayed. 



Figure 3-17 (Part 3 of 4). Reading a Work Station Utility Transaction File 
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The following entries must also be made on the file 
description continuation line: 



Column 


Entry 


7 


F. 


5-52 


Must be blank. 


53 


K. 


54-59 


Name of an ar 



60-74 
75-80 



13-character element. This array 
must also be described on the 
extension specifications. 

Must be blank. 

Program identification. 



Contents of the Array 

The array named in columns 54 through 59 of the 
continuation line is used to pass parameters from the 
RPG II program to SUBR22 and from SUBR22 to the 
RPG II program. The entries that can be made in the 
array are described in the following text. 

Positions 1-7 (Starting Record Number) 

Entry: Any valid zoned decimal relative record 
number or blank 

To read part of a logical chain in the transaction file, 
specify the relative record number of the first record 
to be read. Records are read from the file until the 
end of the logical chain is reached or until a restart 
parameter is specified. The starting record number is 
blanked by SUBR22 after it is used to process 
records. 



Positions 8-9 (Work Station ID) 

Entry: 2-character work station ID or blank 

To read one logical chain from the transaction file, 
specify the work station ID of the display station 
whose logical chain is to be read. Records are read 
from the file until the end of the logical chain is 
reached or until a restart parameter is specified. The 
work station ID is blanked by SUBR22 after it is used 
to process records. 

Note: When the file is read, this same value is in 
positions 11 and 12 of the trailer portion of the 
transaction file record. 
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Position 10 (Type) 

Entry: A or blank 

To read all the logical chains in the transaction file, 
enter an A in position 10. All logical chains in the file 
are read in the sequence in which they are chained 
(that is, all data records are read for the first display 
station in the chain, then for the second display 
station in the chain, and so on). The type entry is 
blanked by SUBR22 after it is used to process 
records. 

Position 11 (Restart/Active) 

Entry: A, R, or blank 

The restart parameter allows the RPG II program to 
read/update more than one logical chain and to 
read/update active logical chains or chains from 
sessions that ended abnormally. When an R is 
specified in position 11, the program starts 
processing records from the file as specified by the 
parameter list. However, an R should not be moved 
into position 1 1 before the first read is executed for 
the program. When an A is specified in position 11, 
the program also starts processing records from the 
file as specified by the parameter list. An entry of A 
allows the program to process records from active 
work sessions and work sessions that terminated 
abnormally. If position 1 1 is blank, the next record in 
the logical chain is read. 



Position 12 (Last Record Flag) 

Entry: E, L, or blank 

An E is returned to the RPG II program in position 12 
of the array when an A was specified in position 1 1 
of the array and one of the following conditions 
occurs: 

• The end of the logical chain is reached when a 
starting record number was specified in positions 
1 through 7. 

• The end of the logical chain is reached when a 
work station ID was specified in positions 8 and 9. 

• The last record of the transaction is reached when 
an A was specified in position 10. 

Note: A blank record is returned to the program 
whenever an E is returned to the array. 
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An L is returned to the RPG II program in position 12 
of the array when one of the following conditions 
occurs: 

• The current record is the last record entered for a 
work session that ended normally when a starting 
record number is specified in positions 1 through 
7. 

• The current record is the last record entered for a 
work session that ended normally when a work 
station ID is specified in positions 8 and 9. 

• The current record is the last record entered for a 
work session that ended normally, the work 
session is the last work session in the transaction 
file, and an A is specified in position 10. 

When an E or L is returned to the RPG program, the 
programmer can specify the restart option (R in 
position 11). If the E or L parameter is ignored by 
the program, the next read request to the subroutine 
causes a normal end-of-file indication to be returned 
to the RPG II program. After the end-of-file 
indication is returned to the RPG II program, 
additional attempts to access the file also result in 
end-of-file. 

SUBR22 blanks out the last record flag if a restart is 
specified. 

Position 13 (Error Flag) 

Entry: 

Blank 

No errors found. The subroutine has returned a 
good data record to the program. 



W 



This display station session ended abnormally. The 
last sequence set may be incomplete, or some 
inserted records may have been lost. A data 
record is returned to the program with this error 
flag. SUBR22 does not read any records that have 
been added during the work session that ended 
abnormally. 



This file has not closed normally and contains 
display station sessions that may be incomplete. 
However, the data being processed by the 
program comes from a completed display station 
session. A data record is returned to the program 
with this error flag. 



N 



No-record-found error occurred for one of the 
following reasons: 

• The work station ID specified in the parameter 
list is invalid. 

• The parameter list does not contain a starting 
record number, type, or work station ID 
parameter for a first-time or restart option. 

• The relative record number specified. is invalid. 

A blank record is returned with this error flag. If a 
no- record-found error occurs, the restart option 
must be specified the next time the subroutine is 
called, and the programmer must reset the 
no-record-found indicator. 



An attempt was made to update a record, but no 
record was retrieved for the update. 



An attempt was made to process a delete-capable 
file. The work station utility does not allow 
delete-capable files. Processing of this file is 
canceled and the file is closed. 

Note: When the subroutine is accessed the first time or 
with a restart parameter specified, one of the three 
first-time options (starting record number, work station 
ID, or type) must be specified in the parameter list. If a 
valid option is not specified, the subroutine returns to 
the program without reading a record. If the subroutine 
is accessed twice consecutively with a valid option 
specified, a normal end-of-file indication is returned to 
the RPG II program. If more than one valid option is 
specified, the subroutine only processes the first valid 
option found. The subroutine checks for the first valid 
option in the following order: starting record number, 
type, and work station ID. 
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System Input Subroutine for SPECIAL Device 
(SUBR01) 

The IBM -written subroutine SUBR01 (system input 
subroutine) can be used to input a record for use by 
system functions, such as system utility programs or 
program products. To use this subroutine, specify 
SUBR01 in columns 54 through 59 for a SPECIAL 
device. This subroutine makes 120-character records 
available to the SPECIAL file. RPG treats the records 
read by SUBR01 as data records. 

The record length and block length entries for the 
SPECIAL file should be 120 to avoid execution errors. If 
the block length is not specified, it defaults to the 
record length. If the operation control language (OCL) 
statements to execute the program are entered from the 
keyboard, the records to be made available to the file 
must also be entered from the keyboard. If a procedure 
was called to execute the program, the records to be 
available to the file must follow the RUN OCL statement 
in the procedure. The last input record in the procedure 
should be followed by a END control statement. If the 
program is an SRT program and if there is no END 
statement in the procedure, successive OCL statements 
(entered from the keyboard) are read as input to the 
SPECIAL file in the program. If the program is an MRT 
program, a procedure must be used for the data records 
and the END control statement must follow the last data 
record. 

If a program is to be run from the input job queue, a 
procedure must be used to execute the program. If 
CONSOLE is specified in the same program as SUBR01, 
the OCL and the data records for SUBR01 must be 
contained in a procedure or undesirable results can 
occur. 

See the System Support Reference Manual for 
information on how to create a procedure. 



1255 MICR Subroutine (SUBR08 and SUBR25) 

The 1255 MICR subroutines (SUBR08 and SUBR25) 
allow you to use the 1255 as a SPECIAL device in an 
RPG II program. To use SUBR08 or SUBR25, you must 
place certain entries on the file description and 
extension specifications in order to define the SPECIAL 
device file and to name the subroutine. SUBR08 uses 
system and stacker specifications to describe each job 
to be performed by the 1255. SUBR25 uses a SUBR25 
parameter list and a Device Control Language program 
to describe each job to be performed by the 1255. The 
system and stacker entries or the SUBR25 parameter 
list is placed in an array. See the IBM System/34 1255 
Magnetic Character Reader Reference Manual, 
SC21-7740, for more information and examples of how 
to code the file description and extension specifications. 



COLUMNS 47-52 

Columns 47 through 52 are not used. Leave them blank. 

COLUMN 53 (CONTINUATION LINES-K) 
Entry Explanation 

K Continuation record 

Use column 53 to indicate that a continuation record 
provides additional information about the SPECIAL file, 
disk file, or WORKSTN file being defined. Only one 
continuation record can be specified for each SPECIAL 
file or each disk file; however, several continuation 
records can be specified for a WORKSTN file. When 
you specify a continuation record for a SPECIAL device, 
columns 54 through 59 (continuation line option) must 
be coded. When you specify a continuation record for a 
disk or WORKSTN device, columns 54 through 65 must 
be coded. Figure 3-18 shows an example of the coding 
necessary on the file description specifications sheet for 
a continuation line for a SPECIAL file. 
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Figure 3-18 Specifications for a SPECIAL Device 



COLUMNS 54-59 



Name of Label Exit 

Entry Explanation 

Blank No SPECIAL device is used. 

SUBRxx Name of the user- written or 

IBM -written subroutine that cannot 
be overlaid and that performs the 
input/output operation for a SPECIAL 
device. (For a user-written subroutine, 
x = any alphabetic character. Numeric 
characters are reserved for 
IBM-supplied subroutines.) 

SRyzzz Name of the IBM-written subroutine 

(5-character name in library is @yzzz) 
that performs the input/output 
operation for a SPECIAL device 
(y = any of the following 15 
characters: B, C, D, F, G, H, 
I, L, M, O, P, R, S, T, or U; 
z = any of the following 16 
characters: A, B, C, D, F, G, H, 
I, L, M, O, P, R, S, T, or U). 



Use columns 54 through 59 to specify the subroutine 
that performs the input/output operations for a file 
assigned to a SPECIAL device. Columns 54 through 59 
must contain an entry for each file assigned to a 
SPECIAL device. The subroutine name entered in 
columns 54 through 59 can be from 4 to 6 characters 
long. For a user-written subroutine the first 4 characters 
must be SUBR; the remaining characters can be any 
alphabetic character. 

Note: User-written subroutines should be placed in 
^LIBRARY, not in the same library as the RPG II source 
program. 

Continuation Line Option for SPECIAL Device 

Entry Explanation 

Table/array Name of table/array used by the 
name user-written subroutine. The 

array name cannot be ASCII 

or BUFOFF. 



Note: Subroutines of the type SRyzzz can be overlaid. 
Modifications within the subroutine code may or may 
not be present the next time the subroutine is used. 
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Continuation Line Options for WORKSTN File 



Keyword Value 



The following options can be specified for a WORKSTN 
file if more than one device is attached to a program or 
if you want to specify the WORKSTN file information 
data structure (INFDS) or the WORKSTN 
exception /error processing subroutine (INFSR). The 
NUM keyword is required if the program attaches more 
than one device to a file at the same time. Enter the 
keyword in columns 54 through 59 and the value in 
columns 60 through 65 (columns 60 through 67 can be 
used if the FMTS option is specified). 

Note: For WORKSTN files, a device can be either a 
display station or an SSP-ICF session. 

Keyword Value 

NUM Maximum number of devices that can be 

attached to this file at one time. The 
number specified must be right-justified 
in columns 60 through 65. If not 
specified, 1 is assumed. If specified, 
NUM must be greater than or equal to the 
number of requestors specified by the 
MRTMAX parameter on the COMPILE 
statement plus the number of acquired 
devices (those specified on the 
WORKSTN OCL statement or in the ACQ 
operation). The number specified on the 
MRTMAX parameter is reserved for 
requestors. The difference between the 
MRTMAX value and the NUM value is the 
maximum number of devices 
(nonrequestors) that can be attached to 
the program at one time via OCL 
statements or the ACQ operation code. 
For example, if the MRTMAX value is 5 
and the NUM value is 6, only one 
nonrequestor device can be attached to 
the program, even if only one requestor is 
presently signed on. 

SAVDS Name of a data structure that is to be 
saved and restored for each device 
attached to this file. This data structure 
cannot be a display station local data 
area, and it cannot contain a compile-time 
array or a preexecution-time array. If 
SAVDS is not specified or NUM equals 1, 
no data area swapping is done. 



IND Number of indicators, beginning with 01, 

that are to be saved and restored by 
display station. Indicators 01 through the 
number specified here are saved and 
restored for each display station. If IND is 
not specified, or if NUM equals 1, no 
indicator swapping is done. The entry 
must be right-justified in columns 60 
through 65. 

Note: For SAVDS and IND, only one copy 
of the data structure and indicators is 
available at a time. The indicators and 
data structure that are available are those 
associated with the device from which the 
last input was read. 

The data structure and indicators that are 
available change each time an input 
operation (either a primary file input or a 
demand file read) is executed. On an 
input operation, the present copy of the 
data structure and indicators in the 
program is written to a save area for the 
device from which the previous input was 
read. The data structure and indicators for 
the device now being read from are then 
written from the save area associated with 
the device to the program SAVDS and 
IND areas (for further information, see 
Figure 13-2 in Chapter 13). 

SLN Name of a two-digit numeric field whose 

value determines the first line on the 
display screen where the display format is 
to begin if a variable starting line number 
(V in column 17 of the display screen 
format S specification) was specified in 
the format. If SLN is not specified, all 
formats having a variable starting line 
number begin on line 1. 
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Keyword Value 



Keyword Value 



FMTS *NONE. Indicates that there are only 

SSP-ICF formats present in this program. 

Display screen format load member name. 
The compiler uses the name specified 
here as the display screen format load 
member name. The format load member 
name entered here can be from 1 to 8 
characters in length, left-justified in 
columns 60 through 67. If a name is not 
entered, the compiler assumes the display 
screen format load member name is the 
program name (from columns 75 through 
80 of the control specifications) with FM 
added to the end of the name. 

ID Name of a 2-character self -defining 

alphameric field that contains the ID of 
the device that supplied the record being 
processed in this file. The ID field is 
updated whenever a record is read from 
the WORKSTN file. Therefore, it always 
contains the identification of the device 
from which the last record was read 
(unless your program moves a different 
identification into the ID field). This field 
is considered self- defining because it 
need not be specified as an input or result 
field. For a multiple device file, you can 
direct an operation to a device other than 
the one currently being processed by 
changing the value in the ID field to the 
symbolic ID of another device in the file 
before performing the output operation. 



INFSR Name of the user-written calculation 

subroutine designated as the WORKSTN 
exception /error processing subroutine to 
which control may be passed if an 
exception /error occurs during the 
following operations: ACQ, REL, NEXT, 
POST, input (READ or primary input), or 
output (EXCPT operation or normal cvcle 
output). If INFSR is not specified, the 
program halts if an exception /error 
occurs. See WORKSTN Exception/ Error 
Handling in Chapter 13 for more 
information on INFSR. 

INFDS Name of the data structure that contains 

the identification of the type of 
exception /error condition and an 
indication of the WORKSTN operation 
that was executing when the 
exception/error condition occurred. It also 
specifies the area that is posted with the 
display station screen size (960 or 1920 
characters) and information about 
ideographic support. If INFDS is not 
specified, this information is not available 
to the RPG II program. See WORKSTN 
Exception/ Error Handling in Chapter 13 for 
more information on INFDS. 

For more information on the keywords and their 
associated values, see Chapter 13, WORKSTN File 
Considerations and Sample Programs. 



The device IDs are assigned at system 
configuration time. Display station IDs are 
in the form AX, where A is an alphabetic 
character (A-Z, #, @, or $) and X is any 
character. If a WORKSTN OCL statement 
exists for the display station, the ID is the 
same as the value of the SYMID 
parameter. 

SSP-ICF session IDs can be in two 
formats. They are either NN where N is 
numeric (0-9), or NA where N is numeric 
and A is alphabetic (A-Z, #, @, or $). If 
the format is NA, a SESSION OCL 
statement must be specified with a 
SYMID parameter whose value is also in 
an NA format. 
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Continuation Line Keyword Option 

The RECNO keyword is used to randomly add records 
to, or to load, a delete-capable disk file. 

Keyword Value 

RECNO Name of a numeric field that is seven 
digits long with zero decimal positions. 
This field name must be specified if 
records are to be added randomly to a 
delete-capable direct or sequential file. 
This field name is also required for a 
direct file load of a delete-capable file. 

The programmer places the relative 
record number of the record to be added 
to the file in the RECNO field. It must 
be the relative record number of a 
deleted record, a record that has been 
initialized to hex FFs. RPG uses the 
relative record number in the RECNO 
field to determine where a record is to 
be loaded (direct file load) or added 
(ADD on output specifications). 

Note: If a CHAIN operation successfully 
reads a record from a sequential or 
direct file, RPG places the relative record 
number of this record in the RECNO 
field. 

COLUMNS 60-65 (STORAGE INDEX) 
Entry Explanation 

Blank No storage index is kept in storage. 

6-9999 Number of bytes reserved for the 

storage index. 

Use columns 60 through 65 to specify the number of 
bytes to be reserved for the storage index. Columns 60 
through 65 apply to indexed files processed randomly 
via the CHAIN operation code and indexed files 
processed sequentially within limits. Specifying a 
storage index provides faster retrieval of records. 
Storage index cannot be specified with a shared 
input/output area. Entries must end in column 65. 
Leading zeros are not required. 



The storage index is a table containing entries for tracks 
in the index portion of a file. Each entry contains a 
sector address and the lowest key field from the next 
track in the file index. The index portion of a file 
contains the position of the records in the file. Each 
index entry consists of a key and a 3-byte disk address 
for each record in the file. The last entry of the file 
index contains all FFs to indicate the end of the index. 
Figure 3-19 shows the layout of the index for the 
indexed file, INDEXT, and the most efficient storage 
index for the file, INDEXT. Notice that the storage 
index contains one entry for each track in the file index 
if the space reserved is large enough. 

Use of the storage index significantly reduces the 
amount of time needed to process an indexed file. It 
enables the system to go more directly to the specific 
record you want by searching only a small portion of the 
file index. Without the storage index, all file index 
entries that precede the record you want must be 
searched. When the storage index is used, as shown in 
Figure 3-19, the record 767 can be found in the 
following manner: 

1. Search the storage index until the first key field 
higher than key 767 is located. In this instance the 
key is 769 on track C; therefore, key 767 must 
reside on track B. 

2. Search track B in the file index until key 767 is 
located. 

3. Chain directly to the associated data record. 

In columns 60 through 65, specify the number of 
storage positions (bytes) you want reserved for the 
storage index. Using the amount of main storage you 
specify, the system builds the most efficient storage 
index it can. The storage index is built immediately 
before your RPG II program is executed. 
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If the index begins on a track boundary, this address will also be a track address. 
Figure 3-19. Example of Storage Index 
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For efficient processing, the storage index you specify 
should be large enough to contain one entry for each 
track in the. index, plus one entry that is the delimiter for 
the storage index. The minimum number of bytes 
required for a storage index entry for one track equals 
(the key length + 3) multiplied by 2. For example, if file 
INDEXT has one track that contains index entries and a 
key length of 4, the most efficient storage index is 14 
bytes, that is, (4 + 3) times 2. If the file index occupies 
more than one track, the number of bytes required for 
the storage index equals (the key length + 3) multiplied 
by (the number of tracks containing index entries + 1). 
For example, if the key length equals 4 and the number 
of tracks containing index entries equals 5, the number 
of bytes required for the storage index is 42; that is, (4 
+ 3) multiplied by (5 + 1) equals 42. 

To determine the number of bytes in the storage index, 
use the following calculation: 

1 . Use the CATALOG procedure to find the total 
number of records that the file can contain. 

2. Determine the length of an entry in the file index 
by adding 3 to the key length. 

3. Determine the number of keys in each sector by 
dividing 256 by the entry length. Drop the 
remainder. 

4. Determine the number of sectors in the index by 
dividing the number of records in the file (the 
result of step 1) by the number of keys in each 
sector (the result of step 3). Round up the result. 



If the storage space specified in columns 60 through 65 
is not large enough to contain an entry for every track of 
file index, the system divides the given area into as 
many entries as there is room for with each entry 
pointing to a larger track of the file index. As the 
number of entries in the storage index decreases, the 
amount of processing time increases. 



COLUMN 66 (FILE ADDITION) 
Entry Explanation 



New records are added to the file. 

Records are to be loaded for an 
indexed file in unordered sequence 
(random sequence). 



Use column 66 to indicate: 

• The program is to add new records to the file (Figure 
3-20). Records can be added at detail, total, or 
exception time during the program cycle. 

• The program is to load records in an unordered 
sequence (Figure 3-21). 

Column 66 applies to direct, sequential, and indexed 
disk files. 

Note: Adding records to a file also requires a 
corresponding ADD entry in columns 16 through 18 of 
the output specifications. 



Determine the number of tracks in the index by 
dividing the number of sectors (the result of step 
4) by 60 if your disk has 27.1 megabytes or less. 
Divide by 64 if your disk has more than 27.1 
megabytes. If the quotient is not a whole number, 
round it up to the next whole number. (To 
determine the number of megabytes on your disk, 
use the STATUS command to display the status of 
your work session. The AVAILABLE DISK SIZE 
field on the third display of work station status 
shows the number of megabytes on the disk.) 

Determine the optimal size for the storage index 
by multiplying the length of an entry in the file 
index (the result of step 2) times the number of 
tracks in the file index (the result of step 5). 



Adding Records to an Indexed File (A) 

Records added to an indexed file are added at the end 
of the file and entries for the new records are made in 
the index. (See Key Sorting for Indexed Files in the 
Concepts and Design Guide for an explanation of when 
the system sorts the keys into ascending sequence.) File 
addition (column 66) cannot be specified for indexed 
files from which records are read by the 
sequential-within-limits method. Records added to an 
indexed file should be in ascending sequence to achieve 
better performance. 



Column 66 (File Addition) 3-51 



When indexed chained files are specified with add, the 
records to be added may contain either of the following: 

• Keys that are above the highest presently in the file. 
In this case, the records constitute an extension of 
the file. 

• Keys that are either lower than the lowest presently 
in the file, or fall between those already in the file. 

If records are to be added to an indexed file processed 
sequentially: 



You must place in the RECNO field the relative record 
number of the record to be added to the file. It must be 
the relative record number of a deleted record (one that 
is filled with hex FFs). You code output specifications 
that contain ADD in columns 16 through 18 to add 
records to a file. RPG uses the relative record number 
from the RECNO field to locate where the record is to 
be added to the file. If the relative record number is not 
the number of a deleted record, a halt occurs and a 
message is issued stating that a duplicate record exists 
in the file. An option to continue can be taken, but the 
record is not added to the file. 



• The key of the record to be added must be lower 
than the key currently in process and higher than the 
preceding key, or 



If a CHAIN operation accesses a nondeleted record in 
the file, that record is returned to the program and RPG 
places the relative record number in the RECNO field. 



• The file must be at end of file. 

If these requirements are not met, a halt occurs; 
otherwise, the record is added. 

To add a record to any indexed file processed randomly, 
the program searches the index to the file to determine 
whether the record is on the file; if it is, a halt occurs. 
Otherwise, the record is added. 



Records cannot be added to sequential files past end of 
file by using the RECNO keyword. For example, if a 
sequential file has relative record numbers 1 through 5 
and 7 through 10, a record can be added at relative 
record number 6 but not at relative record number 11. 
Attempting to add a record past end of file results in 
error RPG-9038, THIS FILE IS FULL. 



Extending a Sequential File 



Adding Records to Delete-Capable Direct and 
Sequential Files 

Records can be added to direct and sequential files that 
are processed randomly by relative record number. The 
file must be defined as delete-capable when it is built. 
When a delete-capable direct file is built, it is initialized 
to all deleted records (hex FFs). For further information 
on defining delete-capable files, see FILE Statement in 
the System Support Reference Manual. 



Records can be added to a sequential file without 
specifying the RECNO keyword. The file must be 
defined as an output file and column 66 of the file 
description specifications must contain an A to specify 
file addition. 

Records added to a sequential file are added to the end 
of the file. They cannot be added between other 
records. 



If records are added to direct or sequential files, the file 
must be defined as an input or update chained file on 
the file description specifications. The file description 
specifications must also contain an A in column 66 to 
specify file addition. The keyword RECNO and its 
associated field must be specified on a file description 
specification continuation line for each file that records 
are added to (for further information on the RECNO 
keyword, see Continuation Line Keyword Option in this 
chapter). 
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The new records are contained in disk file DISKIN. The 
file INDEXED is the existing disk file to which new records 
are added. A printer file, PRINT, provides a report showing 
all the records in DISKIN with an indication of which 
records are not added. 



On the file description specifications sheet, an A must appear 
in column 66 for the file INDEXED. On the output specifi- 
cations sheet, ADD must appear in columns 16 through 18 
for the new record to be added. 
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As defined on the input specifications sheet, all the 
records in DISKIN should have an A in position 120. 
The code identifies a record to be added to the disk file, 
and this record type is assigned indicator 01. On the 



output specifications sheet, notice that when 01 is on, 
the data from DISKIN is written on the disk file 
INDEXED and is also printed on the file PRINT to keep 
a visual report of new records. 
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Figure 3-20 (Part 1 of 2). Adding New Records to a File 
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There may be records in DISKIN that do not belong in that 
file, or some records may have an error. Those records are 
identified on the input specifications sheet as not having the 
character A in position 120. These records turn on indicator 
02 and are not to be added to the disk file INDEXED. 
However, these records are printed on the file PRINT for a 
visual report, but they must be identified in the printed 
report as records that were not added to the disk file 
INDEXED. On the output specifications sheet, the constant 
RECORDS NOT ADDED is printed only on indicator 02, 
indicating a record that was not added to the disk file. In 
this manner, a report of all records in DISKIN is printed, and 
the records not added to INDEXED are identified by the 
constant RECORD NOT ADDED. 

Figure 3-20 (Part 2 of 2). Adding New Records to a File 
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The output file, MASTER, is described as an indexed file 
to be loaded and processed by record keys. The U in 
column 66 of the file description specifications sheet 



indicates that an unordered load is to be done. The 
input file, INPUT, is described by the input specifications 
as being unsequenced. 
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The keys from which the index is to be built appear as 
the first eight positions of the output record. As the 
disk file is loaded, the key is extracted from the record 
and an index entry containing the location of the record 



on the disk is built. After the entire file is loaded and an 
index entry is constructed for each record, the index 
entries are sorted into ascending sequence. 
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Figure 3-21. Unordered Load of An Indexed File 
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Loading Records in an Unordered Sequence (U) 

Unordered load (U in column 66) is specified when an 
indexed file is to be built from records in an unordered 
sequence. After records are loaded and an index is built 
in the unordered sequence, the system sorts the index 
into ascending sequence. 

File Addition Functions for Indexed Files 

In the following chart, combinations of entries in column 
15 and column 66 show the functions that can be 
performed for indexed files (I in column 32). 
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Load records in ascending key 
sequence to an indexed file. 

Load records in unordered key 
sequence to an indexed file. 

Add records to an existing 
indexed file. 

Read records of an indexed file 
without adding new records or 
updating records. 

Read records of an indexed file 
and add new records to the file 
that are not presently there. No 
updating is performed. 

Update records of an indexed 
file without adding new records. 

Update records of an indexed 
file and add new records to the 
file. 



File Addition Functions for Sequential Files (File 
Extension) 
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Extend an existing sequential 
file by adding records to the 
end of the file. 

Load records in a sequential 
file. 



Random File Addition Functions for Delete-Capable 
Direct and Sequential Files 
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Add records to an 
existing direct or 
sequential file. 

Load a direct file. 



Adding records to delete-capable files requires that the 
keyword RECNO and its associated field be specified on a 
file description specifications continuation line. 



COLUMN 67 

Column 67 is not used. Leave it blank. 

COLUMNS 68-69 

Columns 68 and 69 are not used. Leave them blank. 



COLUMN 70 

Column 70 is not used. Leave it blank. 
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COLUMNS 71-72 (FILE CONDITION) 

Entry Explanation 

Blank The file is not conditioned by an 

external indicator. 

U1-U8 The file is conditioned by the 

specified external indicator. 

Use columns 71 and 72 to indicate whether the file is 
conditioned by an external indicator. Columns 71 and 
72 apply to input (excluding table input files, and 
KEYBORD files), update, and output files. A file 
conditioned by an external indicator is used only when 
the indicator is on. When the indicator is off, the file is 
treated as though the end of the file is reached; that is, 
no records can be read from or written to the file. 

The external indicators are normally set prior to 
processing by the SWITCH OCL statement or by a 
previous RPG II program. Their setting can be changed 
during processing, allowing the program to alter the 
status of these indicators. However, if an external 
indicator conditions a file, that indicator must be set on 
when the program is loaded in order to use the file in 
the program. For information on how to save and 
restore the external indicators for each display station 
attached to a WORKSTN file, see Chapter 13, 
WORKSTN File Considerations and Sample Programs. 

If a file is conditioned by an external indicator, any 
calculations that are not done when the file is not used 
should also be conditioned by the same indicator. 



COLUMNS 73-74 

Columns 73 and 74 are not used. Leave them blank. 

COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 

FILE DESCRIPTION CHARTS 

Figures 3-22through3-33 show the file description 
specification entries for disk files (which are presented 
by disk file organization and processing method), 
KEYBORD files, CONSOLE files, PRINTER files, CRT 
files, WORKSTN files, SPECIAL files, and BSCA files. 
When you use the charts, keep the following in mind: 

• The entries in the chart must be made for the 
processing method and type of file described on that 
line. 

• The shaded columns must be blank for the file 
described on that line. 

• The other columns may be required or optional, but 
cannot be indicated on the chart because the entries 
represent information that changes from program to 
program. 

How to Use the Charts 

If you are updating an indexed disk file using the CHAIN 
operation code, see Figure 3-22 and refer to indexed 
disk files, random processing by CHAIN operation code. 
Then choose the chained update file with or without 
record addition. 

In this example, the following columns are required but 
may change from one program to another: filename, 
record length, length of key field, and key field starting 
location. Optional entries are line, block length, storage 
index, and file condition. 
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Sequential processing by key or limits must use the file index, which is always arranged in ascending sequence. When an indexed file 
is processed record by record from beginning to end, the sequential-by-key method is used to process the file through the index. 
'If chained files are processed by key, column 31 should contain an A; however, if chained files are processed by relative record number, 
columns 31 and 32 must be blank. 
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To insert or change records in a direct file, define the file as an update file processed consecutively, 
or an update file processed randomly by the CHAIN operation code. 
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Record address files containing relative record numbers can be 
associated with indexed, sequential, or direct disk files. 

Record address files containing record key limits can only be 
associated with indexed disk files, but can be a disk or CONSOLE 
file. (See chart for CONSOLE files.) 

Figure 3-25- Record Address Files Located on Disk 
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• If KEYBORD is specified as a primary input file, no 
other input files in the program can be specified as 
primary or secondary files. 



Shaded columns must be blank. 



• Input data entered from the KEYBORD device must be 
defined in calculation specifications for a KEY opera- 
tion. 

• No input specifications can be used for KEYBORD files. 
Figure 3-26. KEYBOARD Files 



File Description Charts 3-61 
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Input file records are displayed on the display screen when 
keyed into the program. 



Shaded columns must be blank. 



Figure 3-27. CONSOLE Files 
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Figure 3-28. PRINTER Files 
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Figure 3-29. CRT Files 
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Figure 3-30. WORKSTN Files 



Shaded columns must be blank. 
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Shaded columns must be blank. 



Figure 3-31. SPECIAL Files 
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Figure 3-32. BSCA Files 



Shaded columns must be blank. 
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Figure 3-33. File Description Specifications for IBM-Supplied Subroutines 
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Chapter 4. Extension Specifications 



Extension specifications describe all record address files, 
compile-time or preexecution-time tables, and 
compile-time, preexecution-time, or execution -time 
arrays used in a program. Write these specifications on 
the RPG Extension and Line Counter Specifications 
sheet (Figure 4-1). 



Record address files require entries in columns 1 1 
through 26. Preexecution-time tables and arrays require 
entries in columns 1 1 through 45. Compile-time tables 
and arrays require entries in columns 19 through 45. If 
an alternating table or array is specified with the table or 
array described in columns 11 through 45 or 19 through 
45, it must be described in columns 46 through 57 of 
the same line. A maximum of 75 tables or arrays or 
data structures can be used in a program; however, only 
70 of these can be compile-time tables or arrays. 
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Figure 4-1. RPG Extension and Line Counter Specifications 



Extension Specifications 4-1 



Figure 4-6 at the end of this chapter shows possible 
extension specifications. See Chapter 14, Tables and 
Arrays for a complete discussion of tables and arrays. 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1. 



COLUMN 6 (FORM TYPE) 

An E must appear in column 6 to identify this line as an 
extension specifications statement. 



COLUMNS 7-10 

Columns 7 through 10 are not used. Leave them blank. 

COLUMNS 11-18 (FROM FILENAME) 



Entry 

Blank 



Record 

address 

filename 

Table or 

array 

filename 



Explanation 

- Table or array is loaded at 
compilation time if there is an 
entry in columns 33 through 35. 

— Array is loaded at execution time 
(via input and/or calculation 
specifications) if there is no 
entry in columns 33 through 35. 

Name of the record address file. 



Name of the table or array file loaded 
at preexecution time. 



Use columns 11 through 18 to name a table file, array 
file, or record address file. Filenames must begin in 
column 11. The record address filename must always 
be entered in these columns and also on the file 
description specifications. The filename of every 
preexecution-time table or array used in the program 
must be entered in these columns. Leave columns 1 1 
through 18 blank for compile-time tables or arrays and 
for arrays loaded via input and/or calculation 
specifications (execution-time arrays). 



When a table or array is loaded at compilation time, it is 
compiled along with the source program and included in 
the object program. Such a table file does not need to 
be loaded separately every time the program is run. 
Only those tables and arrays that contain constant data 
should be compiled with the program. 

When tables or arrays are Compiled with the program, 
table records must always follow the RPG II source 
program. A record with **6 (6 = blank) in positions 1 
through 3 must separate the RPG II source program 
from the table or array records. Tables or arrays must 
be separated from each other by records with **5 in 
positions 1 through 3. Because **5 in positions 1 
through 3 indicates the start of a table or array, **5 
must not be specified in positions 1 through 3 of the 
table input records. 

Short tables (tables that contain blank entries) can be 
compiled with the program, but a warning is issued. 
See Columns 36-39 in this chapter for a discussion of 
short tables. 



COLUMNS 19-26 (TO FILENAME) 



Entry 

Name of 
an input 
or update 
file 

Name of 
an output 
file 



Explanation 

File processed via the record 
address file named in 
columns 11 through 18. 

Output file to which a table or 
array is to be written at end of job. 



Use columns 19 through 26 to define the relationship 
between a file named in these columns and a file named 
in columns 11 through 18. Filenames must begin in 
column 19. 

If a record address file is named in columns 1 1 through 
18, the name of the input or update file that contains 
the data records to be processed must be entered in 
columns 19 through 26. Do not enter the record 
address filename in these columns. 

If a table or array is to be written at end of job (that is, 
after LR processing), enter the filename of the output 
file in columns 19 through 26. This output file must be 
named previously in the file description specifications. A 
table or array can be written to only one output device. 
Leave columns 19 through 26 blank if the table or array 
is not to be written. 



4-2 Extension Specifications 



If a table or array is assigned to an output file, it is 
automatically written at the end of the execution-after 
all other records are written. The table or array is 
written in the same format in which it was entered. 

Because there is no program control over the output 
format when an entry is made in columns 19 through 
26, those cases where formatting is required should be 
provided for in the program through the output 
specifications or by the EXCPT operation that writes one 
item at a time (see Chapter 10, Operation Codes, 
EXCPT). Tables or arrays should be written only after all 
records are processed (last record indicator is on). 



Table files are processed in the order they are specified 
on the extension specifications. Therefore, if you have 
more than one table file, the files are to be loaded in the 
same order as they appear on the extension 
specifications. 

If two tables are in alternating format in one file, the 
table whose entry appears first must be named in 
columns 27 through 32. The second table is named in 
columns 46 through 51 (Figure 4-2). 



Array Name 



COLUMNS 27-32 (TABLE OR ARRAY NAME) 

Entry Explanation 

Table or Name of table or array used 

array name in the program 

Use columns 27 through 32 to name the table or array. 
No two tables or arrays can have the same name. The 
rules for forming table and array names are discussed in 
the following text. 



Table Name 

Every table used in your program must have a name 
that begins with the letters TAB. The entire table name 
can be from 3 to 6 characters long. 

After the letters TAB, 1 to 3 alphabetic or numeric 
characters can be used (no special characters are 
allowed). Blanks cannot appear between characters in 
the table name. Any name in columns 27 through 32 
that does not begin with TAB is considered an array 
name. 

The table name entered in columns 27 through 32 is 
used throughout the program. However, different 
results can be obtained depending upon how the table 
name is used. When the table name is used in factor 2 
or the result field of the calculation specifications with a 
LOKUP operation, the name refers to the entire table. 
When the table name is used with any other operation 
code, the name refers to the table entry last selected 
from the table by a LOKUP operation (see Operation 
Codes, LOKUP in Chapter 10 and Tables and Arrays in 
Chapter 14). 



Each array used in a program must be given a unique 
name that does not begin with the letters TAB. The 
name can be from 1 to 6 characters long and must 
begin with an alphabetic character. This array name is 
used throughout the program. The array name should 
be used by itself only to reference the entire array. See 
Array Name and Index in Chapter 14 for more 
information on array names and on referencing array 
entries. 



COLUMNS 33-35 (NUMBER OF ENTRIES PER 
RECORD) 

Entry Explanation 

1-999 Number of table or array 

entries in each table or 
array input record 

Use columns 33 through 35 to indicate the exact 
number of table or array entries in each table or array 
input record. The number must end in column 35. Every 
table or array input record except the last must contain 
the same number of entries as indicated in columns 33 
through 35. The last record can contain fewer entries 
than indicated, but not more. Comments can be entered 
on table input records in the positions following the 
table entries. 

If two tables or arrays are in alternating format in one 
file, each table or array input record must contain the 
corresponding entries from each table or array. The 
corresponding entries from the two tables or arrays are 
considered one entry and must be on the same record. 



Columns 27-32 (Table or Array Name) 4-3 



Table A 
(account number) 



Table B 
(amount due) 



Two tables (TABA and TABB) are described in alternating 
format. An item for TABA appears first. Thus, TABA is 
named in columns 27 through 32 of the extension specifi- 
cations sheet (see Part 2 of this figure); TABB is named in 
columns 46 through 51. 
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Note: The decimal points shown 
in Table B are only for illustration 
purposes. Decimal points are not 
a part of table or array input data. 
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Figure 4-2 (Part 1 of 2). Related Tables 



Entry 5 



Entry 6 



Entry 7 



The corresponding items from the 
tables are entered in the system 
in alternating format. Corresponding 
items from the two tables are con- 
sidered as one entry. 



4-4 Extension Specifications 



Table entries for the two tables, A and B, are entered in 
alternating format. A1 and B1, the corresponding items in 
tables A and B, are considered one entry. Even though 
14 table items are listed, there are only seven table entries. 
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Table whose items are loaded first is named in 
columns 27 through 32. 



Table whose items are loaded second is named in 
columns 46 through 51. 

This entry indicates the number of table entries in 
each input record. Remember, corresponding items 
from the two tables are considered as one entry. 



Figure 4-2 (Part 2 or 2). Related Tables 



When columns 27 through 32 contain an array name, 
the following rules apply to the use of columns 1 1 
through 18 and 33 through 35: 

• For a preexecution-time array, columns 1 1 through 
18 must contain a filename and columns 33 through 
35 must have an entry. 



COLUMNS 36-39 (NUMBER OF ENTRIES PER TABLE 
OR ARRAY) 

Entry Explanation 

1-9999 Maximum number of table or 

array entries 



For a compile-time array, columns 11 through 18 
must be blank and columns 33 through 35 must have 
an entry. 

For an execution-time array, columns 11 through 18 
and columns 33 through 35 must be blank. 



Use columns 36 through 39 to indicate the maximum 
number of entries that can be contained in the table or 
array named in columns 27 through 32. This number 
applies to one table or array or to two tables or arrays in 
alternating format. The number entered must end in 
column 39. 



Because the number of entries for two tables or arrays 
written in alternating format must be the same, the 
number in these columns also gives the number of 
entries in the second table or array specified in columns 
46 through 51. 



Columns 36-39 (Number of Entries Per Table or Array) 4-5 



If the table or array is full, these columns give the exact 
number of entries in it. However, if the table or array is 
not full, these columns give the number of entries that 
can be put into it (Figure 4-3). A table or array that is 
not full is one that contains unused entries and is known 
as a short table or array. 

A compile-time table or array should be full. However, 
if it is not full (a short table or array), the table or array 
is compiled with the program and a warning is issued. 
In storage, the unused entries in a short table or array 
are filled with blanks or zeros (for alphameric or numeric 
tables or arrays, respectively). A preexecution-time table 
or array need not be full. 



COLUMNS 40-42 (LENGTH OF ENTRY) 



Entry 



1-15 



1-256 



Explanation 



Length of a numeric entry 



Length of an alphameric entry 



COLUMN 43 (PACKED OR BINARY FIELD) 

Entry Explanation 

Blank Data for table or array is in 

zoned decimal format or is 
alphameric. 

P Data for table or array is in 

packed decimal format on disk. 

B Data for table or array is 

in binary format on disk. 

Use column 43 to indicate that a numeric field in a 
preexecution-time table or array file is in packed or 
binary format. Leave column 43 blank if the field is in 
zoned decimal format. See Column 43 under Field 
Description Entries in Chapter 7 for more information on 
packed or binary format. 



COLUMN 44 (DECIMAL POSITIONS) 



Use columns 40 through 42 to specify the length of 
each entry in the table or array named in columns 27 
through 32. The number entered must end in column 
42. For numeric tables or arrays in packed decimal 
format, enter the zoned decimal length in columns 40 
through 42. For numeric tables or arrays in binary 
format, enter the number of digits required in storage 
for the binary field. For a two-position binary field, the 
entry in columns 40 through 42 is 4; for a four-position 
binary field, the entry is 9. 

All table or array entries must have the same number of 
characters. It is almost impossible, however, for every 
item to be the same length. Therefore, add leading 
zeros for numeric entries and add blanks after 
alphameric entries to make them the same length (see 
Figure 4-4). 



Entry Explanation 

Blank Alphameric table or array 

0-9 Number of positions to the right 

of the decimal in numeric table 
or array items 

Use column 44 to indicate the number of decimal 
positions in a numeric table or array entry. Column 44 
must always have an entry for a numeric table or array. 
If the entries in a table or array have no decimal 
positions, enter a 0. 



For compile-time arrays, the maximum length of an 
alphameric entry is 96 because the maximum length of a 
record in the source program is 96 characters. 

If two tables or arrays are entered in alternating format, 
the specification in columns 40 through 42 applies to 
the table or array whose entry appears first in the record 
(see Figure 4-5). 

See Chapter 14, Tables and Arrays, for more 
information. 



4-6 Extension Specifications 



Note: The decimal points shown in these 
tables are only for illustration purposes. 
Decimal points are not part of table input 
data. 



TABPRT 
(part number) 



TABAMT 
(price) 



TABPRT 
(part number) 



TABAMT 
(price) 



001 • 


127.62 


002 


198.32 


003 


.27 


004 


.01 


005 


■1.98 


009 


3.79 


010 


5.67 


014 


2.33 


026 


14.67 


045 


29.33 


096 


29.34 


097 


.05 


098 


.09 


099 


1.19 


100 


2.22 


101 


126.73 


110 


596.74 


115 


393.75 


126 


697.75 


137 


1.92 



001 


127.62 


002 


198.32 


003 


.27 


004 


.01 


005 


1.98 































































If this data is entered into 
the system, TABPRT and 
TABAMT will be full (20 
entries fill the table). 



If this data is entered into 
the system, TABPRT and 
TABAMT will not be full. 
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To Filename 
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52 53 54 
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This entry indicates that TABPRT and TABAMT can 
both have a maximum of 20 entries. 



Figure 4-3. Table Entries (Number per Table) 



Column 44 (Decimal Positions) 4-7 



JANUARY 

FEBRUARY 

MARCH 

APRIL 

MAY 

JUNE 

JULY 

AUGUST 

SEPTEMBER 

OCTOBER 

NOVEMBER 

DECEMBER 



JANUARYbb 
FEBRUARYb 
MARCHbbbb 
APRILbbbb 
MAYbbbbbb 
JUNEbbbbb 
JULYbbbbb 
AUGUSTbbb 
SEPTEMBER 
OCTOBERbb 
NOVEMBERb 
DECEMBERb 



All entries must 
have the same 
length. Those 
items that are 
not as long as 
the longest 
item must be 
padded with 
blanks (b). 



List of Months TABMO 

Figure 4-4. Length of Table Entries 



COLUMN 45 (SEQUENCE) 

Entry Explanation 

Blank No particular order 

A Ascending order 

D Descending order 

Use column 45 to describe the sequence (either 
ascending or descending) of the data in a table or array 
file. 

When an entry is made in column 45, the table or array 
is checked for the specified sequence. If a compile-time 
table or array is out of sequence, a severe error occurs 
and the program halts after compilation. If a 
preexecution-time table or array is out of sequence, an 
error occurs and the program halts immediately. The 
program can be restarted from the point where it halted 
if you do not want to correct the out-of-sequence 
condition; however, if you do correct the 
out-of-sequence condition, program execution must be 
restarted from the beginning. 

Ascending order means that the table or array entries 
start with the lowest data entry (according to the 
collating sequence) and proceed to the highest. 
Descending order means that the table or array entries 
start with the highest data entry and proceed to the 
lowest. 



If two tables or arrays are entered in alternating format, 
the entry in column 45 applies to the table or array 
containing the entry that appears first on the record. 
When the LOKUP operation is used to search a table or 
array for an entry to determine whether the entry is high 
or low compared with the search word, the table or 
array must be in either ascending or descending order. 
See LOKUP in Chapter 10 for more information. 

An execution-time array (built by input and/or 
calculation specifications) is not sequence checked. 
However, an A or D entry must be specified if a high or 
low LOKUP operation is performed. 



COLUMNS 46-57 



Entry 

Table or 
array name 



Explanation 

Name of the alternating 
table or array 



Use columns 46 through 57 only to describe a second 
table or array that is entered in an alternating format 
with the table or array specified in columns 27 through 
32. All fields in this section have the same significance 
and require the same entries as the fields with 
corresponding titles in columns 27 through 45. See the 
previous discussion on those columns for information 
about correct specifications. Leave these columns blank 
for a single table or array. 



4-8 Extension Specifications 



TABCOD 
(code) 



TABAMT 
(amount) 



021 


217.43 


022 


93.06 


023 


8.14 


040 


2166.58 


041 


39.23 


060 


1741.78 


117 


83.33 


118 


5.12 


143 


72.03 


352 


253.96 



Two tables are entered in alternating format, TABCOD and 
TABAMT. Each item in TABCOD is 3 characters long; 
each item in TABAMT is 6 characters long. Since TABCOD 
is entered in the system first, its length, 3, is specified in 
columns 40 through 42. The length of items in TABAMT 
is in columns 52 through 54. 

Note: The decimal points shown in these tables are only 
for illustration purposes. Decimal points are not a part of 
table input data. 



3 
positions 



6 
positions 
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The length of the table item that is first entered in the 
system must appear in columns 40 through 42. 



Figure 4-5. Length of Corresponding Table Items 



Columns 46-57 4-9 



COLUMNS 58-74 (COMMENTS) 

Columns 58 through 74 can be used for comments to 
document the purpose of each specification line. 



COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 
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• The shaded columns must be blank for the file 
named. 

• For tables and all arrays except execution-time arrays, 
columns 19 through 26 are optional. For all tables 
and arrays, columns 46 through 57 are optional. 

• Execution-time arrays are loaded via input and /or 
calculation specifications. 

• For record address files, columns 1 1 through 26 must 
have entries. 

Figure 4-6. Possible File Entries for Extension Specifications 



4-10 Extension Specifications 



Chapter 5. Line Counter Specifications 



Line counter specifications indicate at what line overflow 
occurs and the length of the form used in the printer. 
Both of these entries must be specified on the RPG 
Extension and Line Counter Specifications sheet (Figure 
5-1). Line counter specifications should be used for 
each printer file in your program. If no line counter 
specifications exist, the form length used is the form 
length specified on the PRINTER OCL statement. (See 
the LINES parameter of the PRINTER OCL statement in 
the System Support Reference Manual for a description 
of the defaults for the form length.) 

In these instances, the overflow line is assumed to be six 
lines less than the specified form length. 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1. 

COLUMN 6 (FORM TYPE) 

An L must appear in column 6 to identify this line as a 
line counter specifications statement. 
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Figure 5-1. RPG Extension and Line Counter Specifications 



Columns 1-2 (Page) 5-1 



COLUMNS 7-14 (FILENAME) 
Entry Explanation 

A valid Filename of the printer 

filename output file as previously 

defined on the file description 
specifications. The filename 
must begin in column 7. 

Use columns 7 through 14 to identify the output file to 
be printed on the printer. 



COLUMNS 15-17 (LINE NUMBER-NUMBER OF 
LINES PER PAGE) 

Entry Explanation 

1-112 Number of printing lines 

available is 1 to 112. 

Use columns 15 through 17 to specify the exact number 
of lines available on the form or page to be used. The 
entry must end in column 17. Leading zeros can be 
omitted. 



COLUMNS 18-19 (FORM LENGTH) 
Entry Explanation 



FL 



Form length 



Use columns 18 and 19 to indicate that the preceding 
entry (columns 15 through 17) is the form length. 
Columns 18 and 19 must contain the entry FL. 



COLUMNS 20-22 (LINE NUMBER-OVERFLOW LINE) 

Entry Explanation 

1-112 The line number specified 

is the overflow line. 

Use columns 20 through 22 to specify the line number 
that is the overflow line. The entry must end in column 
22. Leading zeros can be omitted. The entry must be 
less than or equal to the form length specified in 
columns 15 through 17. When the line that is specified 
as the overflow line is printed, the overflow indicator 
turns on. When the overflow indicator is on and fetch 
overflow is not specified, the following occurs before 
forms advance to the next page: 

1. Detail lines are printed (if this part of the program 
cycle has not already been completed). 

2. Total lines are printed (if conditions are met). 

3. Total lines conditioned by the overflow indicator 
are printed. 

Because all these lines are printed on the page after the 
overflow line, specify the overflow line high enough on 
the page to allow all these lines to print. See Overflow 
Indicators in Chapter 9 for more information. 

Note: If the number of lines per page entry equals the 
overflow line entry, no overflow occurs. 

COLUMNS 23-24 (OVERFLOW LINE) 
Entry Explanation 

OL Overflow line 

Use columns 23 and 24 to indicate that the preceding 
entry (columns 20 through 22) is the overflow line. 
Columns 23 and 24 must contain OL. 

COLUMNS 25-74 

Columns 25 through 74 are not used. Leave them blank. 

COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 



5-2 Line Counter Specifications 



Chapter 6. Telecommunications Specifications 



Telecommunications specifications describe the 
information necessary to establish and maintain the 
BSC (binary synchronous communications) link. Each 
BSCA file defined on the file description specifications 
sheet must have a corresponding entry on the RPG 
Telecommunications Specifications sheet (see Figure 
6-1). 

RPG II data communications programming enables you 
to transmit and receive binary synchronous data via a 
data communications network. RPG II data 
communications support performs all the functions 
necessary to establish the line connections, exchange 
identification sequences, send and receive data, and 
execute the correct termination or disconnect 
procedures. 



RPG II permits System/34 to function as any of the 
following station types: 

• Receive only (receive input data from a remote 
station). 

• Transmit only (transmit data to a remote station). 

• Transmit and receive, but no conversational reply. 
Three modes of operation are possible: 

- Transmitting a file, then receiving another file 

- Receiving a file, then transmitting another file 

- Transmitting records of one file interspersed with 
receiving records of another file 
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Figure 6-1. RPG Telecommunications Specifications 



Telecommunications Specifications 6-1 



BSC is a flexible form of line control that provides a set 
of rules for communications between devices. For a 
description of the basic characteristics and operational 
concepts of BSC, a description of the RPG II interface 
to BSC, and a complete description of RPG II data 
communications programming, see the Data 
Communications Reference Manual. 

Note: Telecommunications specifications are used only 
for RPG II data communications programming. 
Telecommunications specifications are not used for the 
Interactive Communications Feature (SSP-ICF). 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1 , 



COLUMN 6 (FORM TYPE) 

A T must appear in column 6 to identify this line as a 
telecommunications specifications statement. 



COLUMNS 7-14 (FILENAME) 

Entry Explanation 

A valid Filename previously defined on the 

filename file description specifications for 

the BSCA device 

COLUMN 15 (CONFIGURATION) 

Entry Explanation 

P or blank This is a point-to-point 
nonswitched network. 

M This is a multipoint network 

where the control station selects 
the tributary station through 
polling or addressing. System /34 
cannot be the control station. 

S This is a point-to-point 

switched network. 

If this column contains an M, column 17 must 
contain a T. 



COLUMN 16 (TYPE OF STATION) 

Entry Explanation 

T This station transmits messages from 

the file named in columns 7 through 14. 
The file must be designated as an 
output file on the file description 
specifications and must be defined 
on the output specifications. 

R This station receives messages in 

the file named in columns 7 through 
14. The file must be designated as 
an input file on the file description 
specifications and must be defined on 
the input specifications. 

Note: This entry is independent of the entry in column 
20. 



COLUMN 17 (TYPE OF CONTROL) 

Entry Explanation 

Blank Polling is not used. 

T This is a tributary station on 

a multipoint network. Column 17 
must contain a T if column 15 
contains an M. 

System/34 cannot be the control station. 



COLUMN 18 (TYPE OF CODE) 

Entry Explanation 

A or U ASCII (formerly referred to as 

USASCII) transmission control 
characters are used. An A or U entry 
causes the necessary file translation 
to be done for System /34. 

E or blank EBCDIC transmission control characters 
are used. 

ASCII and EBCDIC characters are listed in the Data 
Communications Reference Manual. 

If your BSC program halts because of an invalid ASCII 
character in your data, check your data and the ASCII 
translation table. 



6-2 Telecommunications Specifications 



COLUMN 19 (TRANSPARENCY) 



COLUMNS 33-39 (IDENTIFICATION-THIS STATION) 



Entry Explanation 

Y EBCDIC transparency is used. The 

data being transferred can contain 
transmission control characters 
and/or packed numeric or alphameric 
characters. Column 18 must be E or 
blank. 

N or blank , EBCDIC transparency is not used. 

Zoned decimal numeric or alphameric 
data is transmitted and received. 
The data being transferred cannot 
contain transmission characters. 



COLUMN 20 (SWITCHED) 



Entry 

Blank 
M 



Explanation 

This is not a switched network. 

The operator using this program 
makes the connection by dialing 
the number (manual dial). 

This program uses autoanswer. 

This program uses manual answer. 



Notes: 

1. This entry is independent of the entry in column 16. 

2. For a detailed explanation of how the initial line 
connection is made, see Network Control in the Data 
Communications Reference Manual. 



COLUMNS 21-31 

Columns 21 through 31 are not used. Leave them blank. 



COLUMN 32 (LOCATION OF IDENTIFICATION-THIS 
STATION) 



Entry Explanation 

Alphameric When column 32 contains an E, this 
characters entry is the actual identification 

sequence of this station (minimum of 
2 characters). When column 32 
contains an S, this entry is the 
symbolic name of the location of this 
station's identification. 

If columns 33 through 39 contain a symbolic name, it 
must not be an array name. If the BSCA file is a 
primary or secondary file, the symbolic name must refer 
to the first entry of a table (the table might have only 
one entry) to ensure that the station identification is in 
storage before the communications line is open. 

The station identification referred to by the symbolic 
name can be from 2 to 1 5 characters long, but it must 
not contain a transmission control character. 

The station identification is translated if the BSCA files 
are translated. 



COLUMN 40 (LOCATION OF 
IDENTIFICATION-REMOTE STATION) 

Entry Explanation 

Blank This is a nonswitched or switched 

network, and no identification is 
used for the remote station. 

S This is a switched network. The 

remote station's identification is 
at the position specified by the 
symbolic name in columns 41 
through 47. 

E This is a switched network. The 

entry in columns 41 through 47 
is the remote station's 
identification. 



Entry Explanation 

Blank This is a nonswitched or switched 

network, and no identification is 
used for this station. 

S This is a switched network. This 

station's identification is at the 
position specified by the symbolic 
name in columns 33 through 39. 

E This is a switched network. The 

entry in columns 33 through 39 is 
this station's identification. 
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COLUMNS 41-47 (IDENTIFICATION-REMOTE 
STATION) 



COLUMNS 53-54 (PERMANENT ERROR 
INDICATOR) 



Entry Explanation 

Alphameric When column 40 contains an E, this 
characters entry is the actual identification 
sequence of the remote station 
(minimum of 2 characters). When 
column 40 contains an S, this entry 
is the symbolic name of the 
location of the remote station's 
identification. 

If columns 41 through 47 contain a symbolic name, it 
must not be an array name. If the BSCA file is a 
primary or secondary file, this symbolic name must refer 
to the first entry in a table (the table might have only 
one entry) to ensure that the station identification is in 
storage before the communications line is open. 

The station identification referred to by the symbolic 
name can be from 2 to 1 5 characters long, but must not 
contain a transmission control sequence character. The 
station identification is translated if the BSCA files are 
translated. 

The identification received from the remote station is 
compared with this entry. The session continues only if 
the identification matches. 



COLUMNS 48-51 

Columns 48 through 51 are not used. Leave them blank. 



COLUMN 52 (ITB) 

Entry Explanation 

Blank Intermediate block checking 

is not used. 

I Intermediate block checking is used. 

Intermediate block checking (ITB) can be used only if 
the records are blocked. ITB and EBCDIC transparency 
cannot both be specified for the same BSCA output file. 



Entry 

Blank 



01-99, 
L1-L9, 
LR, 
H1-H9 



Explanation 

No permanent error indicator is 
specified. If a permanent error 
occurs, a system halt occurs and 
the program cannot be restarted. 

A permanent error indicator can be 
specified for every BSCA file. If 
there is more than one BSCA file, 
each file can have a permanent error 
indicator. The indicator does not have 
to be unique for each file. Specifying 
a permanent error indicator is 
recommended when the system is 
running in an unattended mode. 

Use columns 53 and 54 to specify a permanent error 
indicator for every BSCA file. When a permanent error 
occurs, the specified error indicator and the 
identification indicator of the record causing the error 
turn on (however, no hardware diagnostics are 
performed). The permanent error indicator can then be 
used to condition the appropriate programming 
response, such as printing a message or performing a 
controlled cancel. 

Do not attempt further transmission while the 
permanent error indicator is on. This includes attempts 
to transmit more than one record during detail, total, or 
exception output. Further transmission can be prevented 
if each record to be transmitted is conditioned with the 
not-permanent-error indicator in columns 9 through 1 1 
of the calculation specifications or columns 23 through 
31 of the output specifications. 

To retry an operation after a permanent error occurs, 
turn off the permanent error indicator. The RPG II 
program can then access the BSCA file on which the 
error occurred. If an error occurs on the retried 
operation, the permanent error indicator is turned on 
again; otherwise, processing continues. 
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Keep the following points in mind when retrying an 
operation: 

• The permanent error indicator is the only indication to 
the RPG II program that an error occurred. A BSCA 
information message describing the type of error is 
displayed. If a halt (H1 through H9) is not issued as 
part of the permanent error routine, the BSCA 
information message may not be preserved on the 
display screen. 

• Any data in the BSCA buffers at the time of an error 
is lost. The record in your buffers is not the same as 
the record in the BSCA buffers. Therefore, retrying 
the last operation will still result in lost data. 

• Switched lines are not disabled when an error occurs 
unless a disconnect sequence is received or the 
hardware detects disconnect. 

• Any data transmitted while the permanent error 
indicator is on is invalid. Unless your program is 
designed to recognize all data, the error condition can 
cause an unidentified record halt. 

• A limit should be imposed by the RPG II program on 
the number of times an error can occur before the 
program is stopped. 

Note: Avoid using H1 through H9 as permanent error 
indicators if you are going to condition operations on the 
permanent error indicator being off. Because H1 
through H9 are reset at the end of the detail logic cycle, 
they can be set off before the program cycle in which 
the error occurred is completed. If H1 through H9 is 
used as a permanent error indicator, the H1 through H9 
display can preempt the system halt display. If the HI 
through H9 display appears before the system display, 
the operator should take the option to prompt the 
system halt display. 



COLUMNS 55-57 (WAIT TIME) 

Entry Explanation 

Blank The system convention for time-out, 

180 seconds, is used. 

Numeric The length in time in seconds, 1 

to 999, that BSC waits with no 
messages being sent or received 
before a permanent error occurs. 

A permanent error indication is recognized by the 
system whenever the wait time on an idle line elapses. 
Therefore, when determining the wait time, consider the 
time the operator might require to respond to halts and 
other processing interruptions, and also time the 
program might require for special operations such as 
table searches and computing square roots. 

The wait time limit specified applies only to delays 
caused by the System/34 program and does not apply 
to the remote device. In addition, the time limit applies 
only during the transmission or reception of a file, not 
between file transmissions. The occurrence of a 
permanent error indicates the end of processing of a 
file, but not the end of file. 



COLUMNS 58-59 (RECORD AVAILABLE 
INDICATOR) 



Entry 

01-99, 
L1-L9, 
LR, 
H1-H9 



Explanation 

A record available indicator should 
be specified if a reverse interrupt 
(RVI is to be received. See Device 
Dependent Considerations in the 
Data Communications Reference 
Manual for examples of using a- 
record available indicator. This 
indicator turns on whenever a 
reverse interrupt (RVI) is received. 
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COLUMN 60 (LAST FILE) 



Entry 


Explanation 


Blank 


This BSCA file may not be 




the last input file processed. 


L 


This BSCA file is processed 




only after all other input 




files are processed. 



The entry in column 60 does not affect demand files. 



COLUMNS 61-62 (POLLING CHARACTERS) 

Entry Explanation 

Blank This station is not transmitting on 

a multipoint network. 

Alphameric The polling identification of this 
characters station is required if this station 

is part of a multipoint network and 
the BSCA file is a transmit (output) 
file. Polling and addressing characters 
must be used in pairs as listed in the 
Data Communications Reference Manual. 



COLUMNS 63-64 (ADDRESSING CHARACTERS) 

Entry Explanation 

Blank This station is not receiving on a 

multipoint network. 

Alphameric The addressing identification of this 
character station is required if this station is 

part of a multipoint network and the 
BSCA file is a receive (input) file. 
Polling and addressing characters must 
be used in pairs as listed in the Data 
Communications Reference Manual. 

Enter polling and addressing characters in EBCDIC; the 
compiler converts the characters to the form required by 
the code specified in column 18. (If ASCII was 
specified, enter uppercase addressing characters; they 
are converted to lowercase ASCII characters.) See 
Polling and Addressing Characters in the Data 
Communications Reference Manual. 



COLUMNS 65-74 

Columns 65 through 74 are not used. Leave them blank. 

COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 



FILE DESCRIPTION SPECIFICATIONS FOR BSCA 
FILES 

The following entries are used on the file description 
specifications to define a BSCA file. Entries for the 
columns not listed are described in Chapter 3, File 
Description Specifications. 

The only other specification sheet affected by a BSCA 
file is the control specifications. Because a BSC 
program must not be interrupted, a B must not be 
entered in column 37 of the control specifications. 



Columns 7-14 (Filename) 

Enter the name of the BSCA file. The same filename 
must be used on the telecommunications specifications. 

Note: Look-ahead fields must not be specified for a 
BSCA file. 



Column 15 (File Type) 

Entry Explanation 

I This is an input (receive) file. 

This is an output (transmit) file. 
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Column 16 (File Designation) 



Columns 20-23 (Block Length) 



The entries for this column are the same as those 
described in Chapter 3 except that: 

• D (demand file) is the required entry for transmit 
interspersed with receive. BSCA files should also be 
designated as demand files for any receiving program 
that does not address the BSCA files immediately. 
For example, if the BSCA file is defined as a 
secondary file, the communications line opens as 
soon as the program begins. This means that your 
wait time might elapse before you are ready to 
process the BSCA file. If the BSCA file is defined as 
a demand file, however, the line opens once the 
program is ready to receive the first record from the 
BSCA file. 

• R (record address file) is an invalid entry. A BSCA 
file cannot be a record address file. 



Enter the size of the blocks of data processed by BSC. 
The block length must be a multiple of the record 
length. The maximum block length is 4,075 bytes. 



Columns 24-27 (Record Length) 

Enter the length of the BSCA records, right-justified. If 
the record length is not specified, it defaults to the 
maximum record length, which is 4,075 bytes. 

If a record that has data of length is received, it is 
ignored unless 3740 mode is used, in which case it is 
considered a file separator. If your program receives a 
record that has a length greater than but shorter than 
the record size specified, the remainder of the record 
contains unpredictable characters. 



Column 17 (End of File) 

Enter an E if end of file on the input (receive) file is to 
determine end of job. The BSCA input file might be the 
only file with an E in column 17. However, if any other 
input file has an E in column 17, all BSCA input files 
should also have an E in column 17. This E is not 
necessary for the BSCA files; but when it is not 
specified and end of file is reached on another input file, 
the BSCA files close and the system on the other end 
of the communications line has no indication of what 
has happened. When an E is specified for the BSCA 
files, all systems can come to a successful end of job. 



Column 19 (File Format) 

Enter an F (fixed length) for BSCA files. 



Column 32 (File Organization or Addition I/O Area) 

Assign dual input/output areas in this column. Any 
number, 1 through 9, assigns two input/output areas. If 
this column is blank, only one input/output area is 
assigned and throughput is decreased accordingly. 



Columns 40-46 (Device) 

Entry Explanation 

BSCA This is the device entry for BSCA files. 

For data communications programming considerations, 
see the Data Communications Reference Manual. 
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Chapter 7. Input Specifications 



Input specifications describe the data files, records, and 
fields of the records used in the program. All input files 
are described on the input specifications except files 
assigned to the device KEYBORD, record address files, 
addrout files, and table files. KEYBORD files are 
described on the calculation specifications when the 
KEY operation code is used. Record address files, 
addrout files, and table files are described on the 
extension specifications. 



The input specifications are divided into two categories: 

• File and record-type identification entries (columns 7 
through 42) describe the input record and its 
relationship to other records in the file. 

• Field description entries (columns 43 through 74) 
describe the fields in the records. These 
specifications must start on the line below the file 
and record-type identification specifications. 

Write these specifications on the RPG Input 
Specifications sheet (see Figure 7-1). 
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Figure 7-1. RPG Input Specifications 



Input Specifications 7-1 



File and Record-Type Identification 
Entries 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1 . 



COLUMN 6 (FORM TYPE) 

An I must appear in column 6 to identify this line as an 
input specifications statement. 



COLUMNS 7-14 (FILENAME) 



Entry 

A valid 
filename 
or data 
structure 
name 



Explanation 

Same filename that appears on the 
file description specifications 
for the input file or the name 
of a data structure. 



If a data structure is specified (DS in columns 19 and 
20), columns 7 through 14 can contain: 

• Blanks 

• A name up to 6 characters long 

• A name previously referenced in columns 53 through 
58 of the input specifications 

Data structure entries must be the last entries on the 
input specifications. 



COLUMNS 14-16 



Entry 



Explanation 



AND or OR AND/OR indicates a relationship 

between record identifying indicators 
or record types. The entry must 
begin in column 14. 

See Columns 21-41 (Record Identification Codes) and 
Columns 53-58 (Field Name) in this chapter for more 
information on AND/OR relationship. 



COLUMNS 15-16 (SEQUENCE) 

Entry Explanation 

Any two Program does not check for special 

alphabetic sequence. Alphabetic characters must 
characters be used for chained files, demand 

files (except CONSOLE demand files), 
WORKSTN files, and look-ahead 
records. , 

01-99 Program checks for special sequence. . 

Use a numeric entry (01 through 99) in columns 15 and 
16 to assign a special sequence to different record types 
in a file. The first sequence number must be 01. Gaps 
in sequence numbers are allowed, but the numbers must 
be in ascending order. 

If the types of records do not need to be in any special 
order, use two alphabetic characters (see Figure 7-2). 
Within one file, all record types having alphabetic entries 
in columns 15 and 16 must be described before those 
types with numeric entries. 



Assigning Sequence Numbers 

Enter a numeric character in columns 15 and 16 if one 
record type (identified by a record identification code) 
must be read before another record type in a sequenced 
group. To specify sequence checking, each record type 
must have a record identification code, and the record 
types must be numbered in the order they should 
appear. The program checks this order as the records 
are read (see Figure 7-3). If a record type is out of 
sequence, the program stops. The operator can restart 
the program by selecting the appropriate option and 
pressing an entry function key. The program bypasses 
the record that caused the halt and reads the next 
record from the same file. 

Sequence numbers ensure only that all records of the 
lowest record type precede the records of the next 
highest record type. The sequence numbers do not 
ensure that records within a record type are in any 
certain order. Sequence numbers are unrelated to 
control levels and do not provide for checking data in 
fields of a record for a special sequence (see Figure 
7-4). Use columns 61 and 62 to indicate that data in 
fields of a record be checked for a special sequence. 

Records in an OR or AND line cannot have a sequence 
entry in these columns. The entry in columns 15 and 16 
on the previous line also applies to the OR or AND line. 
See Columns 53-58 (Field Name) in this chapter for 
information on OR relationships. 
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File RECORDA has two types of records (part number and 
item number) that can appear in any order. Because they 
are not to be checked for sequencing, they are assigned 2 
alphabetic characters in columns 15 and 16 (AA and BC, 
respectively) instead of numbers. 

Figure 7-2. Unsequenced Record Types in a File 
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Second group of records 
(Customer 2) 



This file contains four different types of records. The 
records are arranged in groups according to a customer 
name control field. The name record is first in each group 
and is assigned sequence number 01 . Street record is next 
and is assigned 02. City /state record is 03. (Remember 
gaps are allowed.) Item number record is 07. More than 
one item number record can be present (N in column 17). 
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Figure 7-3. Sequence Checking of Record Type 
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Customer 2 

City /State Record 



Item Number (07) 



I Item Number (07) 



Each group is in proper sequence according to the assigned 
sequence numbers (01, 02, 03, and 07). Notice, however, 
that the city /state record for customer 3 is in the group for 
customer 2 and vice versa. The sequence entry that you 
specify in columns 15 and 16 does not catch this mistake 
because the sequence entry does not cause the data on the 
record to be checked. See Figure 7-3 for the coding of this 
example. 
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Figure 7-4. Correct Record Sequence (Incorrect Data Within Groups) 



Columns 15-16 (Sequence) 7-5 



COLUMN 17 (NUMBER) 



Display Station Local Data Area 



Entry Explanation 

Blank Program does not check record 

types for a special sequence (columns 
15 and 16 have alphabetic entries). 



To define a display station local data area for your 
program, enter a U in column 18 and define a data 
structure with a maximum of 256 characters (see Figure 
7-6). See Columns 19-20 (Record Identifying Indicator, 
**, DS) for information on defining a data structure. 



1 Only one record of this type can 

be present in the sequenced group. 

N One or more records of this type can 

be present in the sequenced group. 

Use column 17 only if columns 15 and 16 contain a 
numeric entry specifying sequence checking (see Figure 
7-5). 

OR lines (columns 14 and 15 contain OR) and AND lines 
(columns 14 through 16 contain AND) should not have 
an entry in this column. The entry in column 17 on the 
previous line also applies to the OR or AND line. See 
Columns 53-58 (Field Name) in this chapter for more 
information on OR lines. 



COLUMN 18 (OPTION) 



Entry 



Blank 



O 



Explanation 

Record type must be present if 
sequence checking is specified. 

Record type is optional (that is, 
it may or may not be present) if 
sequence checking is specified. 

The program uses the data structure 
defined on this specification line as 
a display station local data area. 



A local data area is provided for each command display 
station on System /34. The local data area for the 
requestor of a single requestor program is read into the 
RPG II display station local data area at the beginning of 
the program and written out automatically, at the end of 
the program. This local data area allows data to be 
passed from program to program or from job to job for 
the requesting display station. Use the LOCAL OCL 
statement or another RPG II program to enter 
information into the display station local data area (see 
the System Support Reference Manual). The program 
can change this data and update the display station local 
data area at end of job. 

For a multiple requestor program, the display station 
local data area (defined with U in column 18) contains a 
copy of the local data area for the first requestor only. 
Any modifications specified by LOCAL OCL statements 
are made to this copy of the local data area, not to the 
requestor's local data area. This copy of the local data 
area is read into the display station local data area at 
the beginning of the program, but it is not automatically 
written out at the end of job. To read and write the 
local data area for each requestor in a multiple requestor 
program, use SUBR21 (see IBM -Written Subroutines 
SUBR20 and SUBR21 in Chapter 13, WORKSTN File 
Considerations and Sample Programs). 



Use column 18 only if columns 15 and 16 contain a 
numeric entry specifying sequence checking, or if the 
data structure defined on the following specification line 
is used as a display station local data area. 

If sequence checking is specified and all record types 
are optional, no sequence error is found. 

OR and AND lines should not have an entry in this 
column. The entry in column 18 on the previous line 
also applies to the OR or AND line. See Columns 53-58 
(Field Name) in this chapter for more information on OR 
lines. 
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COLUMNS 19-20 {RECORD IDENTIFYING 
INDICATOR, **, DS) 

Entry Explanation 

01-10 Record identifying indicator for CONSOLE 
files. Record identifying indicators 
01 through 10 for CONSOLE files 
correspond to command keys 1 through 10. 

01-99 Record identifying indicator. 

L1-L9 Control level indicator used for a record 
identifying indicator when a record type 
rather than a control field signals the start 
of a new control group. 

LR Last record indicator. 

H1-H9 Halt indicator used for a record 

identifying indicator when checking 
for a record type that causes an 
error condition. 

** Look-ahead field. Look-ahead can be 

used only with input or update 
files; however, these files cannot be chained 
or demand files. Look-ahead fields are not 
valid with CONSOLE files or WORKSTN 
files. 

DS Data structure. A data structure is 

considered to be alphameric data and can 
be from 1 to 9999 characters in length. 
Data structure entries must be the last 
entries on the input specifications. 



Use columns 19 and 20 to: 

• Assign a record identifying indicator to each record 
type in a file. These indicators do not have to be 
assigned in any order. 

• Define the field that is described on the following line 
in columns 53 through 58 as a look-ahead field. 

• Define the same internal area multiple times, 
subdivide fields, or group fields by declaring the area 
a data structure. 



Record Identifying Indicators 

To identify which record type is being processed during 
a program cycle, assign a unique record identifying 
indicator to each record type in a file. When a record 
type is selected for processing, its corresponding 
indicator turns on and remains on throughout the cycle. 
Therefore, this indicator can be used to condition 
calculation and output operations (see Columns 9-17 in 
Chapter 8, Calculation Specifications, and Columns 23-31 
in Chapter 9, Output Specifications) and to associate a 
field with a particular record type (see Columns 63-64 
(Field Record Relation) in this chapter). 

For a WORKSTN file, the first input record is blank 
unless a read under format is performed (see Read 
Under Format in Chapter 13) or unless program data-yes 
is specified in the procedure that called the program 
(see the $MAINT utility program description in the 
System Support Reference Manual or the description of 
SEU end of job in the SEU Reference Manual). This 
blank record must be identified on the input 
specifications, and a record identifying indicator must be 
assigned to that record. 

The same indicator can be assigned to two or more 
different record types if the same operation is to be 
performed on all record types. To do this, use the OR 
relationship. See Columns 21-41 (Record Identification 
Codes) for more information. Record identifying 
indicators for OR lines can also be specified for every 
record type in the OR relationship that requires special 
processing. See Columns 53-58 (Field Name) for more 
information. 

No record identifying indicator can be specified in the 
AND line of an AND relationship. See Columns 21-41 
(Record Identification Codes) for more information. 

When a control level indicator used as a record 
identifying indicator turns on to indicate the type of 
record read, only that one control .level indicator turns 
on. All lower control level indicators remain unchanged. 

If RPG telecommunications specifications are used, see 
Columns 53-54 (Permanent Error Indicator) in Chapter 6, 
Telecommunications Specifications, for a description of 
the permanent error indicator. 
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Customer 2 

Record types 02 and 07 are optional as indicated by in 

column 18. 




Customer 1 

Only one record of types 01, 02, and 03 can be present as 

indicated by 1 in column 17; however, any number of 

record types 07 can be present as indicated by N in column 

17. 
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Figure 7-5. Sequenced Record File 
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The program determines (1 ) how many copies of the file 
are to be printed and places this number in COPIES; (2) 
how the report is to be spaced (single-, double-, or triple- 
spaced) and places a 1, 2, or 3 in SPACES; and (3) how 
many lines are to be printed per page and places this 
number in PAGSIZ. HEDING contains the heading lines to 
be printed on the top of each page. 

Figure 7-6. Defining a Display Station Local Data Area 



Positions 138 through 256 are not used by the program 
and need not be defined. 

Note: Although a data structure name is specified in the 
example, this entry is optional for data structures used 
as a display station local data area. 
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Look-Ahead 



A look-ahead field allows you to: 



Determine when the last record of a control group is 
being processed 

Extend the RPG II matching record capability 



For input files, look-ahead fields always apply to the 
next record in the file, provided the file is not an update 
file. Thus, if the information is used both before and 
after the record is selected for processing, describe the 
field twice, once as a look-ahead field and once as a 
normal field. See Figure 7-8 for an example of how 
records are selected for processing from two input files 
when look-ahead fields are used. 



Because an RPG II program processes one record at a 
time, normally only the information from the record 
being processed is available for use. However, the 
look-ahead function enables information to be made 
available from records that follow the one currently 
being processed. This information can then be used to 
determine what operation should be done next. 

Any or all of the fields in a file can be described as 
look-ahead fields. The description applies to all records 
in the file regardless of their type. Look-ahead fields 
can be described before or after the field descriptions 
for any of the records in the file. The line that signals 
that look-ahead fields are to be described must contain 
an alphabetic entry in columns 15 and 16 and must 
contain ** in column 19 and 20. All the other columns* 
must be blank. Remember that specifications with an 
alphabetic sequence in columns 15 and 16 must precede 
specifications with a numeric sequence in columns 15 
and 16. 



For update files, the look-ahead fields apply to the next 
record in the file only if the record currently selected for 
processing was read from another file. Therefore, when 
the program is reading from only one file and that file is 
an update file, look-ahead fields always apply to the 
current record and contain the same information as a 
normal field. See Figure 7-9 for an example of how 
records are selected for processing from an update file 
and an input file when look-ahead fields are used. 

As the last record from a file is processed, every 
look-ahead field for the file is automatically filled with 
9s. For example, a look-ahead field that is 3 characters 
long will contain 999. The 9s remain in the field until 
the job ends. The blank-after option (B in column 39 of 
the output specifications) cannot be used with 
look-ahead fields. 



Look-ahead fields are described on the lines 
immediately following the line that contains ** in column 
19 and 20 (see Figure 7-7). Make the following entries 
for each look-ahead field description line: 

• Columns 44-51: Identify the record positions in 
which the field is located. 

• Column 52: If the field is numeric, enter the number 
of digits to the right of the decimal point in column 
52. If there are no decimal positions, enter a 0. If 
the field is alphameric, leave this column blank. 

• Columns 53-58: Enter the name of the look-ahead 
field. If the field is also one of the normal fields in 
the record, use a different name for the look-ahead 
field. 
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File Description Specifications 
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This program reads records from two disk files. The 
primary file is named PRIMARY; the secondary file, 
SECONDRY. If a record from the primary file matches 
one from the secondary file, the information in positions 
1 through 10 of the secondary file record is placed in 
positions 31 through 40 of the primary file record. 
When there is no match, a 6 is placed in position 1 of the 



primary file record. The 6 indicates an unmatched 
record in the primary file. 

Because the primary file record is processed first when it 
matches a secondary file record, the information from 
the secondary file can be made available only by a look- 
ahead field. 
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Look-ahead field (field from secondary file records 
needed in primary file records). 
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Place the look-ahead field from secondary records into 
positions 31 through 40 of the primary record if the two 
records match. 

Figure 7-7. Look-ahead Fields 



Place a 6 in position 1 of the primary record if the 
record matches no secondary record. 
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Figure 7-8 (Part 1 of 2). Available Records: Two Input Files 
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Figure 7-8 (Part 2 of 2). Available Records: Two Input Files 
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Figure 7-9 (Part 1 of 3). Available Records: One Input File, One Update File 
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Figure 7-9 (Part 2 of 3). Available Records: One Input File, One Update File 
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Figure 7-9 (Part 3 of 3). Available Records: One Input File, One Update File 
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Data Structures 

A data structure can be used to: 

• Define the same internal area multiple times using 
different data formats (see Figure 7-10). 

• Subdivide a field so that either the entire field or its 
subfields can be referenced (see Figure 7-11). 

• Group fields for easier reference (see Figure 7-12). 

To specify a data structure, make the following entries 
(the columns not mentioned must be blank): 

• Column 6: I. 

• Columns 7-14: The name (maximum of 6 characters) 
of the data structure, which is optional. If specified, 
the name must meet the requirements of a field 
name. The data structure name can be referenced (1) 
as a field only on the input or output specifications, 
(2) as an RLABL, or (3) as a SAVDS or INFDS name 
in columns 60 through 65 of the file description 
specifications continuation lines for a WORKSTN file 
(see Chapter 13, WORKSTN File Considerations and 
Sample Programs, for more information on SAVDS or 
INFDS). 

• Column 18: U, if this data structure is to be used as 
a display station local data area. 

• Columns 19-20: DS, which identifies this as a data 
structure. 

• . Columns 75-80: Program identification. 

Remember that data structure entries must be the last 
entries on the input specifications. 

Figure 7-13 shows some common uses of a data 
structure. 
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Figure 7-10. Using a Data Structure to Redefine the Same Internal Area Multiple Times 
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Data structure can be referenced by PARTNO name or 
by subfields MFG, DRUG, STRNTH, COUNT or PART DS. 
However, the data structure name (PART NO) cannot be 
referenced in factor 1 , factor 2, or the result field (unless 
the operation is RLABL), but any of the subfield names can. 



Figure 7-1 1 . Using a Data Structure to Define Subfields within a Field 
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Figure 7-12. Using a Data Structure to Group Fields 



When you use a data structure to group fields, fields 
from nonadjacent locations on the input record can be 
made to occupy adjacent storage locations internally. 
The storage area can then be referenced by the data 
structure name on output specifications, a data structure 
name entered as the result field of an RLABL operation, 
or by the subfield names. To reference the entire data 
structure in factor 1, factor 2, or the result field (except 
for RLABL), assign a subfield name to include the entire 
data structure (see line 11). 
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The data structure defined on line 01 (SAVDS) is used 
as the SAVDS data structure (specified on a file 
description continuation line for the WORKSTN file). 
This data structure contains fields that are to be saved 
and restored for each display station attached to the 
WORKSTN file. 

The data structure defined on line 07 (LDA) is used as 
the display station local data area (U in column 18). 
Information from the requesting command display 
station's local data area is read into this data structure 
at the beginning of the program and is written out at the 
end of the program. The program can change this data 
and update the display station local data area at end of 
job. This use of the data structure is usually related to a 
single requestor terminal (SRT) program. 

The third data structure (defined on line 13) contains 
three subfields (KEY on line 14, ARRFLD on line 19, and 
ID on line 20) for which additional subfields are defined. 
The name ARRFLD (line 19) indicates a subfield into 
which an array is moved. 



Figure 7-13. Typical Uses of Data Structures 

7-20 Input Specifications 



To specify the subfields of a data structure, make the 
following entries. These entries must be made on the 
line below the DS specification. The columns not 
mentioned must be blank. 

• Column 6: I. 

• Columns 44-47: The number of the record position in 
which the subfield begins relative to the beginning of 
the data structure. 

• Columns 44-50: To define the reserved, self-defining 
subfields for the file information data structure 
(INFDS), enter keywords ("OPCODE, "RECORD, 
*SIZE, "STATUS, "MODE, "INP, "OUT) on subfield 
specification lines for the data structure. 



When using a data structure, consider the following: 

• A data structure is considered an alphameric byte 
string. The data structure is initialized to blanks 
except for that part of the data structure that is 
initialized with an array or a display station local data 
area. You must ensure that numeric subfields are 
initialized with numeric data prior to their use in 
CHAIN, LOKUP, COMP, or editing operations. If the 
element is a compile-time array, the array data is 
placed in the data structure after the data structure 
has been initialized to blanks. 

• You can redefine a subfield in the data structure by 
specifying the same or part of the same from /to 
positions for another subfield. 



In addition to these keyword-defined subfields, there 
is an alphameric subfield in the INFDS that contains 
WORKSTN data management or SSP-ICF return 
codes. This subfield is filled in for all WORKSTN 
files. The subfield is located in positions 23 through 
26 and must be defined on the input specifications. 
(For information on return codes resulting from the 
use of the Interactive Communications Feature, see 
the Interactive Communications Feature Reference 
Manual.) 



The name of an input field or a result field that is 
being redefined in a data structure must be specified 
in the data structure or be the data structure name; 
however, it does not have to immediately precede the 
subfields redefining it. 

If a field appears as a data structure name or as a 
data structure subfield name, the physical space 
reserved for that field is in the data structure, 
regardless of where the field was defined. 



Each subfield must be given a name in columns 53 
through 58. This allows the program to reference the 
subfields. For more information concerning the 
INFDS data structure, see WORKSTN Exception/ Error 
Handling in Chapter 13. 

• Columns 48-51: The number of the record position in 
which the subfield ends relative to the beginning of 
the data structure. 

• Column 52: The number of digits (0 through 9) to the 
right of the decimal position if the subfield is 
numeric. Leave the column blank if the subfield is 
alphameric. ^Columns 53-58: The subfield name. 
The subfield name can be the same as an input field 
name or a result field name, and it can appear as an 
RLABL. Subfields can be used in factor 1, factor 2, 
or as an output field. However, the same subfield 
name cannot be specified in different data structures, 
and a data structure name cannot be specified as 
part of another data structure. RPG II field name 
rules apply to subfield names. 



The from and to positions specified in a data 
structure for an input field that is being redefined are 
relative to the beginning of the data structure, not to 
the positions that the field occupies in the input 
record. 

A subfield can have the same length attributes as 
other fields or subfields. 

The maximum length of an alphameric subfield is 256 
characters; the maximum length of a numeric subfield 
is 15 characters. 

If arrays are specified as subfields, the length 
specified must equal the amount of storage required 
to store the entire array. 



Columns 75-80: Program identification (optional). 
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The following restrictions apply to the use of a data 
structure: 

• The maximum length of a data structure is 9,999 
characters. However, if the data structure is defined 
as a display station local data area (U in column 18), 
the maximum length is 256. 

• The length of a data structure is defined in one of 
two ways: (1)lf the data structure name is specified 
as a field in an input record, the length of the data 
structure is the same as the length of the input field. 
If the to-position specified for a subfield exceeds the 
length defined for the input field, the input field 
specification is invalid. (2) If the data structure name 
is not specified as a field in an input record, the 
length is defined by the highest to-position specified 
for a subfield. 

• Look-ahead fields cannot appear as a data structure 
or a subfield. 

• Packed or binary numeric fields cannot be specified 
as a subfield within the data structure. The field can 
be defined as packed or binary in a file. RPG 
converts the field to zoned decimal format when it is 
placed in the data structure. The field is carried in 
zoned decimal format within the data structure. 

• RPG II reserved words, array elements, and table 
names cannot be specified as a subfield. 

• A maximum of 75 data structures or tables or arrays 
can be used in a program. 



COLUMNS 21-41 (RECORD IDENTIFICATION 
CODES) 

Use columns 21 through 41 to describe the information 
that identifies a record type. If all records are to be 
processed alike regardless of their type or if there is 
only one record type, leave columns 21 through 41 
blank. 

Note: Only columns 21 through 34 are valid for 
CONSOLE files (see Chapter 12, CONSOLE File 
Considerations, for more information). 

When one file contains more than one record type, each 
record type is identified by a code consisting of a 
character or a combination of characters in certain 
positions in the record. If different operations are to be 
performed for each record type, this code must be 
described in columns 21 through 41 so that the program 
can determine the type of record selected for 
processing. Only one type of record is selected for 
processing during a program cycle, and the record 
identifying indicator for that record turns on at the time 
of selection. 

Seven columns are used for the description of one 
character in the record identification code. Each 
specification line contains three sets of seven columns: 
columns 21 through 27, 28 through 34, and 35 through 
41. Each set consists of four fields: Position, Not, 
C/Z/D, and Character. Coding is the same for all three 
sets. 

Note: Any record that is read by the system and is not 
described by a record identification code in columns 21 
through 41 causes the program to halt. The operator 
can continue, however, by selecting the appropriate 
option and pressing an entry function key. The record 
that causes the halt is not processed and the next 
record in that file is read. 
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Position (Columns 21-24, 28-31, and 35-38) 



Character (Columns 27, 34, and 41) 



Entry Explanation 

Blank No record identification code is 

needed. 

1 -4096 Record position of one character 

in the record identification code. 

Use these columns to give the location in the record of 
every character in the identification code. These entries 
must end in columns 24, 31, and 38 respectively. 



Not (N) (Columns 25, 32, and 39) 

Entry Explanation 

Blank Character is present in the specified 

record position. 

N Character should not be present in the 

specified record position (not valid for 
CONSOLE files; see Chapter 12). 

Use these columns to indicate that a certain character 
should not be present in the specified position." 



C/Z/D (Columns 26, 33, and 40) 

Entry Explanation 

C Entire character. C must be used 

for CONSOLE files (see Chapter 12). 

Z Zone portion of character. 

D Digit portion of character. 

Use these columns to indicate what portion of a 
character is used as part of the record identifying code. 
Only the zone portion, only the digit portion, or both 
portions (the whole character) can be used (see Figure 
7-14). When establishing record identifying codes, 
remember that many characters have either the same 
zone or the same digit portion. For a list of characters 
that have identical zone or digit portions, see Figure 
7-15. 



In these columns, enter the alphabetic character, special 
character, or numeric character that is used in the record 
as the identification code or part of the code. 



Character Grouping by Zone or Digit 

When characters are used for record identification 
purposes on a digit or zone only basis, all characters 
having the same zone or digit are selected by the 
system as meeting record identification requirements. 
When a character is read into the system, it is converted 
into an 8-bit code. The program tests this 8-bit code to 
see whether the character meets the requirements of 
the record identifying character in the input 
specifications. 

Figure 7-15 lists the characters that have identical zones 
or digits. For example, if column 26 contains D, which 
specifies digit only, and column 27 contains A, all 
records having a slash (/), A, J, or 1 in the specified 
column are selected as having the correct record 
identification code. If column 26 contains Z and column 
27 contains A, all records containing & or A through I 
are selected as having the correct code. 

The following three special cases are exceptions: 

• The hex representation of an & (ampersand) is 50. 
However, when the ampersand is coded in the 
character entry, it is treated as though its hex 
representation were CO, that is, as if it had the same 
zone as the characters A through I. An ampersand in 
the input data satisfies two zone checks, for either a 
hex 5 zone or a hex C zone. 

• The hex representation of a - (minus sign) is 60. 
However, when the minus sign is coded in the 
character entry, it is treated as though its hex 
representation were DO, that is, as if it had the same 
zone as the characters J through R. A minus sign in 
the input data satisfies two zone checks, for either a 
hex 6 zone or a hex D zone. 

• The hex representation of a blank is 40. However, 
when the blank is coded in the character entry, it is 
treated as though its hex representation were F0, that 
is, as if it had the same zone as the numeric 
characters through 9. A blank in the input data 
satisfies two zone checks, for either a hex 4 zone or 

a hex F zone. 
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AND Relationship 



OR Relationship 



A maximum of three identifying characters can be 
described in one specification line. If the identification 
code consists of more than 3 characters, an AND line 
must be used to describe the additional characters. 
Write the word AND in columns 14 through 16 to 
indicate an AND line (see Figure 7-14). 

A maximum of 20 AND lines can be used to describe 
the record identifying code for a record sequence if no 
OR lines are used. The record must contain all the 
characters indicated as its record identification code 
before the record identifying indicator turns on. AND 
lines are not allowed on CONSOLE files used for 
interactive data entry. 



If a particular record type can be identified by two 
different codes, OR lines must be used to indicate that 
either of the codes can be present to identify the 
record. A maximum of 20 OR lines can appear for each 
record sequence if no AND lines are used. Write the 
word OR in columns 14 and 15 to indicate an OR line 
(see Figure 7-14). 

Note: If AND lines and OR lines are combined, the total 
number of AND and OR lines for one record sequence 
cannot exceed 20. 



COLUMN 42 

Column 42 is not used. Leave it blank. 



Character 5 must be present in position 1, zone of 
character T in position 94, character 9 in position 95, 
and digit E in position 96. However, digit 9 must not 
be present in column 93. Only the digit portions of 9 
and E are checked, and only the zone portion of 
character T is checked. 
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Record type 15 can be identified by two different 
codes: a 5 in position 1 and a 6 in position 2 or a 6 in 
position 1. 

Figure 7-14. Record Identification Codes 



AND must be used to describe last 2 characters of a 
5-character code. 
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Character Grouping by Zone (Z) 
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Character Grouping by Digit (D) 
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Figure 7-15. Characters Interpreted as Having the Same Zone or Digit 



Column 42 7-25 



Field Description Entries 

Note: The field description entries (columns 43 through 
74) must begin one line below the file and record 
identification entries (columns 7 through 42) for each 
file. 



COLUMN 43 (PACKED OR BINARY FIELD) 

Entry Explanation 

Blank Field is in zoned decimal format 

or is alphameric. (This column must 
be blank for CONSOLE files.) 

P Field named in columns 53 through 58 

is in packed decimal format on 
the disk. 

B Field named in columns 53 through 58 

is in binary format on the disk. 

Use column 43 to indicate that a numeric field is in 
packed decimal or binary format. Only disk files support 
packed decimal or binary fields for read or write 
operations. Numeric data fields in packed decimal or 
binary format are converted by the system to the zoned 
decimal format before they are processed. This 
conversion ignores decimal points. 

Any array that is in packed or binary format should have 
a P or B in this column. The from and to columns 
should then define the positions the array occupies in 
the record in the packed or binary format. The zoned 
decimal length of each array element is defined on the 
extension specifications. 



Zoned Decimal Format (Blank) 

Zoned decimal format means that each byte of storage, 
whether on disk or in the computer, can contain 1 
character. That character can be a decimal number or 
an alphabetic or special character. In the zoned decimal 
format, each byte of storage is divided into a 4-bit zone 
portion and a 4-bit digit portion. The zoned decimal 
format looks like this: 
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byte 



1101 = Minus sign (hex D) 
1111 = Plus sign (hex F) 
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Note: RPG II does not perform data verification on 
numeric data. The value of the digit portion of a 
character is assumed to be the numeric value of that 
character. 

The zone portion of the low-order byte indicates 
whether the decimal number is positive or negative. In 
zoned decimal format, each digit in a decimal number 
includes a zone portion; however, only the low-order 
zone portion serves as the sign. The decimal number 
8,191 looks like this in zoned decimal format: 



Zone Zone 

\ 8 \ 



Zone 



Positive 
sign 



I 

1000 

I 


I 

0001 

I 


I 
1001 

I 


1 

1111 0001 

I 



■4 bytes- 



Once data is read into the computer, it must be 
represented in the zoned decimal format before it can 
be processed. Thus, data can be stored on disk and 
read into the computer in the zoned decimal format, 
thereby eliminating the need to convert the field. 
However, storing numeric data (decimal numbers) on 
disk in either the packed decimal or the binary format 
provides more efficient use of disk storage space. 



Packed Decimal Format (P) 

Packed decimal format means that a byte of disk 
storage (except for the low-order byte) can contain two 
decimal numbers. Because many of the fields in a disk 
file contain decimal numbers, you can conserve disk 
space by storing these fields in the packed decimal 
format. 



In the packed decimal format, each byte of disk storage, 
except the low-order byte, is divided into two 4-bit digit 
portions. The rightmost portion of the low-order byte 
contains the sign (plus or minus) for that field. The 
packed decimal format looks like this: 



-7 0- 



Digit Digit 



Digit Sign 
I 



byte 



The sign portion of the low-order byte indicates 
whether the numeric value represented in the digit 
portions is positive or negative. In the packed decimal 
format, the sign is included for each decimal number; 
however, the zone portion is not given for each digit in 
the number. Compare how the decimal number 8,191 is 
represented in packed decimal format with its zoned 
decimal representation shown before (see Figure 7-16). 
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Binary Format: 

Positive | I I I I I I I I | | I I 

Sign 4096+2048 + 1024+512 + 256 + 128+ 64 + 32 + 16+8 +4 +2 +1 

J I I I I I I I I I I 



8J91 1 



1 



1 1 1 



11111111 



•2 bytes- 



Packed Decimal Format: 




■3 bytes- 



Zoned Decimal Format: 2 



Zone 



Zone 

\ 



Zone 

1 



Zone 

1 



Positive 
sigr 



- 



1 

0000 

1 


1 

1000 
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I 

0001 
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I 

1001 

I 


I 

0001 

I 



■5 bytes- 



To obtain the numeric value of a positive binary number, add the values of the bits that are on (1 ); the sign 
bit is not included. To obtain the numeric value of a negative binary number, add the values of the bits 
that are off (0) plus one; the sign bit is not included. 

If 8.1 91 is read into storage as a zoned decimal field, it occupies 4 bytes. However, if it is converted to 
packed decimal format, it occupies 3 bytes; then when it is converted back to zoned decimal format, it 
occupies 5 bytes. 

Figure 7-16. Binary, Packed Decimal, and Zoned Decimal Representation of 8,191 
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Because data must be represented in zoned decimal 
format once it is inside the computer, you must give the 
RPG II program an indication when input fields are in 
another format. Entering a P in column 43 indicates that 
the input field is in the packed decimal format and that 
the system must convert this field to the required zoned 
decimal format. 

When a packed decimal field is converted to a zoned 
decimal field, the zoned decimal field always contains an 
odd number of bytes. If a zoned decimal field with an 
even number of bytes is converted to a packed decimal 
field and then converted back to a zoned decimal field, 
the resulting zoned decimal field also contains an odd 
number of bytes. 

Packed fields can be up to 8 bytes long. The following 
chart shows the packed equivalents for zoned decimal 
fields up to 15 bytes long: 



Zoned Decimal 


Packed Length 


Length 


in Bytes 


in Bytes 


15 
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Binary Format (B) 

Binary format means that 2 bytes of disk storage can 
contain a four-digit number, and that 4 bytes of disk 
storage can contain a nine-digit number. The binary 
format allows you to save even more disk storage space 
than you can save using the packed decimal format. In 
the binary format, each field on disk must be either 2 or 
4 bytes long. 

Each 2-byte binary field consists of a 1-bit sign 
followed by a 15-bit numeric value. In binary format, a 
decimal number as high as 9,999 requires only 2 bytes 
of disk storage. For each 2-byte binary field stored on 
disk, the RPG II compiler automatically sets aside 4 
bytes of storage to accommodate the field when it is 
unpacked. A 2-byte field in binary format looks like 
this: 







1 



15 



Sign 



Number 



■2 bytes 
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Each 4-byte binary field consists of a 1-bit sign 
followed by a 31 -bit numeric value. In binary format, a 
decimal number as high as 999,999,999 requires only 4 
bytes of disk storage. For each 4-byte binary field 
stored on disk, the RPG II compiler automatically sets 
aside 9 bytes of storage to accommodate the field when 
it is converted. A 4-byte field in binary format looks like 
this: 



31 



Sign 



Number 



■4 bytes 



In each case, the sign portion of the high-order byte 
indicates whether the numeric value is positive (sign bit 
off) or negative (sign bit on). Positive numbers are 
represented in true binary notation with a bit in the 
sign position. Negative numbers are represented in 
twos-complement notation with a 1 bit in the sign 
position. The bits between the sign position and the 
leftmost significant bit of the integer are always the 
same as the sign bit. When the number is positive, all 
bits to the left of the most significant bit, including the 
sign bit, are Os. When the number is negative, all bits to 
the left of the most significant bit, including the sign bit, 
are 1s. Notice that, in the binary format, the zone 
position of the decimal number is not given. Compare 
how the decimal number 8,191 is represented in binary 
format with packed and zoned decimal representation 
(see Figure 7-16). 

Because data must be represented in zoned decimal 
format once it is inside the computer, you must give the 
RPG II program an indication when input fields are in 
another format. Entering a B in column 43 indicates that 
the input field is in the binary format and that the 
system must convert this field to the required zoned 
decimal format. 

Note: Although packed and binary fields require less 
disk storage space, the conversion routines needed to 
handle such data increase the object program size. 



COLUMNS 44-51 (FIELD LOCATION) 

Entry Explanation 

1-9999 Beginning of a field (from) 

or end of a field (to). See 
Chapter 12 for CONSOLE file 
considerations. For a WORKSTN 
file, the from and to positions 
refer to the location of the 
fields in the input record 
and not to their location in the 
displayed format. 

Use columns 44 through 51 to describe the locanon on 
the record of the field named in columns 53 through 58. 
Enter the number of the record position in which the 
field begins in columns 44 through 47. Enter the 
number of the record position in which the field ends in 
columns 48 through 51. The entries must end in 
columns 47 and 51. Leading zeros can be omitted. 

Define a single-position field by entering the same 
number in both the from (columns 44 through 47) and 
to (columns 48 through 51) positions. If a field of more 
than one position is defined, the number entered in 
columns 44 through 47 must be smaller than the 
number entered in columns 48 through 51. 

The maximum field length for a zoned decimal numeric 
field is 15 positions (8 if the field is packed and 4 if it is 
binary). The maximum field length for an alphameric 
field is 256 characters, and the maximum length for a 
data structure is 9,999 characters. 
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COLUMN 52 (DECIMAL POSITIONS) 
Entry Explanation 

Blank Alphameric field 



0-9 



Number of decimal positions 
in numeric field 



Use column 52 to indicate the number of positions to 
the right of the decimal in any numeric field named in 
columns 53 through 58. Column 52 must contain an 
entry when the field named in columns 53 through 58 is 
numeric. To define a field as numeric with no decimal 
position, enter a 0. If a field is to be used in arithmetic 
operations or is to be edited, it must be numeric. If the 
number of decimal positions specified for a field 
exceeds the length of that field, the number of decimal 
positions is assumed equal to the length of the field. 



COLUMNS 53-58 (FIELD NAME) 



Entry 


Explanation 


1-6 alpha- 


Field name, array name, 


meric 


or array element 


characters 




PAGE, 


Special words 


PAGE1- 




PAGE7 





Use columns 53 through 58 to name a field, array, or 
array element found on your input records. When 
referencing an array, additional entries may be needed in 
these columns (see Array Name and Index in Chapter 14, 
Tables and Arrays). Use this name throughout the 
program whenever you refer to this field. Indicate the 
names of the fields for all types of records using a 
separate line for each field. However, name only the 
fields that you use. For example, if you use only the 
first 10 positions of a record that is 96 positions long, 
define positions 1 through 10 on the input 
specifications. 

For CONSOLE files, whole array names must be entered 
in one of the following ways: 

• Define the whole array as a subfield within a field. 

• Define each element of the array with an index and 
place this entry in columns 53 through 58 of the 
input specifications. The index must be an integer 
value. 



Field Names 

A field name can be from 1 to 6 characters long and 
must begin in column 53. The first character must be 
an alphabetic character. The remaining characters can 
be any combination of alphabetic and numeric 
characters (special characters are not allowed). Blanks 
cannot appear between characters in the name. 

All fields in one type of record should have different 
names. If two or more fields on the same record type 
have the same name, only the field described last is 
used. However, fields from different record types can 
have the same name if the fields are the same length 
and contain the same type of data. This applies even if 
the fields are in different locations in each record type. 

Numeric fields can have a maximum length of 15 digits. 
Alphameric fields can have a maximum length of 256 
characters (66 for CONSOLE files). A data structure can 
have a maximum length of 9,999 characters. Subfields 
can have a maximum length of 256 characters for 
alphameric subfields and 15 digits for numeric subfields. 

If a data structure is specified, only field record relation 
indicators (columns 63 and 64) can be specified. Entries 
for control level indicators (columns 59 and 60), match 
field values (columns 61 and 62), and field indicators 
(columns 65 through 70) are not allowed. A data 
structure name cannot be specified as a subfield in a 
data structure. 

Fields that are used in arithmetic operations (see 
Chapter 10, Operation Codes) or fields that are edited or 
zero suppressed (see Column 38 and Columns 45-70 in 
Chapter 9, Output Specifications) must be defined as 
numeric. Therefore, column 52 must have a decimal 
position entry (0 through 9). 
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Field Names in OR Relationship 



Special Words (PAGE, PAGE1-PAGE7) 



If two or more record types contain identical fields, you 
must describe each field. To eliminate duplicate coding 
of identical fields from different record types, use the 
OR relationship (see Figure 7-17). A maximum of 20 
OR lines can be used for each record sequence group if 
no AND lines are specified. 

An OR relationship means that the fields named can be 
found in either of the record types. You can use OR 
lines when: 

• Two or more record types have the same fields in the 
same positions (Figure 7-17). 

• Two or more record types have some fields that are 
identical and some fields that differ in location, 
length, or type of data. See Columns 63-64 in this 
chapter for sample coding of such record types. 



If a printed report has several pages that are to be 
numbered, use the special word PAGE to indicate that 
page numbering is to be done. When you use a PAGE 
entry on the output specifications, page numbering 
automatically starts with 1 (see Columns 32-37 in 
Chapter 9, Output Specifications). 

To start at a page number other than 1, enter that page 
number in a field of an input record and name that field 
PAGE in columns 53 through 58. The number entered in 
the PAGE field should be one less than the starting 
page number. If numbering starts with 24, enter a 23 in 
the PAGE field. The PAGE field can be 1 to 15 digits 
long, but must have zero decimal positions (see Figure 
7-18). If a PAGE field is used but it is not defined, the 
PAGE field is assumed to be 4 digits long with zero 
decimal positions. Any entry in the PAGE field should 
be right-justified, such as 0023. 



A/rite OR in columns 14 and 15 to indicate an OR line, 
f there are several AND or OR lines, field description 
nes start after the last record identification line. 



Page numbering can be restarted during a program run 
when a number is specified in a PAGE field of any input 
record. The PAGE field can be defined as a numeric 
field, 1 to 15 digits in length, with zero decimal 
positions, and used in calculations like any other field. 



The eight possible PAGE entries (PAGE, PAGE1, PAGE2, 
PAGE3, PAGE4, PAGE5, PAGE6, and PAGE7) are 
provided for numbering different page types in the 
output file or for numbering the pages for different 
printer files. 
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Figure 7-17. Record Types with Identical Fields 
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Figure 7-18. Page Record Description 
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COLUMNS 59-60 (CONTROL LEVEL) 



Normally, control level indicators are used to: 



Entry Explanation 

L1-L9 Any control level indicator. 

Control level indicators cannot 
be used with chained, demand, or 
WORKSTN files or with a data 
structure. 

Use columns 59 and 60 to assign control level indicators 
to input fields. Use control level indicators to specify 
when calculation or output operations are to be 
performed. You can assign a control level indicator to 
any field; this field is then known as a control field. The 
program checks the field for a change in information. 
When the information changes, a control break occurs. 
All records having the same information in the control 
field are known as a control group. 

Whenever a record containing a control field is read, the 
data in the control field is compared with data in the 
same control field from the previous record. When a 
control break occurs, the control level indicator turns on. 
Operations conditioned by the control level indicator are 
then performed (see Columns 7-8 in Chapter 8, 
Calculation Specifications or Columns 23-31 in Chapter 9, 
Output Specifications). 

There are nine different control levels (L1 through L9). 
When a control level indicator turns on, all control level 
indicators lower than it also turn on. For example, if 
control level indicator 3 turns on, control level indicators 
1 and 2 also turn on. 

The indicators are ranked in order of importance. The 
larger numbers rank higher than smaller numbers. L4 
has a higher rank than L1. The importance of a control 
field in relation to other fields determines how you 
assign indicators. For example, the type of data that 
demands a subtotal should have a lower control level 
indicator than data that needs a final total. A field 
containing department numbers should have a higher 
control level indicator than a field containing employee 
numbers (see Figure 7-19). 

Because control level indicator L0 is always on, it cannot 
be assigned to a control field. Nevertheless, you can 
use it to condition operations (see Columns 7-8 in 
Chapter 8, Calculation Specifications). 



• Condition certain total calculations to be performed 
when the information in the control field changes. 

• Condition certain total output operations to be done 
after totals are accumulated for one control group. 

• Condition certain detail calculation or output 
operations to be done on the record that causes a 
change in a control field (first record of a new control 
group). 



Assigning Control Level Indicators 

The following considerations apply to assigning control 
level indicators: 

• If the same control level indicator is used in different 
record types or in different files, the control fields 
associated with that control level indicator must be 
the same length and same type (alphabetic or 
numeric). See Figure 7-19. 

• In the same record type, record positions in control 
fields assigned different control level indicators can 
overlap (Figure 7-20). However, the total number of 
positions assigned as control fields must not be 
greater than 144. In Figure 7-20, for example, 15 
positions have been assigned to control levels. 

• Field names are ignored in control level operations. 
Therefore, fields from different record types that have 
been assigned the same control level indicator can 
have the same name. 

• Control levels need not be written in any sequence. 
An L2 entry can appear before L1 . Also, there can be 
gaps in the control levels assigned. 

• When numeric control fields with decimal positions 
are compared to determine whether a control break 
has occurred, they are always treated as if they have 
no decimal positions. For instance, 3.46 is considered 
equal to 346. 

• If a field is specified as numeric, only the digit 
portion determines whether a control break has 
occurred. This means that a field is always 
considered to be positive. For example, -5 is 
considered equal to +5. 

• All control fields given the same control level 
indicator are considered numeric if any one of those 
control fields is described as numeric (column 52 has 
an entry). Therefore, when numeric control fields are 
compared to determine whether the information has 
changed, only the digit portion of each character is 
compared. 
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Three control level indicators are assigned. The names 
of the control fields (DIVSON, DEPT, EMPLNO) give an 
indication of their relative importance. The division 
(DIVSON) is the most important group. It is given the 
highest control level indicator used (L3). The department 
(DEPT) ranks below the division. L2 is assigned to it. 
The employee field has the lowest control level indicator 
(L1) assigned. 

Figure 7-19. Control Level Indicators (Two Record Types) 



The same control level indicators can be used for dif- 
ferent record types. Notice, however, that the control 
fields having the same indicators are the same length. 
EMPLNO, in both cases, is 6 characters in length, DEPT 
is 4, and DIVSON is 1. 




Control Field 1 



3456789 10 11 II 1) 14 IS II 17 18 19 20 21 22 23 24 25 26 27 2S 29 30 



Control Field 2 



Figure 7-20. Overlapping Control Fields in a Disk Record 



Columns 59-60 (Control Level) 7-35 



Control fields are initialized to hexadecimal zeros. 

A control break can occur after the first record 
containing a control field is read. The control fields in 
this record are compared to an area in storage that 
contains hexadecimal zeros. Because fields from two 
different records are not being compared, total 
calculations and total output operation are bypassed 
for this cycle. A control break occurs then, but it is 
not considered to be a true control break. 

If different record types in a file do not have the 
same number of control fields, unwanted control 
breaks can occur. See Figure 7-21 for an example of 
how to avoid unwanted control breaks. 

A control field cannot be specified as binary (B in 
column 43). However, it can be specified as packed 
decimal (P in column 43). 



Split Control Fields 

If a control field is made up of more than one field of a 
record, it is then known as a split control field. A split 
control field is created when the same indicator is 
assigned to two or more connected or unconnected 
fields on the same record type. 

All fields in one record that have the same control level 
indicators are combined by the program in the order 
specified by the input specifications and treated as one 
control field (see Figure 7-22). Some special rules for 
split control fields are: 

• For one control level indicator, a field can be split in 
some record types and not in others if the field 
names are different. However, the length of the field, 
whether split or not, must be the same in all record 
types. 

• The length of the portions of a split control field can 
vary for different record types if the field names are 
different. However, the total length of the portions 
must always be the same. 

• No other specification lines can come between lines 
that describe split control fields. 

• If one section of a split control field is numeric, the 
whole field is considered numeric. 

• A numeric split control field can have more than 15 
characters if any one portion of the split field does 
not exceed 15 characters and the sum of all control 
fields is not greater than 144 characters. 



• A split control field cannot be made up of a packed 
decimal field and a zoned decimal field. Both 
portions of the control field must be packed or both 
must be zoned decimal. 

Note: Additional rules applying to control level indicators 
when used with indicators in the field record relation 
columns are discussed in Columns 63-64 (Field Record 
Relation). 



COLUMNS 61-62 (MATCHING FIELDS) 

Entry Explanation 

M1-M9 Any matching level 

Use columns 61 and 62 to specify match fields and 
sequence checking. Match fields and sequence checking 
cannot be specified for chained files, demand files, 
WORKSTN files, or a data structure. 

An entry in columns 61 and 62 indicates: 

• Match fields and sequence checking when you have 
two or more input or update files with match fields 

• Sequence checking only when you have just one 
input or update file 

The match levels are ranked in order of importance, with 
M1 being the least significant. 



Match Fields 

In multifile processing, specify match fields to compare 
records from two or more input or update files to 
determine which record is to be selected for processing. 
You can use one field, many fields, or an entire record 
to match records. Whenever the contents of the match 
field from the primary file record are the same as the 
contents of the match field from a secondary file record, 
the matching record (MR) indicator turns on. The MR 
indicator can then be used to condition those operations 
that are to be done only when records match (see 
Columns 9-17 in Chapter 8, Calculation Specifications 
and Columns 23-31 in Chapter 9, Output Specifications). 

As many as nine match fields can be indicated when 
you use the values M1 through M9. M1 through M9 
only identify the fields by which the records are 
matched; they are not indicators, but they cause the MR 
indicator to turn on. 

For a complete description of how to assign match 
fields and how records are selected for processing, see 
Chapter 1 1 , Multifile Processing. 
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Different record types normally contain the same number 
of control fields. However, some applications require a 
different number of control fields in some records. 



The salesman records contain only the L2 control field. 
The item records contain both L1 and L2 control fields. 
With normal RPG II coding, an unwanted control break 
is created by the first item record following the salesman 
record. This is recognized by an L1 control break 
immediately following the salesman record and results 
in an asterisk being printed on the line below the sales- 
man record. 
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Output Showing Unwanted Control Level Break 
Figure 7-21 (Part 1 of 2). Unwanted Control Breaks 



Corrected Output 
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This coding prevents the unwanted control break. Line 
01 of the calculation specifications sheet sets on indicator 
1 1 when the salesman record is read. When the next item 
record causes an L1 control break, no total output is 
printed because indicator 11 is on (line 07 of output 



specifications sheet). Detail calculations are then pro- 
cessed for the item record, and line 02 of the calculation 
specifications sheet sets indicator 1 1 off. This allows the 
normal L1 control break to occur. 
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Figure 7-21 (Part 2 of 2). Unwanted Control Breaks 
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All portions of a split control field must be assigned the 
same control level indicator. 



Figure 7-22. Split Control Fields 



Sequence Checking 

To check the data in the fields of a record in one input 
or update file for a special sequence, assign a value of 
M1 through M9 to the field to be checked. As many as 
nine fields can be checked. The sequence (ascending or 
descending) of the record file must be specified in 
column 18 of the file description specifications (see 
Chapter 3). See Figure 7-23 for an example of 
sequence checking. 

To check the sequence of record types in a file, see 
Columns 15-16 (Sequence) in this chapter. 



COLUMNS 63-64 (FIELD RECORD RELATION) 

Entry Explanation 

Blank Columns must be blank for CONSOLE 

files. 

01 -99 Record identifying indicator assigned 

to a record type, or an indicator set 
on elsewhere in the program. 

L1-L9 Control level indicator previously used. 

MR Matching record indicator. 

U1-U8 External indicator previously set. 

H1-H9 Halt indicator previously used. 



The following general rules apply to the use of columns 
63 and 64: 

• All fields, including match or control fields, that have 
no field record relation indicator should be described 
before those that do. 

• All fields having the same field record relation 
indicator should be defined on consecutive 
specification lines for more efficient use of storage. 
These fields can, however, be entered in any order. 

• All portions of a split control field must be assigned 
the same field record relation indicator and must be 
defined on consecutive specification lines (see Figure 
7-24). For more information on split control fields, 
see Columns 59-60 (Control Level). 

• When used with control or match fields, the field 
record relation indicator must match a record 
identifying indicator for this file, and the match or 
control fields must be grouped according to the field 
record relation indicator. The field record relation 
indicator for control or match fields can only be 01 
through 99 or H1 through H9. 

• When any match value (M1 through M9) is specified 
for a field without a field record relation indicator, all 
match values used must be specified once without a 
field record relation indicator. If all match fields are 
not common to all records, a dummy match field 
should be used (see Figure 7-25). 
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An input file called MASTER is to be sequence-checked 
through three fields. Data from two records is shown 
below: 

Data from First Record Data from Second Record 



In sequence checking, all fields are treated as one continu- 
ous field. Thus, the match fields look like: 
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The match field from record 1 is compared with the 
match field from record 2. If the file is specified to be in 
ascending sequence, the records are in order because 
005025003 is higher than 003051008. However, if the 
file is specified as having a descending sequence, record 2 
is out of order. 



Figure 7-23. Match Fields (Sequence Checking Within a File) 
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Record identification code = 2 
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Record identification code = 3 



The record identified by a 1 in position 95 has two split 
control fields: 



The third record type, identified by the 3 in position 95, 
also has three split control fields: 



FLDIAand FLD1B 
FLD2Aand FLD2B 

The record with a 2 in position 95 has three split control 
fields: 

FLDIAand FLD1B 
FLD2Aand FLD2B 
FLD3A, FLD3B, and FLD3C 



FLDIAand FLD1B 
FLD2Aand FLD2B 
FLD3Dand FLD3E 

All portions of the split control field must be assigned the 
same control level indicator and all must have the same 
field record relation entry. 





T 


Filename 5 

J: A 

- R 

AND 
7 S 9 10 11 12 13 14 15 15 


5= :° 

— 2 i "- 

2 C ± 

17 IS 19 20 


Record Identification Codes 










Field 




71 72 73 74 


Line 
3 4 5 


l 


2 


3 




Field Name "S .J % 

3 Su 

53 54 55 56 57 58 59 60 61 62 


c Indicators 


Position _ 
21 22 23 24 25 


y Character 
X Not (Nl 


1 Position _ 2 
5 - 3 2 

"6 z o 6 

3 34 35 36 37 3S 39 40 41 


'f c: From 

42 43 4-1 45 46 4 


To % 

7 43 49 50 51 52 


| Plus Minu 

63 64 65 66 67 6£ 


Zero 
Blank 

69 70 


;l ' ] 


^Di&]Li m 


91 


1M i 


:i u i 


i I 


i 1 




1 


> i j i ; ■ ■ 


1 
! 


! 


! i ! 


| 2 ] 


OR 


12 


<te ( 


12 












lJ L L 


; 




i i I 


0:3 ] 


' OR 


<\l 


q§ ( 


23 


I 








I 


I 






I i 


i 4 " 


C ; : ; ! 




: 1 




' ' 


• 


i.X-5 


FlDlft. LI 




i 




0.5, ] 


[ ' ] i ; ; 










At 


>_j SL 


EL0jiB_Ljl 






: i 1 


o : 6 ! 


[ 




■ ; i 






'1~ _&: 


L VM 


fA I M2 






1 ! 1 


7: ] 


[ 




1 : 




I ; 


Fj._t>:2A_L3 




1 


1 i ! 


8 ] 


c i : ' | ! : 








! 




L ! 


M 

m 


ELD2& L3 . 






' :' ! 


9 ] 


[ •' ! ' j 






All portion 


; of a solit 


21 


L ! 


FJ.D13A: IA .._ 
FUD.3B LA 






; < 


1 ] 


[ . ' ; : 






control field must have - 
the same field record - 


> 21 


-f- 


i i 


1 1 ] 
12 ] 


I ■:■■■': 






-A- 


L ; 45 


FLD3 

ELiOifi 


C L*\ 


<\2 


i i 


c • ■ : ! : 






* 


L 


1$ 




32X 




; j ! 


1 3 ] 


t ' ; 






relation ent 


ry. 


2: 






Kffic 

FLD3 




12 


•'-r- 




1 4 ] 


C .'.'-.: 






, 




~H 




iq 


D L4 


q T 3 


- 


5 ] 


1 | i ! ! i 1 | ! 


i 


i l I 


i l 


j | 


n* 


* 


2<t 


EX$& IA l 


33 _ 


i 






t I !,!!! i 


L 


_LIJ_ 


! 


i 




_L 






i 




i 


1 




7 ! 1 


[ ' ! 


1 T 




_ ' ' L. 




_ 






. 






1 ! i 


l|8 ! ] 


[ ; 1 


.. j_ 


; 








I 


1 




J 






i 


.|»; ^ 


L i ] ■ ; 


1 : 






JL.L ! 


■ 


.ii 


! i l 




! ' 1 



Figure 7-24. Field Record Relation (Split Control Fields) 



Columns 63-64 (Field Record Relation) 7-41 



Ml 
EMPNO 

123456789 10 1112 13 14 15 16 17 18 19 20 2122 23 24 25 26 27 28 29 30 

Record identifying indicator 01 



Ml M2 

EMPNO DEPT 



Record identifying indicator 02 



Ml 
EMPNO 



M2 
DEPT 



Three different record types are found in the input file. 
All three contain a match field in positions 1 through 10. 
Two of them have a second match field. Because M1 is 
found on all record types, it can be specified without an 
entry in columns 63 and 64. If one match value (M1 
through M9) is specified without field record relation 
entries, all match values must be specified once without 
field record relation entries. Because the value M1 is 
specified without field record relationship, an M2 value 
must also be specified once without field record relation- 
ship. The M2 field is not on all record types; thus a 
dummy M2 field must be specified next. The dummy 
field can be given any unique name, but its specified 
length must be equal to the length of the true M2 field. 
The M2 field is then related to the record types on which 
it is found by field record relation entries (lines 06 and 
07). 
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Figure 7-25. Dummy Match Fields 



7-42 Input Specifications 



Record Identifying Indicators (01-99) 

Use a record identifying indicator (01 through 99) in 
columns 63 and 64 to relate a field to a particular record 
type. 

When several record types are specified in an OR 
relationship, all fields that do not have a field record 
relation indicator in columns 63 and 64 are associated 
with all record types in the OR relationship. To relate a 
field to just one record type, enter the record identifying 
indicator assigned to that record type in columns 63 and 
64 (see Figure 7-26). 

An indicator (01 through 99) that was previously defined 
in the program can also be used in columns 63 and 64 
to condition movement from the input area to the 
storage area. Control fields, which are specified by a 
control level indicator (L1 through L9) in columns 59 and 
60, and match fields, which are specified by a match 
value (M1 through M9) in columns 61 and 62, can also 
be related to a particular record type in an OR 
relationship by a field record relation indicator. Control 
fields or match fields in the OR relationship that do not 
have a field record relation indicator are used with all 
record types in the OR relationship. 

When two control fields have the same control level 
indicator or two match fields have the same matching 
level value, a field record relation indicator can be 
assigned to just one of the match fields. In this case, 
only the field with the field record relation indicator is 
used when that indicator is on. If none of the field 
record relation indicators are on for that control field or 
match field, the field without a field record relation 
indicator is used. Control fields and match fields can 
only have 01 through 99 or H1 through H9 as the entry 
in columns 63 and 64. 



Control Level (L1-L9), Matching Record (MR), and 
External (U1-U8) Indicators 

Columns 63 and 64 can also be used to specify that the 
program accept and use data from a particular field only 
when a certain condition occurs (such as matching 
records, a control break, or an external indicator is on). 
Indicate the conditions under which the program accepts 
data from a field by specifying indicator L1 through L9, 
MR, or U1 through U8 in columns 63 and 64. Data 
from the field named in columns 53 through 58 is 
accepted only when the field record relation indicator is 
on. 



External indicators are primarily used when file 
conditioning is specified in columns 71 and 72 of the 
file description specifications. However, they can be 
used even though file conditioning is not specified. 



Halt Indicators (H1-H9) 

A halt indicator (H1 through H9) in columns 63 and 64 
relates a field to a record that is in an OR relationship 
and also has a halt indicator specified in columns 19 
and 20. 



COLUMNS 65-70 (FIELD INDICATORS) 
Entry Explanation 

01-99 Numeric indicator 

H1-H9 Halt indicator (when checking for an 

error condition in the data) 

Use columns 65 through 70 to check the condition of 
the numeric fields. Use columns 69 and 70 to check the 
condition of an alphameric field. These columns cannot 
be used for a data structure. The three conditions are: 

• Plus (columns 65 and 66). Any valid indicator entered 
in columns 65 and 66 turns on if the numeric field 
named in columns 53 through 58 is greater than zero. 

• Minus (columns 67 and 68). Any valid indicator 
entered in columns 67 and 68 turns on if the numeric 
field in columns 53 through 58 is less than zero. 

• Zero or blank (columns 69 and 70). Any valid 
indicator entered in columns 69 and 70 turns on if a 
numeric field named in columns 53 through 58 is all 
zeros or if an alphameric field is all blanks. A 
numeric field that is all blanks turns on an indicator 
specified for zeros. However, if an alphameric field is 
all zeros, the field does not turn on the indicator 
specified for all blanks. 



Columns 65-70 (Field Indicators) 7-43 



FLDA 



FLDB 



FLDC 



Record identification code = 5 



FLDA 



FLDB 



FLDD 



1 2 3 4 5 6 7 8 9 10 1 1 1 2 1 3 14 1 5 16 1 7 18 19 20 21 22 23 24 25 26 27 23 29 30 31 32 33 34 35 30 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 6? 68 69 70 71 72 73 74 75 



Record identification code = 6 



The file contains two different types of records, one 
identified by e 5 in position 1 and the other by a 6 in 
position 1. FLDC is related by record identifying 
indicator 14 to the record type identified by a 5 in 
position 1. FLDD is related to the record type having a 6 
in position 1 by record identifying indicator 16. This 
means that FLDC is found on only one type of record 



(that identified by 5 in position 1) and FLDD is found 
only on the other type. FLDA is conditioned by 
indicator 07, which was previously defined elsewhere in 
the program. FLDB is found on both types because they 
are not related to any one type by a record identifying 
indicator. 
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This indicator was specified elsewhere 
in the program, and FLDA is made 
available for processing only when 
indicator 07 is set on elsewhere in the 
program. 



Figure 7-26. Field Record Relation 



7-44 Input Specifications 



Assigning Indicators in Columns 65-70 

The following considerations apply to numeric indicators 
and halt indicators: 

• Indicators for plus, minus, zero, or blank are off at 
the beginning of the program. They are not turned on 
until the condition (plus, minus, zero, or blank) is 
satisfied by the field being tested on the record just 
read. 

• Columns 65 through 70 must be blank when table or 
array names are specified in input specifications. 
However, an entry can be made for an array element. 

• A numeric input field can be assigned two or three 
field indicators. However, only the indicator that 
signals the result of the test on that field turns on; 
the others remain off. 

• If the same field indicator is assigned to fields in 
different record types, its status is always based on 
the last record type selected. 

• When different field indicators are assigned to fields 
in different record types, a field indicator turned on 
remains on until another record of that type is read. 
Similarly, a field indicator assigned to more than one 
field within a single record type always reflects the 
status of the last field defined. 

Field indicators assigned in these columns can also be 
set on or set off by SETON or SETOF operations in the 
calculation specifications. 



Halt Indicators (H1-H9) 

Specify any halt indicator (H1 through H9) in columns 
65 through 70 to check for an error condition in your 
data. For example, if a field should not be zero, specify 
a halt indicator to check for that zero condition. If a 
zero field is found, the halt indicator turns on and the 
program stops after the record with the zero field has 
been processed. 

Indicators H1 through H9 cause the program to halt 
after the cycle that caused the indicator to turn on is 
complete (all calculations and output for that cycle are 
complete). The operator can restart the system by 
responding to the system halt. 



COLUMNS 71-74 

Columns 71 through 74 are not used. Leave them blank. 

COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 



Numeric Indicators (01-99) 

Use numeric indicators 01 through 99 to test a field for 
a condition of either plus, minus, zero, or blank. The 
indicator specified turns on if the condition is true; it 
remains off or turns off if the condition is not true. 
Usually these same indicators are used to control certain 
calculation or output operations. See Columns 9-17 
(Indicators) in Chapter 8, Calculation Specifications or 
Columns 23-31 (Output Indicators) in Chapter 9, Output 
Specifications. 



Columns 75-80 (Program Identification) 7-45 



7-46 Input Specifications 



Chapter 8. Calculation Specifications 



Calculation specifications describe the calculations you 
want performed on your data and the order in which 
you want the/n performed. Each calculation 
specifications statement can be divided into three parts: 

• When the operation is to be performed (columns 7 
through 17). The indicators entered in these columns 
determine under what conditions the specified 
operation is to be done. 

. What kind of operation is to be performed (columns 
18 through 53). Entries in these fields describe the 
kind of operation to be done and specify the data 
upon which the operation is to be performed. 



• What tests are to be made on the results of the 
operation (columns 54 through 59). The indicators 
entered in these columns signal the result of the 
operation and can be used to condition other 
operations. 

Calculation specifications must be specified in the 
following order: detail, total, subroutine. 

Write these specifications on the RPG Calculation 
Specifications sheet (see Figure 8-1). 
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Figure 8-1. RPG Calculation Specifications 



Calculation Specifications 8-1 



COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINES) 

See Common Entries in Chapter 1. 

COLUMN 6 (FORM TYPE) 

A C must appear in column 6 to identify this line as a 
calculation specifications statement. 



COLUMNS 7-8 (CONTROL LEVEL) 



Entry 

Blank 



LO 



Explanation 

Calculation operation is done at 
detail calculation time for each 
program cycle if the indicators 
in columns 9 through 17 allow it; 
or calculation is part of a 
subroutine. 

Calculation operation is done at 
total calculation time for each 
program cycle after total 
calculation processing has 
started. 



Note: If no control levels 
are specified on the input 
specifications, total calculation 
time processing starts during the 
second program cycle. If control 
levels are specified on the input 
specifications, total calculation 
time processing starts during the 
program cycle after the first 
record containing control fields 
is processed or at LR time. 
Totals are always processed 
at LR time. 



L1-L9 Calculation operation is done when 

the appropriate control break occurs 
at total calculation time. 

LR Calculation operation is done after 

the last record has been processed. 

SR Calculation operation is part of 

a subroutine. A blank entry is 
also valid for calculations that 
are part of a subroutine. 

AN, OR Establishes AND and OR relationships 

between lines of indicators. 



8-2 Calculation Specifications 



Use columns 7 and 8: 



Last Record Indicator (LR) 



To perform total calculation operations when the 
appropriate control break occurs. 

To perform calculation operations that are done only 
after the last record has been read. 

To indicate that an operation is part of a subroutine. 
However, columns 7 and 8 can also be blank for 
calculations that are part of a subroutine. 

To specify that certain lines of indicators are in an 
AND/OR relationship. 



Control Level Indicators (LO, L1-L9) 

The LO indicator is on during the entire program. You 
need never assign this indicator, but you can use it to 
condition operations, especially when no control fields 
have been assigned. When a control break occurs, all 
operations conditioned by control level indicators are 
done before those that are not conditioned. If no 
control field is assigned, but total calculations are to be 
done and total output records are to be written, use the 
LO indicator to condition those operations (see Figure 
8-2). 

Use a control level indicator (L1 through L9) to specify 
that the operation described on the same specification 
line is done only when that indicator is on. A control 
level indicator turns on when information in a control 
field changes. See Columns 59-60 (Control Level) in 
Chapter 7, Input Specifications. 

A control break for a certain level turns on all lower 
control level indicators. Thus, if indicators L3, L2, and 
L1 are used in a program and L3 turns on, L1 and L2 
also turn on. All operations conditioned by L3, L2, and 
L1 are done. 

However, when a control level indicator used as a 
record identifying indicator turns on to indicate the type 
of record read or when the SETON operation turns on a 
control level indicator, only that one control level 
indicator turns on. All lower level indicators remain 
unchanged. 

Note: In one program cycle, all operations conditioned 
by control level indicators in columns 7 and 8 are done 
at total calculation time. Operations that are conditioned 
by control level indicators in columns 9 through 17 are 
done at detail calculation time immediately following the 
control break (see Relationship Between Columns 7-8 and 
Columns 9-17 in this chapter). 



For a primary file, RPG II sets on the last record (LR) 
indicator after the last record is read and processed (end 
of file has occurred). For a WORKSTN file specified as 
a primary file, end of file, which causes RPG II to set on 
the LR indicator, occurs: 

• When all display stations have been released (by an 
R in column 16 of the output specifications or by the 
REL operation code) if the program does not have an 
NEP attribute. 

• When all display stations have been released and the 
operator has entered the STOP SYSTEM command if 
the program has an NEP attribute. 

However, under the following conditions, the 
programmer must set on the LR indicator: 

• If the program contains no primary file 

• If KEYBORD is specified as the device for a primary 
input file 

If certain operations are to be done only after the last 
record is read, condition these operations with the LR 
indicator. Specify the operations conditioned by LR after 
all calculations conditioned by LO through L9 (columns 7 
and 8) or after detail calculations if there are no total 
calculations. The last record turns on the LR indicator 
and all other control level indicators specified (L1 
through L9). 



Columns 7-8 (Control Level) 8-3 



The input records have ITEM and COST fields and a one- 
position record identification field. The records are grouped 
in ascending sequence by district; that is, the district 1 
records as a group are followed by a blank record, and the 
district 2 records as a group are followed by a blank record. 




No field can serve as a control field because the district 
number is not on the records. Instead of a control field, 
the blank record is used to signal a new district. When the 
blank record is read, indicator 02 turns on. The blank 
record tells the program that total calculations and total 
output operations must be done. However, no total opera- 
tions can be performed unless they are conditioned by 
some kind of control level indicator. 

Even though L0 is on all the time, it must be used in 
columns 7 and 8 because some type of control level indica- 
tor must be assigned to all total operations. 



District 4 records 



District 3 records 



District 2 records 



strict 1 records 



Figure 8-2 (Part 1 of 2). Use of the LO Indicator 



8-4 Calculation Specifications 
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The program shows how total operations can be per- 
formed even though there is no control field (no L1 
through L9 indicators). 



The program requires: 

o A list of items sold in each district 

• A total of all sales for each district 

• A grand total of all sales in all districts 
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Figure 8-2 (Part 2 of 2). Use of the L0 Indicator 



Columns 7-8 (Control Level) 8-5 



Subroutine Lines (SR) 

An SR entry in columns 7 and 8 indicates that this 
specification line is part of a subroutine (see Subroutine 
Operations in Chapter 10, Operation Codes). The SR 
entry is not required for a calculation specification line 
that is part of a subroutine; blanks in columns 7 and 8 
are also valid. 

Subroutine lines must be specified last. 



AND/OR Lines (AN, OR) 

Use columns 7 and 8 to specify that lines of indicators 
are in an AND/OR relationship. When you use the 
AND/OR relationship, many lines of indicators can be 
grouped together to condition an operation. A maximum 
of seven OR lines or seven AND lines or any 
combination thereof can condition an operation. 

The first line of such a group contains blanks in columns 
7 and 8 or an L0 through L9, LR, or SR entry if the 
group of lines is conditioned by a control level indicator 
or is part of a subroutine. (This entry on the first line 
applies to all AND/OR lines that follow.) All lines after 
the first line in the group must have an AN or OR entry 
in columns 7 and 8. The last line of the group contains 
the operation and the necessary operands. All lines 
except the last line in the group must contain blanks in 
columns 18 through 59 (see Figure 8-3). 



COLUMNS 9-17 (INDICATORS) 

Entry Explanation 

Blank Operation is performed on every 

program cycle. 

01-99 Field indicators, record identifying 

indicators, or resulting indicators 
assigned elsewhere in the program. 

KA-KN, . Command key indicators assigned 

KP-KY elsewhere. 

L1-L9 Control level indicators assigned 

elsewhere. 

LR Last record indicator. 

MR Matching record indicator. 

H1-H9 Halt indicators assigned elsewhere. 

U1-U8 External indicators previously set. 

OA-OG, Overflow indicator previously assigned. 

OV 



Use columns 9 through 17 to assign indicators that 
control the conditions under which an operation is done. 
You can use from one to three separate fields (columns 
10 and 11, 13 and 14, and 16 and 17) on each line, one 
for each indicator. If the indicator must be off to 
condition the operation, place an N before the 
appropriate indicator (columns 9, 12, 15). 

The indicators specified in columns 9 through 17 on one 
specification line are in an AND relationship with each 
other. The indicators on one line or indicators in 
grouped lines plus the control level indicator (if used in 
columns 7 and 8) must all be exactly as specified before 
the operation is done (see Figure 8-4). 

An indicator that is specified in columns 9 through 17 of 
a calculation specification can also be entered as a 
resulting indicator on the same line. If the indicator in 
columns 9 through 17 is on, the calculation is 
performed. If the calculation is executed, the present 
setting of the indicator is determined. 



Field Indicators (01-99) 

Use any field indicators that are specified in columns 65 
through 70 on the input specifications to condition an 
operation that is to be done only after the status of a 
field has been checked and has met certain conditions 
(see Figure 8-5). 



Command Key Indicators (KA-KN, KP-KY) 

Use any command key indicators specified in columns 
54 through 59 of the calculation specifications for a SET 
or SETOF operation. See SET or SETOF in Chapter 10, 
Operation Codes, for complete information on each 
operation. 

All command keys are defined for a WORKSTN file. 
When RPG makes the data read from a display station 
available for processing, all command key indicators are 
set off. If a command key was pressed when the data 
was read into the program, the corresponding command 
key indicator is set on. 

Record Identifying Indicators (01-99) 

Use any record identifying indicators that are specified 
in columns 19 and 20 of the input specifications to 
condition an operation that is to be done only for a 
certain type of record (see Figure 8-6). 
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AN and OR entries group lines of indicators. When 
indicators 01, 02, 03, and 04 are on, or when indicators 
01 , 02, 03, and 05 are on, the calculation is performed. 



Calculation Specifications 





r 










Indicators 
















































Result Field 


X 

< 

X 
53 


Resulting 
Indicators 


































r g 
J < 

J 5* 

7 8 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


1 

Q 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 

3 4 5 


1 
E 

6 


Plus |Minus| Zero 








Compare 


1 >2|l <2|1 =2 


z 

9 


10 




_ 


14 


z 

15 


16 


17 


LookuplFactor 2lis 


12 


13 


High 
54 55 


56 57 


58 59 





i 




c 


L 


1 




t 


1 




(ft 


2 


M 


(ft 


3 


J 














































J 































































2 




c 





R 




I 


1 


N 


(ft 


2 




t 


3 



















































































































3 




c 





R 


M 





1 




6 


2 




6 


3 


SU 


M 














A 


D 


w 




i 


u 


H 


T 





X 










l 


uw 


T 





T 






821 















































4 




c 






































I 






























1 































































5 




c 






















I 














I 





























































































Three conditions cause the L4 total calculations to be 
performed: 01 and 02 are on, but not 03; or 01 and 03 
are on, but not 02; or 02 and 03 are on, but not 01 . 



Figure 8-3. Use of AND/OR Lines for Indicators 
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Assume that indicator 25 represents a record type and 
that a control level 2 break occurred when record type 
25 was read. L1 and L2 are both on. All operations 
conditioned by the control level indicators in columns 7 
and 8 are performed before operations conditioned by 
control level indicators in columns 9 through 17. Thus, 
the operation in line 02 occurs before the operation in 
line 01 . The operation in line 01 is done on the first 
record of the new control group indicated by 25, whereas 
the operation in line 02 is a total operation done for all 
records of the previous control group. 

Figure 8-4. Conditioning Operations (Control Level Indicators) 



The operation in line 02 can be done when the L2 
indicator is on provided the other conditions are met. 
Indicator 10 must be on. The L3 indicator must not 
be on. 

The operation conditioned by both L2 and NL3 is done 
only when a control level 2 break occurs. These two 
indicators are used together because this operation is not 
to be done when a control level 3 break occurs, even 
though L2 is also on. 
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Field indicators can be used to condition operations. 
Assume the program is to find weekly earnings including 
overtime. The overtime field is checked to determine 
whether any overtime was put in. If the employee has 
worked overtime, the field is positive and indicator 10 
turns on. In all cases the weekly regular wage is calcu- 
lated. However, overtime pay is calculated only if indi- 
cator 10 is on (calculation lines 02 and 03). 
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Field indicator 10 was assigned on the input specifica- 
tions. It is being used here to condition calculation 
operations. 

Figure 8-5. Conditioning Operations (Field Indicators) 
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A record identifying indicator is used to condition an 
operation. When a record is read that has a T in position 
1 , the 01 indicator turns on. If this indicator is on, the 
field named SAVE is added to SUM. When a record 
having no T in position 1 is read, the 02 indicator is on. 
The subtract operation, conditioned by 02, is then done 
instead of the add operation. 
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Record identifying indicators 01 and 02 are assigned on 
the input specifications. They are used here to condition 
calculation operations. 

Figure 8-6. Conditioning Operations (Resulting Indicators) 



8-10 Calculation Specifications 



Resulting Indicators (01-99) 



External Indicators (U1-U8) 



Use any resulting indicators specified in columns 54 
through 59 on the calculation specifications to condition 
operations according to the results of calculation 
operations. See Columns 54-59 (Resulting Indicators) in 
this chapter. 



Use any external indicator previously specified to 
condition which operations should be done and which 
files should be used for a specific job. If a file is 
conditioned by an external indicator, any calculations 
that are to be performed only on that file should be 
conditioned by the same external indicator. 



Control Level Indicators (L1-L9) 

Use any control level indicators that are specified in 
columns 59 and 60 of the input specifications or in 
columns 54 through 59 of the calculation specifications. 
If control level indicators are used in these columns but 
not in columns 7 and 8, the operation is performed at 
detail calculation time on the first record of a new 
control group or whenever the indicators are on. 



Overflow Indicators (OA-OG, OV) 

Use any overflow indicators that are specified in 
columns 33 and 34 of the file description specifications 
to condition operations that are to be done when the 
last line to be printed on a page is reached. See 
Overflow Indicators in Chapter 9, Output Specifications, 
for more information. 



Last Record Indicator (LR) 

To condition operations to be performed at end of job, 
use the last record (LR) indicator in columns 9 through 
17 only if LR is turned on during calculations. All 
operations to be performed at end of job should be 
conditioned by LR in columns 7 and 8. 



Relationship Between Columns 7-8 and Columns 
9-17 

In one program cycle, all operations conditioned by 
control level indicators in columns 7 and 8 (total time) 
are done before operations conditioned by control level 
indicators in columns 9 through 17 (see Figure 8-4). 



Matching Record Indicator (MR) 

Use the matching record (MR) indicator to condition an 
operation that is to be done only when matching records 
are found. See Columns 61-62 (Matching Fields) in 
Chapter 7, Input Specifications for more information on 
matching fields. 



Halt Indicators (H1-H9) 

Use any halt indicators that are specified in columns 65 
through 70 on the input specifications or in columns 54 
through 59 on the calculation specifications to prevent 
the operation from being done when a specified error 
condition is found in the input data or during 
calculations. See Columns 19-20 (Record Identifying 
Indicator) in Chapter 7, Input Specifications. Using a halt 
indicator is necessary because the record that causes 
the halt condition is completely processed before the 
program stops. Thus, if the operation is performed on 
an error condition, the results are in error. A halt 
indicator can also be used to condition an operation that 
i° to be r i r »n Q °nl w when an error occurs. 

Note: The system message displayed on a halt can be 
overridden by a user message member. (See User 
Message Member in Chapter 10, Operation Codes.) 



When a control level indicator is used in columns 9 
through 17 and columns 7 and 8 are not used (detail 
time), the operation conditioned by the indicator is done 
only on the record that causes a control break or any 
higher-level control break. 

When a control level indicator (L1 through L9) is 
specified in columns 7 and 8 (total time) and MR is 
specified in columns 9 through 17, MR indicates the 
matching condition of the previous record and not the 
one just read that caused the control break. After all 
operations conditioned by control level indicators 
(specified in columns 7 and 8 of the calculation 
specifications) are done, MR then indicates the matching 
condition of the record just read. 



Columns 9-17 (Indicators) 8-11 



COLUMNS 18-27 (FACTOR 1) AND COLUMNS 33-42 
(FACTOR 2) 

Use columns 18 through 27 and 33 through 42 to name 
the fields or to give the actual data (literals) on which an 
operation is to be performed. See Figure 8-7 for a 
summary of the operation codes. 

The entries you can use for factor 1 and factor 2 are: 

• The name of any field that has been defined 

• Any alphameric or numeric literal 

• Any subroutine, table, array name, or array element 

. Any date field name (UDATE, UMONTH, UDAY, 
UYEAR) 

. The special names PAGE, PAGE1, PAGE2, PAGE3, 
PAGE4, PAGE5, PAGE6, or PAGE7 

. Any figurative constant ("BLANK, *BLANKS, "ZERO, 
•ZEROS) 

The following restrictions apply to entries in factor 1 and 
factor 2: 

• A data structure name cannot be specified in factor 1 
or factor 2. 

• A data structure subfield name can be used in factor 
1 or factor 2; however, overlapping subfields in a 
data structure cannot be used in the same 
calculation. A subfield is considered to be an 
overlapping subfield if its from or to position occurs 
within the from and to positions of another subfield 
within the same data structure. If factor 1, factor 2, 
or the result field references a subfield in a data 
structure that is an array or array element with a 
variable index, the entire array is used to determine 
whether overlap exists. The same array name can be 
referenced in the appropriate factors of a calculation 
specification without violating the overlap rule. See 
Figure 8-8 for examples of the overlap rule. 

• Figurative constants cannot be used with move zone 
operations, bit operations, or the SET, KEY, SQRT, or 
DEBUG operation codes. 

The following entry can be made for factor 1 only: 

• A label for a TAG, BEGSR, or ENDSR operation 



The following entries can be made for factor 2 only: 

• A label for a GOTO or EXSR operation 

. A filename for a SET, CHAIN, DEBUG, READ, 
FORCE, ACQ, REL, or NEXT operation 

• A subroutine name for an EXIT operation 

• An array name for an SORTA operation. 

An entry in factor 1 must begin in column 18; an entry 
in factor 2 must begin in column 33. 

Entries for factor 1 and factor 2 depend upon the 
operation code used in columns 28 through 32. Some 
operations require entries in both factors, some require 
entries in only one, and some require no entries at all. 
See Columns 28-32 (Operation) for more information on 
operation codes. For information on how to name a 
subroutine, see Subroutine Operations in Chapter 10, 
Operation Codes. 

Literals 

A literal is the actual data used in an operation rather 
than the field name representing that data. A literal can 
be either alphameric or numeric. 

Alphameric Literals 

Consider the following rules when using an alphameric 
literal (see Figure 8-9): 

• Any combination of characters can be used in an 
alphameric literal. Blanks are also valid. 

• The maximum length of an alphameric literal is 8 
characters. 

• Alphameric literals must be enclosed in apostrophes 

• An apostrophe required as part of a literal is 
represented by two apostrophes. For example, the 
literal O'CLOCK is coded as 'O'CLOCK'. 

• Alphameric literals cannot be used for arithmetic 
operations. 
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Numeric Literals 

Consider the following rules when using a numeric literal 
(see Figure 8-9): 

• A numeric literal consists of any combination of the 
digits through 9. A decimal point or sign can also 
be included. 

• The sign (+ or -), if present, must be the leftmost 
character. An unsigned literal is treated as a positive 
number. 

• The maximum total length of a numeric literal is 10 
characters including the sign and decimal point. 

• Blanks cannot appear in a numeric literal. 

• Numeric literals must not be enclosed in apostrophes 



Figurative Constants 

The figurative constants *BLANK, *BLANKS, *ZERO, 
and *ZEROS can be specified as literals. The following 
rules apply for figurative constants: 

• The figurative constants *BLANK and *BLANKS can 
only be used with alphameric fields. 

• The figurative constants *ZERO and *ZEROS can be 
used with either alphameric or numeric fields. 

• The length of the figurative constant is assumed to 
be equal to the length of the other factor field, if 
present. Otherwise, the length of the figurative 
constant is assumed to be equal to the length of the 
result field. 



• Numeric literals are used in the same way as a 
numeric field. 



Figurative constants are considered to be elementary 
items, and, if used in conjunction with an array, act 
like a field. For example: 



MOVE "ZEROS ARR 

If ARR has 4-character elements, each element of 
ARR contains '0000' after the move is executed. 

After a figurative constant has its length set, the 
figurative constant's logical placement in the collating 
sequence can be altered by specifying an alternate 
cpllating sequence. 



Columns 18-27 (Factor 1) and Columns 33-42 (Factor 2) 8-13 



Operation 
Code 


Control Level 
Indicators 


Conditioning 
Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


Columns 


Columns 


7-8 


9-17 


54-55 


56-57 


58-59 


ACQ 








R 


R 











ADD 











R 


R 











BEGSR 


SR or blank 




R 












BITOF 










R 


R 








BITON 










R 


R 








CHAIN 








R 


R 











COMP 








R 


R 




O 3 


o 3 


O 3 


DEBUG 











R 











DIV 











R 


R 











ENDSR 


SR or blank 


















EXCPT 




















EXIT 










R 










EXSR 










R 










FORCE 









R 










GOTO 










R 











KEYnn 1 













R 











LOKUP 
(Array) 








R 


R 




O 4 


o 4 


o 4 


LOKUP 
(Table) 








R 


R 





4 


o 4 


o 4 


MHHZO 










R 


R 








MHLZO 










R 


R 








MLHZO 










R 


R 








MLLZO 










R 


R 









Figure 8-7 (Part 1 of 2). Operation Codes 
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Operation 
Code 


Control Level 
Indicators 


Conditioning 
Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


Columns 


Columns 


7-8 


9-17 


54-55 


56-57 


58-59 


MOVE 










R 


R 








MOVEA 










R 


R 








MOVEL 










R 


R 








MULT 











R 


R 











MVR 












R 











NEXT 








R 


R 











POST 








R 




R 









READ 
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o 2 





REL 
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RLABL 
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SETnn 1 

























SETOF 














o 3 
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o 3 


SETON 
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SETLL 
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SHTDN 
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SORTA 
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SORT 
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SUB 
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TAG 
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TESTB 
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o 3 
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TESTZ 
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O 3 


o 3 


o 3 


TIME 
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XFOOT 










R 


R 











Z-ADD 










R 


R 











Z-SUB 










R 


R 











^he nn entries in columns 31 and 32 are for message indicator numbers. If the result field of a SET 

operation contains the keyword ERASE, factor 2 must contain the name of the CONSOLE file. 

Otherwise, factor 2 and the result field must be blank. 
2 Columns 56 and 57 can contain an indicator when the READ operation is used with a WORKSTN 

device. 
3 At least one resulting indicator must be specified in columns 54 through 59. 
4 At least one resulting indicator must be specified in columns 54 through 59, but no more than two can 

be used. 



Fields without entries must be blank. 

= Optional 
R = Required 

SR = The only allowable nonblank characters in columns 7 and 8 for the BEGSR and ENDSR operation 
codes. 

Figure 8-7 (Part 2 of 2). Operation Codes 
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The data structure DATADS contains subf ields 
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and arrays that are defined as overlapping (that 
is, occupying part of the same area). ARR1 (on 
line 12) has six elements, and each element is 
five positions long for a total length of 30. ARR2 
(on line 13) has five elements, and each element 
is six positions long for a total length of 30. 
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Figure 8-8 (Part 1 of 3). Examples of Valid and Invalid Calculations with Overlapping Subf ields in a Data Structure 
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Figure 8-8 (Part 2 of 3). Examples of Valid and Invalid Calculations with Overlapping Subfields in a Data Structure 
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The following individual calculations are invalid because the arra 
elements associated with the constant indexes overlap, or variabl 
indexes are specified and the entire array is required to determin 
overlap. 
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Figure 8-8 (Part 3 of 3). Examples of Valid and invalid Calculations with Overlapping Subfields in a Data Structure 
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Calculation Specifications 
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Figure 8-9. Alphameric and Numeric Literals 



COLUMNS 28-32 (OPERATION) 



COLUMNS 31-32 



Use columns 28 through 32 to specify the kind of 
operation- to be performed using factor 1, factor 2, 
and/or the result field. The operation code must begin 
in column 28. A special set of operation codes must be 
used to indicate the type of operation to be performed. 
Every operation code used requires certain entries on 
the same specification line. See Figure 8-7 for a 
summary of all the operation codes and the entries 
required for each code. For further information on the 
operation codes, see Chapter 10, Operation Codes. 

The program performs the operations in the order 
specified on the calculation specifications sheet. 



Entry Explanation 

Blank or Message identification code 

01-99 (MIC) of user message member 

to be displayed for SET or KEY 
operations unless overridden 
by a factor 1 entry 

Use columns 31 and 32 for all KEY operations and for 
SET operations in which command key indicators are 
specified in columns 54 through 59, unless an entry is 
made in factor 1. Entries in columns 31 and 32 are 
ignored when factor 1 is specified on the same line as 
the SET or KEY operation. 



The same combination of MICs should not be assigned 
to more than one KEY or SET operation except when 
the SET operation immediately precedes a KEY 
operation conditioned by the same indicators (columns 9 
through 17) and the special SET-KEY combination is 
used. See SET and KEY in Chapter 10, Operation Codes, 
for complete information. 



Columns 18-27 (Factor 1 ) and Columns 33-42 (Factor 2) 8-19 



COLUMNS 43-48 (RESULT FIELD) 



Entry 

ERASE 



Field name, 
table name, 
array name, 
array 
element, 
data 

structure 
subfield 
name, or 
data struc- 
ture name 



Explanation 

Erase the CONSOLE file buffer 
by using the SET operation code. 

The field specified contains the 
result of, or is the object of, 
the operation specified in columns 
28 through 32. A data structure name 
can be specified as a result field 
only if the operation code in columns 
28 through 32 is RLABL or POST. 



Field Name, Table Name, Array Name, Array 
Element, or Data Structure 

Use columns 43 through 48 to name the field, data 
structure subfield, table, array, array element, or data 
structure that holds the result of the operation specified 
in columns 28 through 32, or that is the field upon 
which an operation is performed. Use the name of a 
field, table, array, array element, data structure, or data 
structure subfield that has already been defined either 
by the input, extension, or calculation specifications; or 
define a new field by entering a field name that is not 
already used. Any field defined in the result field is 
created when the program is compiled. The result field 
can be either numeric or alphameric. A field used in 
arithmetic operations (see Columns 28-32 (Operation)) 
or numeric compare operations or a field edited or zero 
suppressed by output specifications must be numeric. 



INxx (xx = The indicator to be transferred to 
any RPG II an external subroutine in an RLABL , 
indicator) operation. 



ERASE 

Enter ERASE in columns 43 through 48 to blank or 
erase the entire buffer for the CONSOLE file. The 
filename of the CONSOLE file must be entered in 
columns 33 through 42. ERASE indicates to the system 
that the buffer should be set to blanks just before 
getting a record at the beginning of the next RPG II 
cycle. 

Because the buffer is not erased until the beginning of 
the next RPG II cycle, processing of the current record 
continues after the ERASE operation is encountered. If 
the ERASE operation is executed because of invalid 
input data, you should insert code in your program to 
avoid further calculations and to return to the start of 
the RPG II cycle. A correct form of the record 
containing the invalid input data and any records that 
were entered after that record can then be reentered. 



A data structure name can be used as the result field 
only if the operation specified in columns 28 through 32 
is RLABL or POST. Overlapping subfields in a data 
structure cannot be used in the same calculation. If 
factor 1, factor 2, or the result field references a 
subfield in a data structure that is an array or array 
element with a variable index, the entire array is used to 
determine whether overlap exists. The same array name 
can be referenced in the appropriate factors of a 
calculation specification without violating the overlap 
rule. 

The result field name must begin with an alphabetic 
character in column 43 and contain no blanks or special 
characters. 

If columns 43 through 48 contain the name of a field 
that is not defined elsewhere, columns 49 through 52 
should also contain entries. 

If the field is defined elsewhere, entries in columns 49 
through 52 are not necessary but, if specified, must 
agree with the previous definition of that field. 
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COLUMNS 49-51 (FIELD LENGTH) 

Entry Explanation 

1-256 Result field length 

Use columns 49 through 51 to specify the length of the 
result field. If the result field is defined elsewhere, no 
entry is required for the length. However, if the length 
is specified, it must be the same as the previously 
defined length, with the same number of decimal 
positions. If the result field is a new field, consider the 
form your data is in because the result field must be 
large enough to hold the largest possible result. If the 
result field is too small, significant digits can be lost. 

For example, to add field A (8 characters long, four 
decimal positions) to field B (10 characters long, six 
decimal positions), the result field, field C, must be large 
enough to contain 11 characters: 



9999.0000 
0001.111111 
10000.111111 



Field A 
Field B 
Field C (result field) 



In this example, field C must be defined as 11 
characters long with six decimal positions. Some of the 
numbers to the right of the decimal could be lost 
without changing the meaning of the result greatly. 
However, if field C was defined as 10 characters long 
with six decimal positions, a significant digit to the left 
of the decimal would be lost. Field C in this case would 
be 0000.1 1 111 1 ; the meaning of the result has greatly 
changed. 

Figure 8-10 shows how the contents of a result field 
can change after a multiplication operation, depending 
on the decimal position (column 52) and field length 
(columns 49 through 51) specifications. The result field 
for a multiply operation should be as long as the sum of 
the lengths of the two factor fields. 

Numeric fields have a maximum length of 15 digits. 
Alphameric fields can be up to 256 characters long. 

If the result field contains the name of a table or array, 
an entry in these columns is optional. If used, the entry 
must agree with the length described by the extension 
specifications. 



Multiplication: 98.76 x 1.234 = 121.86984 
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Recommended 



Figure 8-10. Result Field Contents Based on Various Field Length and Decimal Position SDecificati 



Columns 49-51 (Field Length) 8-21 



COLUMN 52 (DECIMAL POSITIONS) 



COLUMN 53 (HALF ADJUST) 



Entry Explanation 

Blank Alphameric or numeric result field is 

described elsewhere, or the newly 
defined result field is alphameric. 

0-9 Number of decimal positions in a 

newly defined numeric result field. 

Use column 52 to indicate the number of positions to 
the right of the decimal in a numeric result field. If the 
numeric result field contains no decimal positions, enter 
a (zero). This column must be blank if the result field 
is alphameric. This column can be left blank if the result 
field is numeric but was described by input or 
calculations specifications. In this case, field length 
(columns 49 through 51) must also be left blank. 

The number of decimal positions must never be greater 
than the length of the field. The number can, however, 
be larger or smaller than the number of decimal 
positions that actually result from an operation. If the 
number of decimal positions specified is greater than 
the number of decimal places that actually result from 
an operation, zeros are filled in to the right. If the 
number specified is smaller than the number that results 
from the operation, the rightmost digits are dropped. 



Entry 

Blank 



H 



Explanation 

Do not half adjust 
Half adjust 



Use column 53 to indicate that the contents of the 
result field are to be half adjusted (rounded). Half 
adjusting is done by adding the single digit to the right 
of the last decimal position specified to the same 
position in the result field. All decimal positions to the 
right of the position specified for that field are then 
dropped (see Figure 8-11). 

The half-adjust entry is allowed only with arithmetic 
operations. See Columns 28-32 (Operation). However, 
half adjusting cannot be specified for an MVR operation 
or for a DIV operation followed by an MVR operation. 
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This calculation line shows a result field being half 
adjusted to two decimal positions (2 in column 52 and H 
in column 53). 



Second Position 
35.7968 
6 



Result of an add operation. 

Add the digit to the right of the 
last decimal position specified to 
the same position in the result field. 



35.80xx 



Drop all decimal positions to the 
right at the position specified. 



35.80 



Result after half adjusting. 



Figure 8-11. Half Adjust 
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COLUMNS 54-59 (RESULTING INDICATORS) 
Entry Explanation 

01-99 Any two-digit number 



KA-KN, 
KP-KY 



H1-H9 

L1-L9 

LR 

OA-OG, 
OV 



Any command key indicator 
(allowed only with SET or 
SETOF operation) 

Any halt indicator 

Any control level indicator 

Last record indicator 

Any overflow indicator 



U1-U8 Any external indicator 

Columns 54 through 59 have three purposes: 

• To test the value of the result field after an arithmetic 
operation or to test the result of a CHAIN, KEY, 
LOKUP, COMP, READ, TESTB, TESTZ, ACQ, REL, 
NEXT, POST, or SHTDN operation. See Chapter 10, 
Operation Codes, for more information on each 
specific operation. 

• To specify which command keys can be pressed for 
a SET operation. 

• To specify which indicators are to be turned on or off 
by the SETON and SETOF operations. 



Test Results 

An indicator can be used in columns 54 through 59 to 
test the value of the result field, or to indicate an 
end-of-file condition, a no-record-found condition or 
an exception /error condition. Normally, only indicators 
01 through 99 and H1 through H9 are used for testing. 
The indicator specified turns on only if the result field 
satisfies the condition being tested for. If the condition 
tested for is not met, the indicator is turned off. This 
indicator can then be used to condition following 
calculations or output operations (see Figure 8-12). If 
the same indicator is used to test the result of more 
than one operation, the last operation performed 
determines the setting of the indicator. 

Three fields (columns 54 and 55, 56 and 57, and 58 and 
59) can be used for testing the results. Each field is 
used to test for different conditions. You can specify 
testing for any or all conditions at the same time. 



Columns 54-55 (Plus or High): Use an indicator in 
these columns when testing: 

• Whether the result field in an arithmetic operation is 
positive 

• Whether factor 1 is higher than factor 2 in a compare 
operation 

• Whether factor 2 is higher than factor 1 in a table or 
array LOKUP operation 

• Whether a CHAIN operation is not successful 

• Whether each bit named in factor 2 is off for a 
TESTB operation 

• Whether the character tested in a TESTZ operation is 
one of the characters &, A through I 

• Whether the numeric field entered in a KEY operation 
is positive 

• Whether the system operator has requested 
shutdown 



Columns 54-59 (Resulting Indicators) 8-23 
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Two indicators are used to test for the different condi- 
tions in a subtract operation. These indicators are used 
to condition the calculations that must be performed 
for a payroll job. Indicator 10 turns on if the hours 
worked (H RSWKD) are greater than 40 and is then used 
to condition all operations necessary to find overtime 
pay. Indicator 20 turns on if H RSWKD is less than 40. 
It is also used to condition other operations. In line 03 
if indicator 20 is not on (the employee worked 40 or 
more hours), regular pay based on a 40-hour week is 
calculated. In line 06 if indicator 20 is on (employee 
worked less than 40 hours), pay based on less than a 
40-hour week is calculated. 



Figure 8-12. Conditioning Operation (Resulting Indicators) 



Columns 56-57 (Minus or Low): Use an indicator in 
these columns when testing: 



Columns 58-59 (Zero or Equal): Use an indicator in 
these columns when testing: 



• Whether the result field in an arithmetic operation is 
negative 

• Whether factor 1 is lower than factor 2 in a compare 
operation 

• Whether factor 2 is lower than factor 1 in a table or 
array LOKUP operation 



• Whether the result field in an arithmetic operation is 
zero 

• Whether factor 1 is equal to factor 2 in a compare 
operation 

• Whether factor 2 is equal to factor 1 in a table or 
array LOKUP operation 



• Whether the bits named in factor 2 are of mixed 
status (some bits on, some bits off) for a TESTB 
operation 

• Whether the character tested in a TESTZ operation is 
one of the characters - J through R 

• Whether the numeric field entered in a KEY operation 
is negative 



• Whether an end-of-file condition is reached for the 
demand file that is read by the READ operation 

• Whether each bit named in factor 2 is on for a 
TESTB operation 

• Whether the character tested in a TESTZ operation is 
any character other than &, A through I, or -, J 
through R 



Whether the ACQ, REL, NEXT, READ, or POST 
operation to a WORKSTN file is not successful 



Whether the numeric field entered in a KEY operation 
is zero or whether an alphameric field is blank 
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Allowing Command Keys To Be Pressed (SET) 

Columns 54 through 59 can contain command key 
indicators (KA through KN, KP through KY) for a SET 
operation. 

When a SET operation occurs, only the command keys 
in columns 54 through 59 for that SET operation can be 
pressed at that time. From one to three command keys 
can be entered for each SET operation. If one or two 
command keys are specified, they can appear in any of 
the three sets of columns. See SET in Chapter 10, 
Operation Codes, for complete information on this 
operation. 



COLUMNS 60-74 (COMMENTS) 

Use columns 60 through 74 to enter any meaningful 
comments that will help you understand the purpose of 
each specification line. Comments are not instructions 
to the RPG II program; they serve only as a means of 
documenting your program. 



COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 



Setting Indicators (SETON, SETOF) 

The operation codes SETON or SETOF can be used to 
turn indicators on or off. See SETON and SETOF 
Operations in Chapter 10, Operation Codes, for more 
information on these operations. Any indicators to be 
turned on or off by the SETON or SETOF operation 
codes can be specified in any of the three resulting 
indicator fields (see Figure 8-13). The headings for 
columns 54 through 59 have no meaning for SETON or 
SETOF operations. 



Calculation Specifications 





c 






»• 




Indicators 




















































Result Field 


X 

< 

X 
53 


Resulting 
Indicators 


































> 
E 

6 


6 _ 

- 5 
5 < 

Is" 

7 8 


I I 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 61 


I 

Q 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
3 4 5 


Plus |Minus| Zero 








Compare 


1 >2|1 < 2 1 1 = 2 


z 

9 


10 


11 


Z 
12 


13 




15 


16 


17 


LookupfFactor 2) is 


High 
54 55 


Low 

56 57 


58 59 





1 




c 












































5fe 


T 





N 












































i 


i 


\ 


5 







































2 




c 













































































































































3 




c 













































































































































4 




c 












































5 


E 


rr 


P 


M 












































l 


2 











































5 




c 













































































































































6 




c 













































































































































7 




c 












































S 


E 


T 





F 












































\ 


5 











































8 




c 













































































































































9 




c 











































































































































Figure 8-13. Setting Indicators 



Columns 60-74 (Comments) 8-25 
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Chapter 9. Output Specifications 



Output specifications describe the records and fields in 
the output file and the conditions under which output 
operations are performed. These specifications can be 
divided into two general categories: 

• File and record identification entries (columns 7 
through 31) that describe the output file, the records, 
and the indicators that condition the output. 

• Field description entries (columns 23 through 74) that 
describe the position and format of data on the 
output record. These entries must begin one line 
below the file and record identification entries. 



Write these specifications on the RPG Output 
Specifications sheet (see Figure 9-1). 
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Figure 9-1 RPG Output Specifications 
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COLUMNS 1-2 (PAGE) 

See Common Entries in Chapter 1. 

COLUMNS 3-5 (LINE) 

See Common Entries in Chapter 1 . 

COLUMN 6 (FORM TYPE) 

An must appear in column 6 to identify this line as an 
output specifications statement. 

COLUMNS 7-14 (FILENAME) 

Entry Explanation 

A valid Same filename that appears on 

filename the file description specifications 

for the output, combined, update, 

or add file 

Use columns 7 through 14 to identify the output file 
being described. The filename must begin in column 7. 

The filename need be specified only on the first line. 
However, if another output file is specified and further 
specifications are then required for the first file, the first 
filename must be repeated in columns 7 through 14 (see 
Figure 9-2). 



COLUMN 15 (TYPE) 



Entry 


Explanation 


H 


Heading records 


D 


Detail records 


T 


Total records 


E 


Exception records (lines to be 




written during calculation time) 



Use column 15 to indicate the type of record to be 
written. Column 15 must have an entry for every output 
record. 

Describe output files by entering the records for each 
file in this order: heading, detail, total, and exception 
(see Figure 9-2). Or enter all record types for all output 
files in this order: heading, detail, total, and exception 
(see Figure 9-2). 



Heading Records (H) 

Heading records usually contain constant identifying 
information such as column headings, page number, and 
date. 



Detail Records (D) 

Detail records usually contain data that comes directly 
from the input record or is the result of calculations 
performed on data from the input record. 



COLUMNS 14-16 (AND/OR) 



Entry 



Explanation 



AND or OR AND/OR indicates a relationship 
between lines of output indicators. 

Use columns 14 through 16 to specify AND/OR lines 
for output operations. For further information, see AND 
and OR Lines under Columns 23-31 (Output Indicators), 
in this chapter. 



Total Records (T) 

Total records usually contain data that is the end result 
of specific calculations on several detail records. Total 
output cannot be specified for primary or secondary 
update. files. Records can be added to indexed primary 
and secondary files at total time if add is specified (A in 
column 66) on the file description specifications. 



Exception Records (E) 

Exception records are written during calculation time. 
Exception records can be specified only when the 
operation code EXCPT is used. See Chapter 10, 
Operation Codes, for further information on the EXCPT 
operation code. 
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Figure 9-2. Order of Output Record Types 



Column 15 (Type) 9-3 



COLUMNS 16-18 (ADD/DEL) 



DEL 



Entry 


Explanation 


ADD 


Add a record to an indexed, 




direct, or sequential file 




defined as an input, output, 




or update file. 



DEL 



Delete the last record read 
on the identified update file. 



ADD 

When ADD is specified in columns 16 through 18 to 
add a record to an indexed, direct, or sequential file, 
column 66 of the file description specifications must 
contain an A for the file to which records are being 
added. The output device for this file must be DISK. 

The ADD entry must not be used in an OR line. An 
ADD entry in columns 16 through 18 of the previous 
line also applies to the record in the OR relationship. 
(For a detailed description of adding records to file, see 
Column 66 (File Addition) in Chapter 3.) 



If a record is to be deleted from a file, the file must be 
defined as delete-capable when it is built (for further 
information on defining a delete-capable file, see FILE 
Statement in the System Support Reference Manual). If 
you attempt to delete a record from a file that is not 
delete-capable, an execution-time error message is 
displayed. 

DEL must be specified in columns 16 through 18 of the 
main output record line. DEL applies to all the OR 
extensions to the main line. When records are deleted 
from a file, the file must be defined as an update file 
(column 15 of the file description specifications contains 
U). 

Note: Record deletion is not dependent on the file 
organization and mode of processing entries. 

Records are not physically removed from a file when 
they are deleted. Deleted records are filled with hex 
FFs. If a direct file load of a delete-capable file is 
executed, the entire file is initialized to hex FFs (for 
further information on direct file loading of 
delete-capable files, see Direct Files in Chapter 3). 



When a file containing deleted records is processed 
sequentially or consecutively (primary, secondary, or 
demand files) a deleted record is not returned to the 
program when it is accessed. It is bypassed, and the 
next record is read. This process is repeated until a 
nondeleted record is found or the end of the file is 
reached. When a file containing deleted records is 
processed randomly using CHAIN, the no-record-found 
indicator is turned on when a deleted record is 
accessed. If this indicator is not specified in columns 54 
and 55 of the calculation specification specifying the 
CHAIN operation, an error message is displayed. 
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COLUMN 16 (FETCH OVERFLOW OR RELEASE) 
Entry Explanation 

F Fetch overflow routine 

R Release the device (display station 

or SSP-ICF session) after output 



Fetch Overflow 

Use column 16 to specify fetch overflow for a printer 
file only. Column 16 of each OR line must contain an F 
if the overflow routine is to be used for each record in 
the OR relationship. Fetch overflow cannot be used 
when an overflow indicator is specified in columns 23 
through 31 on the same specification line. If this 
occurs, the overflow routine is not fetched. Specifying 
fetch overflow allows you to alter the basic RPG II 
overflow logic (see Columns 33-34 in Chapter 3, File 
Description Specifications). You can advance forms when 
total, detail, or exception records are printed instead of 
waiting for the usual time. The fetched overflow routine 
does not automatically cause forms to advance; that is, 
the entry in columns 21 and 22 of the output 
specifications must contain a two-digit entry that is less 
than the number of the line the printer is currently on. 
Fetching the overflow routine can prevent printing over 
the page perforation and can ensure use of as much of 
the page as possible. 

The fetch overflow specification causes the system to 
check whether the overflow indicator assigned to the 
printer file is on before printing total, detail, or exception 
records. The system tests the indicator each time an F 
is encountered in column 16 of the output 
specifications. If the overflow indicator is on, the 
overflow routine is fetched and the following operations 
are done: 



4. The line that fetched the overflow routine is 
printed. 

5. Any detail, exception, and total lines left to be 
printed for that output cycle are printed. 

Use fetch overflow when printing a particular line causes 
overflow, and not enough space is left on the page to 
print the remaining detail, exception, or total output 
lines. To determine when to fetch the overflow routine, 
study all possible overflow situations. By counting lines 
and spaces, you can calculate what happens if overflow 
occurs on each detail and total line. 

Figure 9-3 shows an example of specifying fetch 
overflow. 



Release 

A device can be released from the program after output 
to that device has occurred. To release the device, enter 
an R in column 16. OR lines can be specified; however, 
column 16 must contain an R for each OR line. The 
device is released when that output specification is 
encountered during the output operations. If a format 
name is specified on a field description for the record 
that contains an R in column 16, the format is written 
and then the device is released. 

RPG II sets on the LR indicator when all devices have 
been released if the WORKSTN file is a primary file and 
the program does not have an NEP attribute. If the 
program is an NEP, all devices must have been released 
and the system operator must enter the STOP SYSTEM 
command before RPG II sets on the LR indicator. 

Note: For WORKSTN files, a device can be either a 
display station or an SSP-ICF session. 



1 . All total lines conditioned by the overflow indicator 
are printed. 

2. Forms advance to a new page when a skip to a 
line number less than the line number the printer is 
currently on is specified in a line conditioned by an 
overflow indicator. 

3. Heading lines and detail lines conditioned by the 
overflow indicator are printed. 
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Figure 9-3. Uses of Fetch 



COLUMNS 17-22 (SPACING AND SKIPPING) 

Column 17 (Space Before) 
Entry Explanation 



0-3 



Number of lines to be spaced 
before a line is printed for 
a CRT file or a 
printer file. 



Column 18 (Space After) 
Entry Explanation 



0-3 



Number of lines to be spaced 
after a line is printed for 
a CRT file or printer file. 



Columns 19-20 (Skip Before) 

Entry Explanation 

01 Display screen is blanked immediately 

for a CRT file. 

01-99 Skip to lines 01 to 99 before printing 

for printer files. 

A0-A9 Skip to lines 100 to 109 before printing 

for printer files. 

B0-B2 Skip to lines 110 to 112 before printing 

for printer files. 



Columns 21-22 (Skip After) 

Entry Explanation 

01-99 Skip to lines 01 to 99 after printing 

for printer files. 

A0-A9 Skip to lines 100 to 109 after printing 

for printer files. 

B0-B2 Skip to lines 110 to 112 after printing 

for printer files. 
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Use columns 17 through 22 to specify line spacing and 
skipping for printer and CRT files. Spacing refers to 
advancing one line at a time, and skipping refers to 
jumping from one print line to another. 

Figure 9-4 shows the possible spacing and skipping 
entries for these files. If an incorrect entry is made in 
these columns, the compiler drops the entry and 
assumes a blank specification. If columns 17 through 22 
are blank, single spacing occurs after each line is 
printed. Different spacing and skipping can be specified 
for OR lines. If there are no spacing or skipping entries 
for the OR line, spacing and skipping are done 
according to the specifications for the line preceding the 
OR line. No spacing or skipping can be specified on 
AND lines. 

To prevent OCL statements from printing on the same 
page as output data, specify a skip to a new page at the 
beginning of each job. For example, if the last output 
line for the job is printed on line 01 of a page and no 
spacing or skipping is specified, the system begins 
printing OCL statements for the next job on the next 
line. To avoid this, specify a space- 1 -after. 



Specifying spacing (column 18) and skipping (columns 
21 and 22) after printing a line saves time because the 
system does not have to wait for the forms to advance 
before printing can be done. 

With spacing, the maximum number of blank lines that 
can occur between two lines of print is five. If six 
spaces are specified (three after the preceding print line 
and three before the current print line), the printer 
spaces six lines and begins printing on the sixth line. 

Spacing or skipping to the overflow line or past the 
overflow line turns the overflow indicator on. Skipping 
past the overflow line to a line of the next page, 
however, does not turn the overflow indicator on. Under 
this condition, use a SETON operation to turn on the 
overflow indicator to condition overflow operations. 

Skipping is usually done when a new page is needed. A 
skip to a lower line number means advance to a new 
page. Skipping can also be specified when more than 
five blank lines are required between two lines of print. 
The entry for skipping must be a two-digit number that 
indicates the number of the next line to be printed. If a 
skip is specified to the same line number that the forms 
are positioned on, the forms do not move. 



Spacing and Skipping for Printer Files 



Line spacing and skipping can be specified both before 
and after printing of a line. If both spacing and skipping 
are specified on the same line, they occur in this order: 



Skip before 
Space before 
Skip after 
Space after 



Files 


Space Before 


Space After 


Skip Before 1 


Skip After 1 


Column 17 


Column 18 


Columns 19-20 


Columns 21-22 


Printer 
CRT 


0-3 
0-3 


0-3 
0-3 


01-99, A0-A9, B0-B2 
01 2 


01-99, A0-A9, B0-B2 
No entry 



The skip entries you specify in columns 19 through 22 must not exceed the form length specified in line counter 
specifications, or must not exceed 66 if no line counter specifications are supplied. 

2 

Only allowable entry is 01 , which causes the screen to be erased. 
Figure 9-4. Possible Spacing and Skipping Entries 



Columns 17-22 (Spacing and Skipping) 9-7 



Spacing and Skipping for CRT Files 

The following rules apply to spacing and skipping for 
CRT files: 

• A space-before entry (0-3) can be specified in 
column 17. 

• A space-after entry (0-3) can be specified in 
column 18. 

• If a CRT file has a record length of 40 or less, the 
space-before and space-after entries cannot both 
be 3. 

• A skip-before entry, to line 01 only, can be in 
columns 19 and 20. This entry immediately clears the 
display screen. 



When an indicator is to condition an entire output line, 
enter it on the line that specified the type of record (see 
Figure 9-5). When an indicator is to condition when a 
field is to be written, enter it on the same line as the 
field name (see Figure 9-5). 

One indicator can be specified in each of the three 
separate output indicator fields (columns 23 through 25, 
26 through 28, and 29 through 31). If these indicators 
are on, the output operation is done. An N in the 
column preceding each indicator (column 23, 26, or 29) 
means that the output operation is done only if the 
indicator is not on (a negative indicator). No output line 
should be conditioned by all negative indicators; at least 
one of the indicators should be positive. If all negative 
indicators condition a heading or detail operation, the 
operation is performed at the beginning of the program 
cycle when the first page (1P) lines are written. 



A skip-after entry (columns 21 and 22) must not be 
specified for CRT files. 



COLUMNS 23-31 (OUTPUT INDICATORS) 



If no output indicators are specified, the line is output 
every time that record is checked for output. If no 
output indicators are specified on a heading or detail 
line, that record is also produced as output at the 
beginning of the program cycle. 



Entry Explanation 

01-99 Any resulting indicator, field 

indicator, or record identifying 
indicator previously specified. 

KA-KN, Any command key indicator 

KP-KY previously specified in a SET 

operation or used with a 

WORKSTN file. 



L0-L9 



H1-H9 



MR 

LR 

1P 



Any control level indicators previously 
specified. 

Any halt indicators previously specified. 



U1-U8 Any external indicator set prior 

to program execution. 

OA-OG, Any overflow indicator previously 

OV assigned to this file. 



Matching record indicator. 

Last record indicator. 

First page indicator. The 1 P indicator 
cannot be specified for a WORKSTN 
file. 



Use output indicators to specify the conditions under 
which a line or field is written as output. 



AND and OR Lines 

Use an AND line if more than three indicators are 
needed to condition an output operation. Enter the word 
AND in columns 14 through 16 of each additional line. 
The condition for all indicators in an AND relationship 
must be satisfied before the output operation is done. A 
maximum of 20 AND lines can be used for an output 
operation if no OR lines are used. 

Output indicators can also be in an OR relationship. If 
one or the other condition is met, the output operation 
is done. A maximum of 20 OR lines can be used for an 
output operation if no AND lines are used. 

If AND and OR lines are combined, the total number of 
AND and OR lines for an output operation cannot 
exceed 20. 

AND and OR lines can be used to condition entire 
output lines, but they must not be used to condition 
fields (see Figure 9-6). However, you can condition an 
output field with more than three indicators by using the 
SET0N operation in calculations. For example, if 
indicators 10, 12, 14, 16,, and 18 are used to condition 
an output field named PAY, in the calculations you can 
set on indicator 20 if indicators 10, 12, and 14 are on. 
Then condition the output field PAY on indicators 20, 
16, and 18 in the output specifications. 
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One indicator is used to condition an entire line of printing. 
When 44 is on, the fields named INVOIC, AMOUNT, 
CUSTR, and SALSMN are all printed. 
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Figure 9-5. Output Indicators 



A control level indicator is used to condition when one field 
should be printed. When indicator 44 is on, fields INVOIC, 
AMOUNT, and CUSTR are always printed. However, 
SALSMN is printed for the first record of a new control 
group only if 44 and L1 are on. 



Columns 23-31 (Output Indicators) 9-9 
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The detail line is printed if either of two sets of conditions 
is met. If 21, 40, 01, and 16 are all on, the line is printed; 
if 21 and 40 are on and 01 and 16 are off, the line is also 
printed. 
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A maximum of three indicators can be used to condition 
a field. 

Figure 9-6. Output Indicators in AND and OR Lines 
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The use of any of the LO through L9 indicators in an OR 
relationship with an LR indicator can result in the 
specified operation being done twice when LR is on. 
One operation is performed during LR processing and 
the other at detail or total time. Figure 9-7 shows how 
to correctly use the LO through L9 indicators in an OR 
relationship. 



Command Key Indicators (KA-KN, KP-KY) 

Use command key indicators in columns 23 through 31 
to condition output operations; however, any command 
keys entered in these columns must also be specified in 
columns 54 through 59 of the calculation specifications 
for a SET or SETOF operation, or used for a WORKSTN 
file. All command keys (KA through KN, KP through KY) 
can be used for a WORKSTN file. When the operator 
presses a command key, the data keyed at the display 
station is returned to the program, the corresponding 
command key indicator turns on, and all other command 
key indicators turn off. You can then use the command 
key indicators to condition calculation and output 
operations. 

See Chapter 10, Operation Codes, for complete 
information on the SET or SETOF operation. 



Overflow Indicators (OA-OG, OV) 

Overflow indicators condition output operations for a 
printer file. These operations are done only after the 
overflow line (end of page) is sensed. To use an 
overflow indicator in the output specifications, the same 
overflow indicator must be assigned to the printer file 
on the file description specifications. If no overflow 
indicator is assigned on the file description 
specifications, the compiler automatically handles 
overflow (see Columns 33-34 in Chapter 3, F/7e 
Description Specifications). 



Assigning Overflow Indicators 

When assigning overflow indicators in the output 
specifications, consider the following: 

• Spacing past the overflow line turns the overflow 
indicator on. 

• Skipping past the overflow line to any line on the 
same page turns the overflow indicator on. 

• Skipping past the overflow line to any line on the 
new page does not turn the overflow indicator on. 

• A skip to a new page specified on a line not 
conditioned by an overflow indicator turns the 
overflow indicator off before the forms advance to a 
new page. 

• Control level indicators can be used with an overflow 
indicator so that each page will contain information 
from only one control group (see Figure 9-8). 

• An overflow indicator can appear on either AND or 
OR lines. However, only one overflow indicator can 
be associated with one group of output indicators. 

• When the overflow indicator is used in an AND 
relationship with a record identifying indicator, 
unusual results are often obtained because the record 
type might not be the one read when overflow 
occurred. Thus, the record identifying indicator is not 
on, and all lines conditioned by both overflow and 
record identifying indicators do not print. 

• An overflow indicator cannot condition an exception 
line (E in column 15) but can condition fields within 
the exception record. 

• Overflow indicators can be turned on and off by the 
operation codes SETON and SETOF. 
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Figure 9-7. Correct Use of Indicators L0 through L9 in OR Relationship 



Columns 23-31 (Output Indicators) 9-11 
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This is the coding necessary for printing headings on every 
page: first page, every overflow page, and each new page to 
be started because of a change in control fields (L2 is on). 
Line 01 allows the headings to be printed at the top of a 
new page (skip to 06) only when an overflow occurs (OA is 
on and L2 is not on). 

Line 02 allows printing of headings on the new page only 
at the beginning of a new control group (L2 is on). This 
way, duplicate headings caused by both L2 and OA being 
on at the same time do not occur. Line 02 allows headings 
to be printed on the first page after the first record is read 
because the first record always causes a control break (L2 
turns on) if control fields are specified on the record. 
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This is the necessary coding for the printing of certain fields 
on every page; a skip to 06 is done either on an overflow 
condition or on a change in control level (L2). The NL2 
indicator in line 01 prevents the line from printing and 
skipping twice in the same cycle. 



Figure 9-8. Using Control Level Indicators with an Overflow Indicator 
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Figure 9-9 shows the setting of overflow indicators 
during the normal overflow routine and during a fetched 
overflow routine for both normal output and exception 
output. The left portion of the graph shows the general 
program cycle. The solid black lines indicate that the 
indicator is on, and the dashes show a connection 
between the end of one cycle and the start of the next. 



First Page Indicator (1P) 

The first page (1P) indicator allows printing either on the 
first page only or on every page if used with an 
overflow indicator (see Figure 9-10). The line 
conditioned by the 1 P indicator must contain constant 
information used as headings or fields for reserved 
words such as PAGE and UDATE. The constant 
information is specified on the output specifications in 
columns 45 through 70. 

Use the 1 P indicator only with heading or detail output 
lines. It cannot be used to condition total or exception 
output lines, in an AND relationship with control level 
indicators, or to condition output for a WORKSTN file. 

See Column 41 (IP Forms Position) in Chapter 2, 
Control Specifications, for information on forms 
alignment of the first page. 



Halt Indicators (H1-H9) 

If certain error conditions occur, you might not want 
output operations performed. Use halt indicators to 
prevent the data that caused the error from being used 
(see Figure 9-11). 



External Indicators (U1-U8) 

You may want to condition certain output records on 
external conditions. If so, use the external indicator to 
condition those records. 



COLUMNS 32-37 (FIELD NAME) 

In columns 32 through 37, use one of the following 
methods to specify each field that is to be written out: 

• Any field name or data structure name previously 
used in this program 

. The special words PAGE, PAGE1 through PAGE7, 
•PLACE, UDATE, UDAY, UMONTH, or UYEAR 

• A table name, array name, or array element 



Field Names 

The field names used must be the same as the field 
names on the input specifications (columns 53 through 
58) or the calculation specifications (columns 43 through 
48). Do not enter a field name if a constant is used in 
columns 45 through 70. If a field name is entered in 
columns 32 through 37, columns 7 through 22 must be 
blank. 

Fields can be listed on the specifications sheet in any 
order because the sequence in which they appear on the 
output record is determined by the entry in columns 40 
through 43. However, the fields are usually listed 
sequentially. If fields overlap, the last field specified is 
the only field completely written. 

The sign (+ or -) of a numeric field is in the units 
position (rightmost digit). The units position prints as a 
letter unless the field is edited. See Column 38 (Edit 
Codes). 
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Figure 9-9. Overflow Printing: Setting of the Overflow Indicator 



9-14 Output Specif ications 



Output Specifications 



























s 

X 

i 


"r" 












































f. 


































'l. J 


Filename 


Space 


Skip 


Output Indicators 


Field Name 




> 


Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X - Remove 
Plus Sign 

Y - Date 

Field Edit 

Z =* Zero 

Suppress 




71 72 73 74 








Line 
3 4 5 


I 
6 


m 


< 


19 20 


< 
21 22 


1 1 

And And 






Yes 
Yes 

No 
No 


Yes 
No 
Yes 

No 


1 

2 
3 

4 


A 
B 
C 
D 


J 
K 

L 
M 


Li 

a 

38 


pz 
u 

39 


End 
Position 

Output 
R ecord 

40 41 42 43 


44 




L) 


E 


L 


z 

23 


24 


25 


Z 
26 


27 


28 


29 


30 


31 


•AUTO 

32 33 34 35 36 37 












A 


D 


D 


Constant or Edit Word 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 • 


7 8 9 10 11 12 13 





R 




17 


IP 


A 
14 


N 
15 


D 

15 


45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 






1 
2 




°P 


B 


I 


N 


T 




... 


- 


H 




- 


3 






"- 


- 




IP 
















- 


~ 


- 






- 


" 


- 






8 




r 


SPCOOIIT 



































































1 

















































3 

4 
5 





























































































































- 


- 


- 




- 




- 




" 


- 


" 




















- 





























































































































































The 1P indicator is used when headings are to be printed on 
the first page only. 
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The 1 P indicator and an overflow indicator can be used to 
print headings on every page. 



Figure9-10. 1P Indicators 



Columns 32-37 (Field Name) 9-15 



































































Input Specification: 




















































T 




X 


z 

a 

E 
17 


5 
o 

18 


13 20 


Record Identification Codes 


42 


43 


Field Location 


Q 
52 


Field Name 

53 54 55 56 57 53 


8 

59 60 


is 

61 62 


63 64 


Field 
Indicators 


71 72 73 74 


J. 


E 
6 


1 


2 


3 


Line 
3 4 5 


Filename 




Position 
21 22 23 24 


Z 

Z 

25 


g 
o 

2C 


o 

27 


Position 

28 29 30 31 


z 
z 

32 


g 
u 

33 


a 

34 


Position 

35 36 37 38 


2 

39 


Q 
U 

40 


O 
41 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 

65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


7 E! 9 10 11 12 13 





R 




A 
14 


N 
15 


D 





1 




I 


^ 


AW 


R 






A 


A 









1 












- 






















































1 

_L 






1 


! 


















T 


| 







2 




I 






































































\ 








3 61 
S0FI 


EU 


Li 






















a 


3 




I 












































|_ 




































5 








E 


L 


OB 






















HI 











4 




I 












































1 










































i 




] 


































i 



When an error condition (zero in FIELDB) is found, the 
halt indicator turns on. 
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When H1 is on, all calculations are bypassed. 
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FIELDA and FIELDB are printed only if H1 is not on. 
Therefore, if H1 is on, FIELDA and FIELDB are not 
printed. Use this general format when you do not want 
information that is in error to be printed. 



Figure 9-11. Preventing Fields From Printing 
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Special Words 

Page Numbering (PAGE, PAGE1-PAGE7) 

PAGE is a special word that, when used, causes 
automatic numbering of the pages. Enter the word 
PAGE or PAGE1 through PAGE7 in these columns if the 
pages are to be numbered. When a PAGE field is 
named in these columns without being defined 
elsewhere, it is assumed to be a four-digit, numeric 
field with zero decimal positions. Leading zeros are 
suppressed automatically. A PAGE field can also be 
defined on input or calculations specifications as a 
numeric field from 1 to 15 digits long, with zero decimal 
positions. 



Page numbering can be restarted at any point in a job. 
To do this, set the PAGE field to zero before it is 
printed by specifying either blank after in column 39 or 
an output indicator. If the status of the indicator is as 
specified, the PAGE field is reset to zero and 1 is added 
to the PAGE field before it is printed (see Figure 9-12). 

The eight possible PAGE entries (PAGE, PAGE1 through 
PAGE7) may be needed for numbering different types of 
output pages or for numbering pages for different 
printer files. 



The page number starts with 0001 unless otherwise 
specified, and 1 is automatically added for each new 
page. See Columns 53-58 (Field Name) in Chapter 7, 
Input Specifications, for information concerning page 
numbering that starts at a number other than 1. 
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Repeating Output Fields (-PLACE) 

*PLACE is a special RPG II word that allows you to 
write the same fields in several locations on one record 
without naming the fields and giving their end position 
each time the fields are to be written. The fields 
repeated by means of "PLACE are written ending in the 
position specified in columns 40 through 43 of the same 
specifications line. For example, if FIELDS A, B, and C 
appear twice on one record, the fields can be specified 
in two ways: 

• Define each field and its corresponding end position 
each time the field is to be printed or written on disk 
(see Figure 9-13). 

• Use the special word *PLACE (see Figures 9-13 and 
9-14). 

Both coding methods shown in Figure 9-13 produce a 
record that looks like this: 
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When indicator 1 5 is on, the PAGE field is reset to zero and 
a 1 is added before the field is printed. When 15 is off, a 1 is 
added to the contents of the PAGE field before it is printed. 



Figure 9-12. Resetting the PAGE Fields to Zero 
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To repeat an output field, each field can be defined each 
time it is to be printed or written to disk. 
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Or the special word *PLACE can be used to repeat a group 
of fields. 



Figure 9-13. Writing Fields Twice on the Same Record 
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Fields to be placed on the same line 
several times. 




*PLACE can also be used to print the same group of fields 
several times on the same line. FIELDS A, B, and C are to 
be printed four times on one line as shown above. They 
are printed once when they are named and once for every 
*PLACE entry. 

*PLACE is specified after the fields that are to be printed 
several times on the same line (below). All fields to which 
*PLACE applies appear on the same record. FIELD D, 
which appears on the total record, is not affected by 
*PLACE. 



Notice also that an end position is given for every *PLACE. 
FIELDS A, B, and C have a total length of 15 characters. 
Thus, the end positions given for the *PLACE entries allow 
room for the printing of 1 5 characters. This eliminates 
any overlapping. 
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Figure 9-14. "PLACE 
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When you specify *PLACE, all fields named for each 
record type (H/D/T/E) are written as usual in the 
location specified. The entry *PLACE then causes all of 
these fields to be written ending at the position 
specified in columns 40 through 43 of the *PLACE 
specification. When you specify *PLACE, remember: 

• *PLACE must be specified after the field names that 
are to be written in different positions in one record 
(see Figure 9-14). 

• *PLACE causes all fields within a record type to be 
written, not just the field name on the line 
immediately above the *PLACE entry. 

• *PLACE must appear on a separate specification line 
each time a field or a group of fields is to be written. 

• An end position no greater than 256 must be 
specified for every *PLACE line. Allow enough space 
for all fields to be written (see Figure 9-14); 
otherwise, overlapping occurs. 

• Multiple or successive *PLACE entries can be 
specified if the fields preceding the first *PI_ACE 
specification are to be repeated more than once. 

• The leftmost position of the fields to be written by 
the *PLACE specification is always assumed to be 
position 1. 

• The high end position to be used by *PLACE cannot 
be defined by a whole array. If a whole array does 
have the highest end position of all fields preceding 
the *PLACE, a field must be defined that has an end 
position greater than the end position of the whole 
array. This field can be a one-position blank 
constant. 

• Additional fields or constants can be specified after 
the *PI_ACE specification and are not affected by any 
preceding *PLACE specification. 

Note: Attempts to use the *PLACE function for other 
than its defined purpose may produce unpredictable 
results. 



Date Fields (UDATE, UMONTH, UDAY, UYEAR) 

To have the date printed on a report or program listing, 
use special words UDATE, UMONTH, UDAY, or 
UYEAR. The date fields are established at job setup 
time. UDATE contains the program date that may not 
be the same as the date in the result field of the TIME 
operation. The result field of the TIME operation 
contains the system date. See the System Support 
Reference Manual for a complete discussion of the 
system date, program date, and the DATE OCL 
statement. The following rules apply to date fields: 

• UDATE prints a 6-character numeric date field in one 
of three formats: 

Month/day/year 

Year/month/day 

Day/month/year 

Use columns 19 and 20 of the control specifications 
to specify the date format and the editing to be done. 
If columns 19 and 20 are blank, the date format is 
determined by the contents of column 21. 

• Use UDAY for the day only, UMONTH for the month 
only, and UYEAR for the year only. 

• These fields cannot be changed by any operations 
specified in the program. Thus, these fields are 
generally used only in compare and test operations. 



COLUMN 38 (EDIT CODES) 

Use column 38 to: 

• Suppress leading zeros in a numeric field 

• Omit a sign from the low-order position of a numeric 
field 

• Punctuate a numeric field without establishing an edit 
word 



A table summarizing the edit codes that can be used in 
column 38 is printed above columns 45 through 70 on 
the output specifications sheet. If column 38 contains 
an edit code, columns 45 through 70 must be blank 
except for the following condition: if asterisk fill (that is, 
the leading zeros of the field are to be replaced with 
asterisks) or a floating currency symbol is required, enter 
'*' or the currency symbol (enclosed in apostrophes) in 
columns 45 through 47. When an edit code is used to 
punctuate an array, two spaces are automatically 
inserted between fields of the array to the left of each 
element. Only zoned decimal numeric fields can be 
edited. 
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Note: Editing fields of a nonprinter file must be done 
with caution. If you do edit fields of a nonprinter file, 
you must be aware of the contents of the edited fields 
and the effects of any operations you want to do on 
them. For example, if you add an unedited field to an 
edited field, the results will be erroneous. 

Figure 9-15 shows the edit codes and the options they 
provide. Figure 9-16 illustrates how data looks when it 
is edited by edit codes. Each code punctuates the field 
a little differently. All codes suppress leading zeros, 
except when J is entered in column 21 of the control 
specifications. In this instance, all zero balances and 
balances with zero values to the left of the decimal 
comma are always written with one leading zero (such 
as 0,00 or 0,04). If an edit code is specified on the 
output specifications and the edit code is to write zero 
balances, a zero balance field always has a zero to the 
left of the decimal comma. The edit code cannot 
suppress this zero. 

Figure 9-17 shows editing for date fields. 

Normally, when an edit code is used in column 38, an 
edit word cannot be defined in columns 45 through 70; 
however, there are two exceptions: 

• If asterisks are to replace leading zeros, enter '*' in 
columns 45 through 47 of the line containing the edit 
code. 

• If the currency symbol is to appear before the first 
digit in the field (floating currency symbol), enter the 
currency symbol (enclosed in apostrophes) in columns 
45 through 47 of the line containing the edit code. 

Asterisk fill and the floating currency symbol are not 
allowed with X, Y, and Z edit codes. 

The currency symbol can appear before the asterisk fill 
(fixed currency symbol). This is done in the following 
manner: 

1. Place the currency symbol constant one space 
before the beginning of the edited field by entering 
the currency symbol constant on a separate 
specification line. 

2. Place '*' in columns 45 through 47 of the line 
containing the edit code. 

Note: If the currency symbol is not the dollar sign ($), 
the currency symbol must be entered in column 18 of 
the control specifications. 

Figure 9-18 shows the effect the different edit codes 
have on the same field with a specified end position for 
output. 



COLUMN 39 (BLANK AFTER) 

Entry Explanation 

Blank Field is not reset. 

B Field specified in columns 32 

through 37 is reset to blank or 
zero after the output operation 
is complete. 

Use column 39 to reset a numeric field to zeros or an 
alphameric field to blanks. If the field is conditioned by 
indicators in columns 23 through 31, the blank after is 
also conditioned. This column must be blank for 
look-ahead and UDATE fields. 

Resetting fields to zeros is useful when totals are 
accumulated and written for each control group in a 
program. After the total is accumulated and written for 
one control group, the total field can be reset to zeros 
before accumulation begins on the total for the next 
control group. 

If blank after (column 39) is specified for a field to be 
written more than once, the B should be entered on the 
last line specifying output for that field. 

When blank after is specified with a table name, the 
field that is blanked contains the last element found by 
a successful LOKUP, or the first element of the table if 
no LOKUP or no successful LOKUP occurred. Blank 
after can be specified with an array element or a whole 
array. 



COLUMNS 40-43 (END POSITION IN OUTPUT 
RECORD) 

Entry Explanation 

1 -4096 End position for disk or 

SPECIAL file 

1-4075 End position for BSCA file 

1-1919 End position for WORKSTN file 

1-132 End position for 132-position printer 

1-79 End position for CRT file 

K1-K8 Length of format name 

for a WORKSTN file 

Use columns 40 through 43 to define the end position 
of a field or constant on the output record. All entries in 
these columns must end in column 43. Enter only the 
position of the rightmost character in the field or 
constant. 
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Note: If columns 40 through 43 are left blank, the field 
or constant is placed in the output record immediately 
following the field specified in the previous output 
specification for that record. If no previous field 
specification exists for the record, the high-order 
position of the field is placed in position 1. A blank end 
position with *PLACE causes the *PLACE to be ignored. 
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Figure 9-15. Edit Codes 
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The EBCDIC values of negative decimal numbers do not print as numerics. The alpha equivalent is printed if column 45 of the 
control specifications contains a blank (that is, the program halts for unprintable characters), or if the operator takes a continue 
option to the halt. A minus zero (hex DO) prints as a blank, a minus 1 (hex D1 ) as J, a minus 2 (hex D2) as K, and so on. 



Figure 9-16. Examples of Edit Code Usage 



9-24 Output Specifications 







' 




Control Specification 




UDATE 


Edit 
Code 


Contents of 
Column 19 


Contents of 
Column 20 


Contents of Column 21 


Blank 


D 


I 


J 


















Jan 30, 1978 


Y 


Blank 


Blank 


1/30/78 


30/01/78 


30.01.78 


30.01.78 








- 


1-30-78 


30-01-78 


30-01-78 


30-01-78 






M 


Blank 


1/30/78 


1/30/78 


1/30/78 


1/30/78 








- 


1-30-78 


1-30-78 


1-30-78 


1-30-78 






D 


Blank 


30.01.78 


30.01.78 


30.01.78 


30.01.78 








- 


30-01-78 


30-01-78 


30-01-78 


30-01-78 






Y 


Blank 


78.01.30 


78.01.30 


78.01.30 


78.01.30 








- 


78-01-30 


78-01-30 


78-01-30 


78-01-30 



Figure 9-17. Date Fields 
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K represents a negative 2. 
Figure 9-18. Effect of Edit Codes on End Position 
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COLUMN 44 (PACKED OR BINARY FIELD) 



COLUMNS 45-70 (CONSTANT OR EDIT WORD) 



Entry Explanation 

Blank Field is zoned decimal numeric 

data or alphameric data. Leave 
this column blank for nondisk files. 



Use columns 45 through 70 to specify a constant, the 
format name for a WORKSTN file, or an edit word. If 
you are using edit codes, you can also use columns 45 
through 47 to specify a floating currency symbol or 
asterisk fill. 



P Field is to be written on disk in 

packed decimal format. 

B Field is to be written on disk in 

binary format. 

Use column 44 to specify whether a numeric field 
(decimal number) is to be written on disk in packed 
decimal or binary format. Packed decimal and binary 
fields cannot be displayed or printed; these fields can be 
written only on disk. Column 44 must be blank for 
"PLACE. 

After decimal numbers are processed, they can be left in 
the zoned decimal format. However, for more efficient 
use of disk space, convert decimal numbers into packed 
decimal or binary format. When binary output is 
specified, a numeric field one to four digits long (zoned 
decimal in storage) is converted into a 2-byte binary 
field when it is written on disk; a numeric field five to 
nine digits long is converted into a 4-byte binary field. 
When packed decimal output is specified, a byte of disk 
storage (except for the low-order byte) can contain two 
decimal numbers. See Column 43 (Packed or Binary 
Field) in Chapter 7, Input Specifications, for a description 
of how data fields are represented in zoned decimal, 
packed decimal, and binary formats. 

Notes: 

1. Although packed and binary fields require less disk 
storage space, the conversion routines needed to 
handle such data increase the object program size 
(and execution time). 

2. Key fields cannot contain any hex FF characters. 
Therefore, if the key field is a binary field, you must 
be sure that no hex FF characters appear in the key 
field. 



Constants 

A constant is any unchanging information that is to 
appear on a report. Constants are usually words used 
for report headings or column headings. 

The following rules apply to constants (see Figure 9-19 
for examples): 

• Field name (columns 32 through 37) must be blank. 

• A constant must be enclosed in apostrophes. Enter 
the leading apostrophe in column 45. 

• An apostrophe in a constant must be represented by 
two apostrophes. For example, if the word you're 
appears in a constant it must be coded as 'YOU"RE'. 

• Numeric data can be used as a constant. 

• Up to 24 characters of constant information can be 
placed in one line. Additional lines can be used, but 
each line must be treated as a separate line of 
constants. The end position is specified in columns 
40 through 43. If no end position is specified, the 
constant is placed in the output record immediately 
following the field or constant specified in the 
previous output specification line for that record (see 
Columns 40-43, End Position in Output Record, in this 
chapter). 
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Figure 9-19. Examples of Output Constants 
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Format Name 



Edit Words 



The name of the display screen format that is used by 
the WORKSTN file must be specified in columns 45 
through 54. One format name is required for each 
output record for the WORKSTN file; the specification 
of more than one format name per record is not 
allowed. The format name must be enclosed in 
apostrophes. This is the same name that is specified in 
columns 7 through 14 of the S specification line on the 
display screen format specifications. You must also 
enter Kn in columns 42 and 43, where n is the length of 
the format name. For example, if the format name is 
FORM1, enter K5 in columns 42 and 43. 

For more information on the display screen format, see 
Chapter 13, WORKSTN File Considerations and Sample 
Programs. 

Note: The output specifications line containing the 
format name cannot be conditioned by any indicators. 



Edit Codes 

If column 38 contains an edit code, columns 45 through 
70 must be blank except for the following condition: if 
asterisk fill or a floating currency symbol is required, 
enter '*' or the currency symbol (enclosed in 
apostrophes) in columns 45 through 47. When '*' is 
entered in columns 45 through 47, asterisks Veplace all 
leading zeros (**NN). When the currency symbol is 
entered in columns 45 through 47, the currency symbol 
appears before the first digit in the field ($N.NN). For 
more information on edit codes, see Column 38 (Edit 
Codes) in this chapter. 



An edit word allows more flexibility in punctuating a 
numeric field than an edit code. You specify directly: 

• If commas, decimal points, and zero suppression are 
needed 

• If the negative sign should print 

• If the output is dollars and cents, whether a currency 
symbol and leading asterisks should be used 

The following rules apply to edit words: 

• Column 38 (edit codes) must be blank. 

• Columns 32 through 37 (field name) must contain the 
name of a numeric field. 

• Columns 40 through 43 must contain the end 
position of the field in the output record. 

• An edit word must be enclosed in apostrophes. Enter 
the leading apostrophe in column 45. The edit word 
itself must begin in column 46. 

• Any printable character is valid, but certain characters 
in certain positions have special uses. See Editing 
Considerations in the following text. 

• An edit word cannot be longer than 24 characters. 

• The number of replaceable characters in the edit 
word must equal the length of the field to be edited. 
See Editing Considerations in the following text. 



Note: Asterisk fill and the floating currency symbol 
cannot be used with the X, Y, and Z edit codes. 



All leading zeros are suppressed unless a zero or 
asterisk is specified in the edit word. The leftmost 
zero or asterisk indicates the last leading zero in the 
field to be replaced by a blank or asterisk. 



Any zeros or asterisks following the leftmost zero or 
asterisk are treated as constants; they are not 
replaceable characters. 
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Editing Considerations 

When using an edit word, leave exactly enough room on 
the printed form for the edited word. If the field to be 
edited is 7 characters long on the input record, consider 
whether seven positions allow enough space for it to 
print on the report. If the field is edited, it might contain 
more than 7 characters. 

When computing the length of an edited output field, 
determine how many of the editing characters are 
replaceable. The number of replaceable characters in 
the edit word must equal the length of the field to be 
edited. A replaceable character is a character in the edit 
word that does not require a position in the output file. 
The replaceable characters are: 

(if used for zero suppression) 

* (if used for asterisk fill) 

6 (blank) 

the currency symbol (if it appears immediately to the 
left of zero suppress; that is, a floating currency 
symbol) 

A fixed currency symbol, decimal points, floating 
currency symbol, commas, ampersands (representing 
blanks), negative signs (- or CR), and constant 
information all require space in the output file. 

Note: There are two exceptions to the rule that the 
number of replaceable characters in the edit word must 
equal the length of the field to be edited. The 
exceptions are: 

• An extra space must be left in the edit word for the 
floating currency symbol to ensure a print position for 
the currency symbol if the output field is full: 



Unedited 
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Edit 
Word 
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Field 
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Field 
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Characters in 
Edit Word 
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An extra space can be left in the edit word if the first 
character in the edit word is a zero. In this case, the 
field to be edited is not zero suppressed by the 
leading zero, but all other specified editing is 
performed: 



Unedited 
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Edit 
Word 


Edited 
Field 


Unedited 

Field 

Length 


Replaceable 
Characters in 
Edit Word 
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Formatting Edit Words 

The printer spacing chart can help you format edit 
words. Figure 9-20 shows how an output line can be 
formatted on this chart. The Xs and zeros show field 
positions. A zero indicates where zero suppression 
stops. An X indicates that any number can appear in 
the position. Use blanks in place of the Xs when writing 
the edit words. 

If it is necessary to show a negative number, a sign 
must be included in the edit word. Use either the minus 
sign (-) or the letters CR. These print only for a negative 
number; however, the character positions they require 
must be included when you enter the end position of 
the field on the output specifications. Figure 9-20 
shows that for the field PERCPL, CR is to be printed for 
a negative balance. Assume the field PERCPL contains 
the negative data 2N (which is -25). The printed output 
is: 25CR. If PERCPL is positive, CR does not print and 
the same field appears as 25. 
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Figure 9-20. Using the Printer Spacing Chart to Format Data 
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A minus sign can also indicate a negative number. To 
leave a space between the number and the negative 
sign, place an ampersand (&) in the edit word before the 
minus sign. PERCPL then prints as 25&-. 

To print a currency symbol to the left of a field, enter 
the currency symbol next to the first apostrophe and 
then include the necessary blanks and punctuation in the 
bdit word. A currency symbol in this position is called a 
fixed currency symbol. The SPRICE field shown in 
Figure 9-21, line 01, can look like any of the following 
(N stands for any number): 

$NNN.NN 

$ NN.NN 

$ N.NN 

$ .NN 



If you do not want blank spaces between the currency 
symbol and the first digit when zero suppression occurs, 
you can indicate asterisks (*) fill. Instead of using to 
indicate zero suppression, use the asterisk (*) to indicate 
that all extra spaces should be filled with asterisks. The 
SPRICE field in Figure 9-21, line 03, can look like any 
of the following (N stands for any number): 

$NNN.NN 

$*NN.NN 

$**N.NN 

$***.NN 

To have the currency symbol always print next to the 
leftmost digit, place the currency symbol next to the 
zero suppress in the edit word. A currency symbol 
that changes positions depending upon the number of 
positions that are zero suppressed is known as a 
floating currency symbol. When printed, the SPRICE 
field in Figure 9-21, line 05, can look like any of the 
following: 

$NNN.NN 
$NN.NN 
$N.NN 
$.NN 

An extra space must be left in the edit word for the 
floating currency symbol to ensure a print position for 
the currency symbol if the output field is full. 

Note: If the currency symbol is not the dollar sign ($), 
the currency symbol must be entered in column 18 of 
the control specification. 
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Figure 9-21. Different Edit Words Used on the Same Field 
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Examples of Edit Words 

Figure 9-22 shows examples of edit words. For all 
examples, column 38 (edit codes) of the output 
specification is blank. The symbol b indicates where 
blank spaces appear in the edited data field. Zeros are 
not slashed because there should be no confusion with 
the letter 0. 

Examples 1 through 9 are sample edit words for some 
of the most frequently used output formats. Examples 
10 through 71 show several possible edit words and the 
resulting edited data field. 

The following paragraphs provide an additional 
explanation of each example shown in Figure 9-22: 

1. A decimal point appears between dollars and 
cents; commas appear every three positions in the 
dollar portion of the field. The symbol CR appears 
in the edited data field when the data is negative; 
otherwise, it is replaced by blanks. Because zero 
suppression occurs through the units position (zero 
in the edit word just left of the decimal point), 
blanks replace leading zeros and constants until a 
significant digit or until the specified zero is 
encountered. If there are no significant digits, the 
zero is replaced with a blank; however, the 
decimal point and the digits to its right always 
appear in the edited data. 

2. Leading zeros and commas are replaced by blanks 
through the position of the zero suppression 
(column 54). Thus, if the entire data field is zero, a 
zero appears only in the low-order position of the 
edited data. A minus sign appears in the edited 
data if the field is negative; if not, the minus sign 
is replaced by a blank. The constant ON HAND 
always appears in the edited data as it is specified 
in the edit word, regardless of whether the minus 
sign appears as specified or as a blank. 



Because the zero suppression appears in the 
tens position of the edit word, leading zeros and 
constants are retained starting with the units 
position. Because the dollar sign is placed just left 
of the zero suppression 0, it is a floating dollar 
sign. In an edited data field, the floating dollar 
sign always appears to the immediate left of the 
first digit or retained constant. An extra position is 
allowed in the high-order portion of the edit word 
to accommodate the floating dollar sign. The 
minus sign appears if the field is negative; the 
asterisk always appears as a constant because a 
zero is specified to the left of it. 

This example is similar to example 3 except that 
(1) zero suppression occurs up to the decimal 
point, (2) CR indicates a negative value, and (3) 
two asterisks print at the end of the edited data. 
In the edited data shown, the dollar sign has 
floated to the left to precede the first significant 
digit. If the unedited data were all zeros, the 
output record would appear as $.00fofe**. An 
extra position is allowed in the leftmost portion of 
the edit word for the dollar sign. 

This example is similar to example 4 except that 
(1) no symbol indicates a negative value, and (2) 
the edit word includes a fixed dollar sign. Because 
the dollar sign is placed in the leftmost position of 
the word and is not followed immediately by a 
zero suppression 0, it is a fixed dollar sign. The 
fixed dollar sign always appears in the leftmost 
position of the edited data field. 

A space can be left in the edited data field 
between a fixed dollar sign and the first digit, even 
when the entire field contains significant digits. An 
ampersand (&) in an edit word appears as a blank 
in the edited field. The minus sign appears in the 
edited data if the field is negative; the constant 
GROSS always appears in the edited data. 

If a zero or asterisk is not specified, zero 
suppression can occur throughout the field; thus, 
edited data begins with the first significant digit. If 
the unedited data field contained only zeros, the 
entire edit word except the minus sign is replaced 
by blanks when the field is edited. 

Zero suppression can occur throughout the field. 
The symbol CR appears in the edited data field 
when the field contains a minus zero. 
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9. When asterisk fill is indicated, asterisks replace all 
positions in the edit word to the left of the first 
significant digit. If the asterisk is in the rightmost 
position of the edit word, the entire edited field 
contains asterisks when the data is all zeros. 

10, 11, and 12. When no edit word is used, the data in 

the output record has the same format as the 
unedited data. The low-order position of the 
output field is printed as an alphabetic character (J 
through R) if the source data field is negative. 

13, 14, and 15. When a blank edit word is used, all 
leading zeros are replaced with blanks, and any 
sign in the low-order position of the unedited field 
is removed when the data is edited. Negative 
values are not identified. 

16. Using a zero suppression in the rightmost 
position of the edit word is the same as using a 
blank edit word (examples 13, 14, and 15). 

17. Although the zero suppression appears in the 
high-order position of the edit word, suppression 
of the first leading zero cannot be avoided. See 
the note under Editing Considerations for a 
discussion of this exception. 

18 and 19. An ampersand appears as a blank in the 

edited data. The symbol CR appears in the edited 
data if the field is negative; CR is replaced by 
blanks if the field is positive. The constant NET 
always appears in the edited data field. 

20. An ampersand appears as a blank in the edited 
data. A minus sign, instead of CR, indicates 
negative values. 

21 and 22. NET CR indicates when the edited data field 
is negative. Therefore, when the edited field is 
positive, CR is replaced with blanks. 

23. The constant PROFIT appears in the edited data 
field. Negative values are not identified. 

24 and 25. This example is similar to example 20, 

except that a fixed dollar sign is shown. An extra 
position is added to the edit word to allow for the 
dollar sign. 

26. When the dollar sign appears to the immediate left 
of the zero suppression 0, it becomes a floating 
dollar sign, even when the dollar sign is entered in 
the leftmost position of the edit word. 

27 and 28. The floating dollar sign is shown for different 
numbers of leading zeros. An extra position must 
be allowed in the high-order portion of the edit 
word for the dollar sign. 



29 and 30. Even if there is no zero in the edit word, the 
minus sign appears in the edited field when the 
contents of the data field are minus zero. The 
constant TOTAL always appears in the edited field. 

31 . Some zeros can appear in the edited field when 
the entire field is zero. In this example zero 
suppression occurs through the position of the 
zero in the edit word (column 54), thus leaving two 
positions in which zeros can appear in the edited 
field. 

32. This example is similar to example 31, except that 
a floating dollar sign replaces the last suppressed 
zero. 

33. Because the dollar sign is adjacent to the zero in 
the low-order position, it is a floating dollar sign. 
The floating dollar sign appears in the low-order 
position of an all-zero data field. This gives full 
protection with a floating dollar sign, even when 
all leading zeros are suppressed. 

34. Because the asterisk appears in the low-order 
position of the edit word, asterisks appear 
throughout the edited field when the contents of 
that field are zero. This gives full protection with 
an asterisk, even when all leading zeros are 
suppressed. 

35. Asterisk protection occurs only to a certain 
position; thereafter, any additional leading zeros 
appear in the edited field. 

36 and 37. Asterisk protection and zero suppression are 
indicated for the leftmost position only. The 
asterisk is replaced by a significant digit if one 
occurs in that position. Negative values are not 
identified. 

38. Asterisk protection and zero suppression are 
indicated for the entire field. Asterisks are 
replaced by significant digits. Negative values are 
not identified. 

39 and 40. Blanks replace punctuation and zeros to the 
left of the first significant digit. The decimal point 
is lost when there are fewer than three significant 
digits. The CR symbol is printed for an all-zero 
negative field; the constants NET and -NET 
always appear in the edited field. 

41. The ampersand, which appears in the edited field 
as a blank, makes it possible to keep the dollar 
sign fixed while limiting zero suppression to the 
minimum one position. All punctuation is retained 
regardless of the number of leading zeros because 
the zero in the edit word is placed to the left of 
the first comma. 



9-34 Output Specifications 



Edit Word 

45 16 47 48 49 50 61 52 53 54 55 66 57 58 69 60 61 62 63 64 65 66 67 68 69 70 


Example 
Number 


Source Data 


Appears in Output Record as: 


IT 


i 






.1 




G 


j- 


Ac 


R' 














1 


0000000005 - 


mmrnmm. Owen 




j 






j 







-A 


OIU 


HAT 


40 


i 










2 


00000000 


MmMtiMomomHAND 






\ 






1 


h 


$ . 




*' 














3 


0000000005 + 


wmmmno.osti* 




j 








j 


r \ 


to- 


C 


R*> 


(■ 












4 


0034567890 - 


btftf$345,678.90CR** 


7 | 


j 


\ 






> 




<t>- 


T 
















5 


0000000000 


$mmmmm.oo 


III 




> 








j 


* 


• 


fr^ 


KG 


R 





S 


S 1 




6 


1234567890- 


$fci12,345,678.90tzS-tfGROSS 






) 






t 




• 


- 


v * 














7 


00000000123- 


titttftttftftftftfB1.23- 




> 






j 






• 


CR 


i 














8 


0000000000 - 


tzStzSbSbStzSlzStzStzSb&tzStzSkStzSOR 




} 






> 




* 


• 


r*- 


I 














9 


0000135792 - 


*****1,357.92tf- 


































10 


0000135678 


0000135678 


































11 


0000135678 + 


0000135678 


































12 


0000135678- 


000013567Q 


t 
































13 


0000000000 


bbBtibbtibby 


































14 


0000135678 + 


mm 135678 


































15 


0000135678- 


bSbSbSbS135678 














f 


6 l 


















16 


0000135678- 


bbtfbl 35678 


T* 
































17 


0000135678 + 


b0001 35678 
















£c 


u* 


ET 


i 












18 


0000135678 + 


bSbSbSbSl 35678t6bSbStzSNET 


T 














At 


R*N 


ET 


i 












19 


0000135678- 


bSb4b4tzSl35678lziCRbiNET 
















«- 


AAN 


ET 


i 












20 


0000135678- 


bibSbSlzi135678t6-b5b4NET 
















M 


6T* 


Sr 


i 












21 


0000135678 


bSbibbM35678bSNETbibSb4 
















AM 


ETd; 


r,R 


i 












22 


0000135678- 


feib4lzibi135678bSNETbSCR 
















Aft 


PRO 


FI1 


[' 












23 


0000135678 


b5fc5bSbS135678bSfeSPROFIT 


T T l 








i 




A 


-*N 


ET 


1 












24 


0000135678 + 


$bibSb4b4135678t6b5biNET 










! 




A 


-AN 


ET 


i 












25 


0000135678- 


SblbibSbS135678t4-biNET 


M 








i 






«NE 


T* 














26 


0000135678 


tf$000135678MNET 












J 


tt 


A 


CR r 














27 


0000135678- 


bSbSbSbS$135678bCR 












\ 


6 


J 


CR 1 
















28 


1234567809- 


$1234567809tfCR 
















h 


*T0 


TAl 


i 












29 


0000000000 - 


mmmmtim-tiTOTAL 














« 


$A- 


no 


TAI 














30 


0000000000 - 


ttmmmmm-tiTOTAL 


]I 












& 


A 


CRA 


fiRt 


>S 


5 


i 








31 


0000000000 + 


$mmmmoommG ross 












i 


<t 


L t 


CRA 


SW 


)S 


S 


r 








32 


0000000000 - 


tftib(titftibitf$00tfCRtfG ROSS 














i 


d ? 


















33 


0000000000 - 


mmmmm$ 



Figure 9-22 (Part 1 of 2). Example of Edit Words 



Columns 45-70 (Constant or Edit Word) 9-35 



Edit Word 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 


Example 
Number 


Source Data 


Appears in Output Record as: 
















* 


* 


C 


R 


i 




















34 


0000000000 - 


*t****»*»*|/np 














X 




j 


C 


R 


i 




















35 


0000000000 - 


******** O Q0 CR 


T 


£ 














1 


























36 


0000135678- 


*0001 35678 




K 














1 


























37 


1234567890 + 


1234567890 
















* 


1 


























38 


0000135678- 


****135678 








> 




j 


i 




• 






( 


C 


Rf 


ll\ 


^ 


T 


I 








39 


0000135678- 


000001,356.780CR00NET 






i 








t 




• 






A 


C 


Rr 1 


H 


^E 


T 


1 








40 


0000135678 


000001, 356.780000-NET 




♦ 


ft 


J 


; 




i 








• 






Al 


1E 1 


r f 












41 


0000135678 + 


$000,001, 356. 780NET 








j 






j i 


rtf 




• 






I 


Hi 


=T 


f 












42 


0000000005 


m\6mmm$o.o5mET 








t 






j 




* 


• 






1 


















43 


0000000005 


000bbb00bb$.o5 














j 


J 


* 


• 






- 


i 
















44 


1234567890- 


$12,345,678.90- 








i 






f 


§ 


^ 


• 






c 


R' 
















45 


0001356789- 


0000$13,567.89CR 






i 


» 




j 




* 


• 






* 


c 


R* 


t* 














46 


0000135678 + 


***** 1,356,78000** 








^ 




( 


i- 




« 


C 


R 


* 


1 


















47 


00000000 - 


0000000.OO0CR* 






j 


» 




j 


i 


X 


• 








1 


















48 


0000000000 - 


#****#*#** fX|-> 








t 




*i 


h 






• 






- 


Sf 


tt.t 


=s 


1 










49 


0000001234 


000000$,O12.340SALES 




^ 


i 




j 




i 






£ 


• 






Cf 


A 














50 


1234567890- 


$012,345,678.9OCR 






> 






> 




i 








- 





LI 


>*f 


JrX 


L 


N 


C 


E 


i 


51 


1234567890- 


1,234,567,89O-OLD0BALNCE 






j 






/ 




> 









- 





LI 


)M 


3A 


L 


w 


C 


E 


i 


52 


0000000000 + 


000000000000O0OLD0BALNCE 






i 






/ 






1) 





L 


L 


A 


RS 


• 


4 


e 


t^T 


S 


i 


53 


0000135678 


000001,356DOLLARS78CENTS 






i 






D< 


>LL 


.A 


R 


S 






c 


et 


v' 


r 










54 


000000 + 


00000000000000CENTS 






j 


6 




DC 


>U 


.A 


R 


S 






C 


El 


at 


1* 


c 


R 


i 






55 


000000 


0000ODOLLARSOO00000000 






( 


I 


L 


Q|S 


rd 


& 




C 


2 


» 


T 


Af 


to 




T 










56 


000002 + 


000OLBS.0O2000000000 








* 


L 




>• 







2 


• 


T 






h- 


* 1 










57 


000002 - 


0000LBS.O2OZ.TARE0- 


T 


4 








1 








T 






















58 


095140036 


095-14-0036 


T 


Of 


r 


IR 


s 


• 


P 


It 


N 


s 


• 


J? 





1 1 


Cl 


-0 


c 


ft 


I 






59 


0042 


0OHRS.42MINS.0O'CLOCK 






j 







• 


i 






























60 


000000 


00000.00 






j 






•< 


«■ ' 




























61 


000000 


00000000 






,> 




$ 


*l 


I 


• 






1 




















62 


00123456 


0001 $,234.56 






j 






i 


c 


» 


* 






i 
















63 


0000000000 


0000000000*00 







t 






A 





i 












1 






' 1 

j 1 






64 


001234 


0,012,034 






i 


> 




* 


; 




* 






i 
















65 


0000001234 


■*■ -H- ■)(■ -X- # ■$(■ f^ *| O "*" O ^ 




t 


i 


X 




fr 






i 
























66 


013579 


***130,579 














I 


2L 


A 


T 


E 


R 


i 
















67 


093066 


09-3O-660LATER 






I 


\ 




5 


I 


ll. 


A 


T 


E 


R 




















68 


093066 


0903O0660LATER 






/ 


f 




1 
































69 


100166 


10/01/66 






; 






j 




• 






- 


i 




















70 


000000015- 


000000000015- 






i 






i 





• 








1 




















71 


000000005 


000000000.050 



Figure 9-22 (Part 2 of 2). Example of Edit Words 



9-36 Output Specifications 



42 through 45. The floating dollar sign is placed so that 
at least the decimal point is retained regardless of 
the number of leading zeros. The extra position 
appears in the leftmost position of the edit word 
to allow for the floating dollar sign. 

46. Asterisk protection and zero suppression occur up 
to the decimal point. The decimal point is retained 
regardless of the number of leading zeros. 
Asterisks replace punctuation when leading zeros 
are suppressed. The second asterisk appears only 
when the edited data field is negative; the third 
and fourth asterisks always appear in the edited 
field. 

47. This example shows a standard programming 
technique for retaining the decimal point while 
suppressing all leading zeros. The edited data 
shown is a minus zero value. 

48. Asterisk protection and zero suppression occur up 
to the decimal point. The decimal point is retained 
regardless of the number of leading zeros. A 
minus sign appears in the edited data if the field is 
negative. 

49. A constant (in this case, a comma) follows the 
dollar sign in the edited data if the floating dollar 
sign and the zero suppression immediately 
precede a constant. This occurs if there is a 
number of leading zeros. The comma following a 
dollar sign looks awkward; however, a decimal 
point following the dollar sign does not (see 
example 43). 

50. A space can be inserted between a fixed dollar 
sign and the first data digit when all digits in the 
field are significant. An ampersand in an edit 
word appears as a space in the edited data field. 

51. In this quantity field, all leading zeros, including 
the units position, are suppressed (compare with 
example 52). 

52. A single zero is shown in the edited data field 
when the data field contains only zeros. 

53 through 57. Constants in the edit word are handled 
the same as punctuation marks. That is, only 
constants to the right of the first significant digit 
or the zero suppression appear in the edited 
data. Examples 55 and 56 show how more edit 
word constants, other than the CR or minus, can 
appear as blanks in a positive field. Examples 55 
through 57 also show the effect that the position 
of the zero suppression has on constants. In 
example 56, an ampersand placed after the first 
constant provides a space following that constant 
in the edited data. 



58. A hyphen (-) is used within the edit word to edit a 
social security number. In this example, the initial 
zero is suppressed. However, to include the initial 
zero in the edited data, leave an extra position in 
the edit word. See the note under Editing 
Considerations for a discussion of this exception. 

59. Several constants can be used in an edit word. 

60 and 61. This example shows the effect that the 
position of the zero suppression has on the 
decimal point (or any other constants) and 
following zeros. 

62. This example shows that a dollar sign separated 
from the zero suppression 0, even if only by a 
comma, is not a floating dollar sign, but a 
constant. 

63 through 66. Any zero or asterisk to the right of the 
high-order zero or asterisk is a constant, not a 
zero suppression or asterisk- protection symbol. 
Examples 65 and 66 also show that asterisk 
protection replaces not only blanks but also other 
constants to the left of the first significant digit. 

67 through 69. These are three examples of editing a 
date field. Since month numbers have at most one 
leading zero, it is not necessary to specify a zero 
suppression 0. Example 68 shows the use of an 
ampersand to retain a blank space in the edited 
data. 

70. This example shows what happens to the decimal 
point when no zero suppression is specified for 
a field that has fewer than three significant digits. 
This applies if the field is more than three digits 
long. 

71. This example shows how to retain the decimal 
point in a data field that has fewer than three 
significant digits. This applies if the field is more 
than three digits long. 



COLUMNS 71-74 

Columns 71 through 74 are not used. Leave them blank. 

COLUMNS 75-80 (PROGRAM IDENTIFICATION) 

See Common Entries in Chapter 1. 



Columns 45-70 (Constant or Edit Word) 9-37 



9-38 Output Specifications 



Chapter 10. Operation Codes 



The RPG II language allows you to perform many 
different types of operations on your data. Operation 
codes, which are entered on the calculation 
specifications, indicate the operation to be performed. 
Usually these codes are abbreviations of the name of 
the operation. 

Many operation codes can be placed into categories. 
The first part of this chapter includes general 
information about these categories. The latter part of 
the chapter describes each operation code in 
alphabetical order and shows one or more examples for 
most of the operations. Figure 10-1 is a summary of 
the specifications for each operation code. 



Operation Codes 10-1 



Operation 
Code 


Control Level 
Indicators 


Conditioning 
Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


Columns 


Columns 


7-8 


9-17 


54-55 


56-57 


58-59 


ACQ 








R 


R 











ADD 











R 


R 











BEGSR 


SR or blank 




R 












BITOF 










R 


R 








BITON 










R 


R 








CHAIN 








R 


R 











COMP 








R 


R 




O 3 


o 3 


o 3 


DEBUG 











R 











DIV 











R 


R 











ENDSR 


SR or blank 


















EXCPT 




















EXIT 










R 










EXSR 










R 










FORCE 









R 










GOTO 










R 










KEYnn 1 













R 











LOKUP 

(Array) 








R 


R 




O 4 


o 4 


o 4 


LOKUP 
(Table) 








R 


R 





4 


o 4 


o 4 


MHHZO 










R 


R 


I 




MHLZO 










R 


R 








MLHZO 










R 


R 




j 


MLLZO 










R 


R 




i 



Figure 10-1 (Part 1 of 2). Summary of Operation Code Specifications 



10-2 Operation Codes 



Control Level Conditioning 
1 Indicators Indicators 








Resulting Indicators 


n ^. Columns 


i Result 
Factor 1 Factor 2 Field 


Columns 


Code 7-8 9-17 


54-55 


56-57 


58-59 


MOVE , 





R R 








MOVEA ! 


R ! R 




! 


MOVEL JO iO 





R R 








MULT ,0 


R 


R 











! ! ■ 
MVR 


R 








NEXT ' R ' R 









POST i ' . R , R 









READ ; | R 




o 2 





REL , R JR 











RLABL ' : i 


R 








SETnn 1 | 
















SETOF ,0 |0 j 




O 3 


o 3 


o 3 


SETON , ! 


o 3 


o 3 


o 3 


SETLL i 


r ir ■ ; 






SHTDN JO 


I 

! iR 






SORTA ;0 JO 


,R 










SORT 


!r 


R 




SUB !o 


R 


R 





1 : 

TAG ; [ : R ' : 




TESTB :' i R R O 3 i O 3 


o 3 


TESTZ 


| R 


o 3 


o 3 


o 3 


TIME ;0 ! 1 |R 






XFOOT |0 


R j R 








Z-ADD |0 lo 


R 


R 





I 
lo 


Z-SUB jO 


R R 











The nn entries in columns 31 and 32 are for message indicator numbers. If the result field of a SET 

operation contains the keyword ERASE, factor 2 must contain the name of the CONSOLE file. 

Otherwise, factor 2 and the result field must be blank. 
2 Columns 56 and 57 can contain an indicator when the READ operation is used with a WORKSTN 

device. 

3 At least one resulting indicator must be specified in columns 54 through 59. 
4 At least one resulting indicator must be specified in columns 54 through 59, but no more than two can 

be used. 



Fields without entries must be blank. 

= Optional 
R = Required 

SR = The only allowable nonblank characters in columns 7 and 8 for the BEGSR and ENDSR operation 
codes. 

Figure 10-1 (Part 2 of 2). Summary of Operation Code Specifications 



Operation Codes 10-3 



ARITHMETIC OPERATIONS 



MOVE OPERATIONS 



Arithmetic operations can be performed only on numeric 
fields or literals. The result field must also be numeric. 
Decimal alignment is performed for all arithmetic 
operations. Even though truncation can occur, the 
position of the decimal point in the result field is not 
affected. For arithmetic operations in which all three 
fields are used: 

• Factor 1, factor 2, and the result field can be three 
different fields. 

• Factor 1, factor 2, and the result field can all be the 
same field. 



Move operations (MOVE and MOVEL) transfer all or part 
of factor 2 to the result field. Factor 2 remains 
unchanged. Factor 1 must be blank, and no resulting 
indicators can be specified in columns 54 through 59. 

The move operations can be used to change numeric 
fields to alphameric fields and alphameric fields to 
numeric fields. To change a numeric field to an 
alphameric field, enter the name of the numeric field in 
factor 2 and specify an alphameric result field. To 
change an alphameric field to a numeric field, enter the 
name of the alphameric field in factor 2 and specify a 
numeric result field. 



• Factor 1 and factor 2 can be the same field but 
different from the result field. 

• Either factor 1 or factor 2 can be the same as the 
result field. 

The length of any field specified in an arithmetic 
operation cannot exceed 15 characters. If the result 
exceeds 15 characters, characters are dropped from 
either or both ends depending on the location of the 
decimal point. The results of all operations are signed 
(+ or -). Any data placed in the result field replaces the 
data that was there previously. 



When an alphameric field is moved into a numeric result 
field, the digit portion of each character is converted to 
its corresponding numeric character and then moved to 
the result field. Blanks are transferred as zeros. For the 
MOVE operation, the zone portion of the rightmost 
alphameric character is converted to its corresponding 
sign and is moved to the rightmost position of the 
numeric field where it becomes the sign of the field. For 
the MOVEL operation, the zone portion of the rightmost 
character of factor 2 is converted and used as the sign 
of the result field whether or not the rightmost character 
is included in the move operation. 

When move operations are specified to move data into 
numeric fields, the decimal positions specified for the 
factor 2 field are ignored. For example, if the data 1.00 
is moved into a numeric field with one decimal position, 
the result is 10.0. 



10-4 Operation Codes 



MOVE ZONE OPERATIONS 



SETON AND SETOF OPERATIONS 



The move zone operations move only the zone portion 
of a character. 

A minus (-) sign in a move zone operation does not 
yield a negative character in the result field because a 
minus sign is represented by a hex 60 internally and a D 
zone is required for a negative character. Characters J 
through R have D zones and can be used to obtain a 
negative value (J = hex D1, ..., R = hex D9). 

Note: Whenever the word high is used in a move zone 
operation, the field involved must be alphameric; 
whenever low is used, the field involved can be either 
alphameric or numeric. 



COMPARE AND TESTING OPERATIONS 

The compare and testing operations test fields for 
certain conditions. Resulting indicators assigned in 
columns 54 through 59 turn on according to the results 
of the operation. No fields are changed by these 
operations. 



BIT OPERATIONS 

The three operation codes BITON, BITOF, and TESTB 
set and test individual bits. Use the individual bits as 
switches in a program in order to save storage for 
binary type switches. 



The operation codes SETON and SETOF turn indicators 
on or off. Any indicator to be turned on or off is 
specified in columns 54 through 59. The headings for 
these columns (plus or high, minus or low, zero or 
equal) have no meaning in these operations. When 
setting indicators, remember: 

• The following indicators cannot be turned on by the 
SETON operation: 1P, MR, L0, KA through KN, KP 
through KY. 

• The following indicators cannot be turned off by the 
SETOF operation: 1P, MR, L0, and LR. 

• If the LR indicator is turned on by a SETON operation 
that is conditioned by a control level indicator 
(columns 7 and 8 of the calculation specifications), 
processing stops after all total output operations are 
finished. If it is turned on by a SETON operation at 
detail time (not conditioned by a control level 
indicator in columns 7 and 8), processing stops after 
the next total output operation is completed. 

• If the halt indicators (H1 through H9) are set on and 
not turned off before the detail output operations are 
complete, the system stops. The operator can 
continue processing by responding to the halt for 
every halt indicator that is on. 

• Setting L1 through L9 on or off does not 
automatically set any lower control level indicators. 



When you use the BITON, BITOF, and TESTB 
operations, any field named in factor 2 or result field 
must be a one-position alphameric field. A field is 
considered alphameric if there are no entries in the 
decimal positions column of the input or calculation 
specifications. The field specified as factor 2 or as the 
result field can be an array element if each element in 
the array is a one-position alphameric element. 



Indicators L1 through L9 and the record identifying 
indicators are always turned off after the next detail 
output operations are completed regardless of the 
previous SETON or SETOF operation. 

Whenever a new record is read, record identifying 
indicators (01 through 99) and field indicators are set 
to reflect conditions on the new record. The setting 
from any previous SETON or SETOF operation does 
not apply then. 



If a numeric indicator (01 through 99) is set on and 
not changed in other calculations, it remains on until 
it is set off by another calculation specification. 



Move Zone Operations 10-5 



BRANCHING WITHIN RPG II 



WORKSTN OPERATIONS 



Operations are normally performed in the order in which 
they appear on the calculation specifications. There may 
be times, however, when the operations should be 
performed in a different order, such as: 

• Several operations should be skipped when certain 
conditions occur. 

• Certain operations should be performed for several, 
but not all, record types. 

• Several operations should be repeated. 



SUBROUTINE OPERATIONS 



The operation codes ACQ and REL are used only with 
the WORKSTN file. 

For these operations, the operation code must be 
entered in columns 28 through 32. Factor 1 specifies 
either the name of a 2-character field that contains the 
device identification or a 2-character alphameric literal 
that is the device identification. Factor 2 specifies the 
name of the WORKSTN file for which the operation is 
requested. Columns 56 and 57 can contain a resulting 
indicator, which is set on if an exception/error occurs. 

Note: For WORKSTN files, a device can be either a 
display station or an SSP-ICF session. 



The operation codes BEGSR, ENDSR, and EXSR are 
used only for subroutines. In an RPG II program, a 
subroutine is a group of calculation specification 
statements that can be executed several times in one 
program cycle. A subroutine must be written on the 
calculation specifications after all other calculation 
operations for a program. Subroutine specification lines 
must be identified by SR or blanks in columns 7 and 8; 
therefore, individual operations within a subroutine 
cannot be conditioned by control level indicators in 
columns 7 and 8. Within a subroutine, SR or blanks in 
columns 7 and 8 can be intermixed. 



LINKING TO EXTERNAL SUBROUTINES 

To provide linkage from RPG II to an assembler 
language subroutine, use the EXIT and RLABL 
operations. Control cannot be transferred from one user 
assembler subroutine to another user assembler 
subroutine. The EXIT and RLABL operation codes also 
provide linkage to the IBM-supplied message retrieve 
subroutine (SUBR23). 



PROGRAMMED CONTROL OF INPUT AND OUTPUT 

The normal program cycle can be altered to allow input 
and output operations during calculations. (See RPG II 
Program Cycle in Chapter 1 for a brief description of the 
program cycle.) The following operations provide this 
capability: 

. EXCPT (Exception Output) 

. READ (Read) 

. FORCE (Force) 

. NEXT (Next) 

. CHAIN (Chain) 

. KEY (Key) 

. SET (Set) 

• SETLL (Set Lower Limits) 



Note: User-written subroutines should be placed in 
#LIBRARY or #RPGLIB (the library the RPG compiler 
resides in), not in the same library as the RPG II source 
program. 



10-6 Operation Codes 



Alphabetized Operation Codes 

The following section of this chapter discusses, in 
alphabetical order, individual operation codes. 



ACQ (ACQUIRE) 



BEGSR (BEGIN SUBROUTINE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt: 
SR 


Blank 


Required 


Blank 


Blank 


Blank 


Blank 


Blank 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Required 


Required 


Blank 


Blank 


Optional 


Blank 



The ACQ operation acquires the device specified in 
factor 1 for the program. If the device is available, ACQ 
attaches it to the program. If it is not available or is 
already attached to the program, an error occurs. If an 
indicator is specified in columns 56 and 57, the indicator 
is set on. If no indicator is specified, but the INFSR 
subroutine is specified, the INFSR automatically receives 
control when an exception/error occurs. If no indicator 
or INFSR subroutine is specified, the program halts 
when an exception /error occurs. 

No input or output operation occurs when the ACQ 
operation is executed. 



The BEGSR operation serves as the beginning point of 
the subroutine. Factor 1 must contain the name of the 
subroutine. The control level entry (columns 7 and 8) 
can be SR or remain blank. Columns 9 through 17 must 
not contain any conditioning indicators. The subroutine 
name can be from 1 to 6 characters long and must 
begin in column 18 with an alphabetic character. The 
remaining characters can be any combination of 
alphabetic or numeric characters. However, special 
characters are not allowed and blanks cannot appear 
between characters in the name. 

Every subroutine must have a unique name. This name 
cannot be used as the label of a TAG or ENDSR 
operation. 



ADD (ADD) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Optional 


Required 


Required 


Optional 


Optional 


Optional 



Factor 2 is added to factor 1. The sum is placed in the 
result field. Factor 1 and factor 2 are not changed by 
the operation. If factor 1 is not present, factor 2 is 
added to the result field, and the sum is placed in the 
result field. 



Alphabetized Operation Codes 
ACQ-BEGSR 



10-7 



BITOF (SET BITS OFF) 



BITON (SET BITS ON) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 




In 


dicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The BITOF operation causes bits identified in factor 2 to 
be set off (be set to 0) in the field named as the result 
field. Factor 2 is always a source of bits for the result 
field. The result field is the field in which the bits are 
set off. 



The BITON operation causes bits identified in factor 2 to 
be set on (be set to 1) in the field named as the result 
field. Factor 2 is always a source of bits for the result 
field. The result field is the field in which the bits are 
set on. 



Factor 2 can contain: 



Factor 2 can contain: 



Bit numbers 0-7: From 1 to 8 bits can be set off per 
operation. The bits to be set off are identified by the 
numbers through 7 (0 is the leftmost bit). The bit 
numbers must be enclosed in apostrophes and the 
entry must begin in column 33. For example, to set 
off bits 0, 2, and 5, enter '025' in factor 2. 



Bit numbers 0-7: From 1 to 8 bits can be set on per 
operation. The bits to be set on are identified by the 
numbers through 7 (0 is the leftmost bit). The bit 
numbers must be enclosed in apostrophes and the 
entry must begin in column 33. For example, to set 
on bits 0, 2, and 5, enter '025' in factor 2. 



• Field name: The name of a one-position alphameric 
field, table element, or array element can be specified 
in factor 2. In this case, the bits that are on in the 
field, table element, or array element are set off in 
the result field; bits that are off are not affected. 

See Figure 10-2 for a summary of BITOF operations. 

The operation code BITOF must appear in columns 28 
through 32. Conditioning indicators can be used in 
columns 7 through 17. However, factor 1, decimal 
positions, half-adjust, and the resulting indicator 
columns must be blank. 



• Field name: The name of a one-position alphameric 
field, table element, or array element can be specified 
in factor 2. In this case, the bits that are on in the 
field, table element, or array element are set on in the 
result field; bits that are off are not affected. 

See Figure 10-3 for a summary of BITON operations. 

The operation code BITON must appear in columns 28 
through 32. Conditioning indicators can be used in 
columns 7 through 17. However, factor 1, decimal 
positions, half-adjust, and the resulting indicator 
columns must be blank. 



10-8 Operation Codes 



Calculation Specifications 



And And 



M 20 30 31 32 



33 34 ;^ 36 3 7 33 : 



Arithmetic 
Plus |Mmus| Z^o" 



1 >2|1 <2| 1 = 2 



LookuplFactor 2li 



! i I ■ I I ! ! ! ! i I I ! I ! I M ! 
The following B!TOF operation sets bit 5 off in the field named BITSW. The field is defined 
in the same line with a field length of 1 . 



IL. _ c 



o!4 

0_l_5[_ 
0!6 
7 
0;8_ 
o;9 

TIT 

ml 
l! 2 L 



1 '4l 

OK 

6l 



BlITOF 



BITSVL 



The following operation sets bits 1, 2, 4, and 6 off in the field named BITSW. The one-position 
field has been previously defined. 



BITOF 



x 124-6' 



BITSW. 



The following operation uses a one-position alphameric field as a source of bits. Any bits 
that are on in the field named ALPHA cause corresponding bits to be set off in the field named 
BITSW. If bits 5 and 7 are on in the field named ALPHA, the BITOF operation sets bits 5 and 
7 off in the field named BITSW. 



I ! 



BfiT 



FAL'PHA 



bkS 



! 



±± 



2 1 



2 | 2 ! 
2 1 3 

2 J4 L 
fj_5j_ 

2 1 e ■ 

2 |7 

2 1 8 ; 

2 1 9 

3_il_i_ 
3|2| 

3 | 3 j 
3 1 4 , 
3 I 5 ; 



1 ! 



The following operations use a one-position alphameric array element either as a source of bits 
or as a result field, or both. In the first operation, any bits that are on in the field named 
ALPHA cause corresponding bits to be set off in the array element ARR,NX. 



— i — i — 



e>rmEAi.£H^L 



bote. 



ARR,NX 



Bxmtfi&,m~-i~&& t l2 



m&,m 



BITS is a one-position field containing hex F0 (numeric zero). To change hex F0 to hex 40 
(blank), set bits 0, 2, and 3 off: 



4-4- 



u 



! i I 



HETOE1023 



T 



jte 



To create a hex 1C (dup character) in the one-position field ASTRSK, set all bits off, then 
set on bits 3, 4, and 5. 

a— L 



-H- 







-LX-L. 



M 



& 



ASfflB&K 



8SK 



Figure 10-2. Summary of BITOF Operations 



Alphabetized Operation Codes 10-9 
BITOF 



Calculation Specifications 



And And 



19 20 21 22 23 24 25 26 27 



Operation 



28 29 30 31 32 



33 34 35 36 37 38 39 40 ■ 



J lus |Minus| ; 



>2|l <2[l = 2 



60 61 62 63 64 65 66 67 68 69 



i i I ! I I I I I I I I II I i ' I I I I I ! I ! I ! i I ! i 
The following BITON operation sets bit 4 on in the field named BITS. The field is defined in the 
same line with a field length of 1 . 



B^ 



4xb 



-U- 



OH 



BXTX 



The following operation sets bits 0, 3, 5, and 7 on in the field named BITS. This one-position 
field has been previously defined. 



i 



BiroH^mai 



era 



4-4-4- 



Th e following operation uses a one-position alphameric field as a source of bits. Any bits that are 
on in the field named ALPHA cause corresponding bits to be set on in the field named BITS. 
If bits 5 and 7 are on in the field named ALPHA, the BITON operation sets bits 5 and 7 on in the 
field named BITS. 



BIT 



M 



NALPm 



BUS 



f 



! I I 



Mill 
I I l— : — r- 



— The following operations use a one-position alphameric array element either as a source of bits 
"^ or as a result field, or both. In the first operation, any bits that are on in the array element 
~" ARR,NX cause corresponding bits to be set on in the array element ARE, 12. 



e 



qapftiflfefe', ; : .&bmx 



rrOjNAR^NX, 



ABE42 



Brr^^jH A ; ; ; ■ ft afy j N x 
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Figure 10-3. Summary of BITON Operations 



10-10 Operation Codes 



CHAIN (CHAIN) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 1 Required 


Required 


Blank 


Optional 


Blank 


Blank 



The CHAIN operation causes one record to be read from 
a disk file during calculations. The CHAIN operation can 
be used either to read records randomly from an 
indexed, sequential, or direct file or to load a 
nondelete-capable direct file (for more information on 
nondelete-capable direct file loads, see Direct Files in 
Chapter 3). 

Enter the operation code CHAIN in columns 28 through 
32. Factor 1 defines the relative record number or the 
key of the record to be selected for processing, and 
factor 2 names the chained file from which the record is 
read. This file must be defined by a C entry in column 
16 of the file description specifications. 



If an indicator is not specified in columns 54 and 55 and 
the record is not found, the program halts and an 
operator action is required. When chaining to a file with 
packed record keys, the field specified in factor 1 of the 
CHAIN operation must have a packed length that is the 
same as the length of the key field in the chained file. 
Packed key fields can be up to 8 bytes long. The 
packed field equivalents for zoned decimal fields up to 
15 bytes long are shown in a chart under Packed 
Decimal Format in Chapter 7, Input Specifications. 

Note: If you chain to one or more files during the same 
RPG II cycle, record identifying indicators assigned to 
the chained file or files remain on throughout the cycle if 
the previous chain operations were executed 
successfully. If you chain to the same file more than 
once during an RPG II cycle, only the last record 
processed is updated during output time unless an 
exception output is associated with each chain 
operation. 



Indicators can be used in columns 7 through 17, but 
columns 43 through 53 and 56 through 59 must be 
blank. If the chained file is conditioned by an external 
indicator on the file description specifications, the 
CHAIN statement should be conditioned by the same 
external indicator. 

A maximum of 15 chained and/or demand files is 
allowed per program. 

Columns 54 and 55 should specify an indicator. If the 
record is not found (or, for a direct file load, if the 
record location does not exist in the file), the indicator 
turns on. No update is permitted to a chained update 
file when the specified record is not found; however, 
adding records to a file is allowed. Duplicate records in 
the file are possible after an unsuccessful chain to an 
update-add file if the key field is modified prior to an 
add to the file. 



Random Processing 

To read a record from a sequential or direct file with the 
CHAIN operation, the record must be identified by 
relative record number. To read a record from an 
indexed file with the CHAIN operation, the record must 
be identified by a record key. A field can be specified to 
contain the relative record number or record key. 

If the record has been deleted from the file, the 
no-record-found indicator is turned on. If the no-record 
found indicator is not specified, a message is displayed. 

Factor 1 must contain a relative record number or record 
key, or the name of a field that contains a relative 
record number or record key. Factor 2 must contain the 
name of the file from which the record is read. 

Figure 10-4 shows an example of chaining to and 
updating an indexed file. 



Alphabetized Operation Codes 
CHAIN 



10-11 



File Description Specifications 



9 10 11 12 13 



Block 
Length 



20 21 22 23 



"nsr 



Record 

Length 



24 25 26 27 



36 



Mode of Processing 



Length of Key Field 
of Record Address F 



Record Address Type 



Typeot File 
Organization 
„or Additional Area 



Key Field 
Starting 

Location 






Symbolic 
Device 



I 49 50 51 52 



Name of 
Label Exit 



Extent Exit 
for DAM 



Storage Index 



Continuation Lir 



54 55 56 57 58 59 



60 61 62 63 64 65 



File Addition/Unordered 



Number of Tracks 
for Cylinder Overflo 



Number of Extents 
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RECIN file consists of records sorted by item number, with 
each record containing a quantity ordered. 
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Record Identification Codes 
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ITEMNO is used as a control field. When all the quantities 
for one item number are added, a control break occurs. The 
CHAIN operation then uses ITEMNO to find the master 



record and update it. If it is not found, a SET operation 
displays the item number on the screen. Indicator 20 
turns on if the record is not found. 



Calculation Specifications 
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If the master record is found, the total quantity for the 
item number is subtracted from the quantity on hand. 



After the total calculations, the QOH field in the master 
record is updated. 



Output Specifications 



7 8 9 10 11 12 13 



Output Indicators 



And And 



30J31 
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Figure 10-4. CHAIN Operation 

10-12 Operation Codes 



COMP (COMPARE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 1 56-57 


58-59 


Opt 


Opt 


Required 


Required 


Blank 


1 required 



[CiCiC^ ,C |C, 



I C ! C ! c ,c t c t c i 



Equal length 
alphameric fields 



The COMP operation compares factor 1 with factor 2. 
As a result of the compare, indicators turn on as 
follows: 

High Factor 1 is greater than factor 2. 

Low Factor 1 is less than factor 2. 

Equal Factor 1 equals factor 2. 

Factor 1 and factor 2 must be both alphameric or both 
numeric. 



i c i c i c i c i c i c i \ 

I Unequal length 

r alphameric fields 

,C,C,C|b|b,b, J 

Figure 10-5. Comparison of Alphameric Fields 



1,5,6,7,9,5, 



.2,1,0,5,7,6, 



Equal length 
numeric fields 



At least one resulting indicator must be specified in 
positions 54 through 59. 

The fields are automatically aligned before they are 
compared. If the fields are alphameric, they are aligned 
to their leftmost character. If one is shorter, the unused 
positions are filled with blanks (see Figure 10-5). The 
maximum field length for alphameric fields to be 
compared is 256 characters. 

If the fields to be compared are numeric, they are 
aligned according to the decimal point. Any missing 
digits are filled with zeros (see Figure 10-6). The 
maximum field length for numeric fields to be compared 
is 15 digits. 

If an alternate collating sequence is specified, 
alphameric fields are compared according to the 
alternate sequence. 

Figure 10-7 shows some examples of specifications for 
compare operations. 



.0|0| 1 .7,5,6, 



2,5,4,3,2,0 



Unequal length 
numeric fields 



,.* , t |J ,* ,U , J 

Figure 10-6. Comparison of Numeric Fields 



Alphabetized Operation Codes 10-13 
COMP 



Calculation Specifications 



And And 



18 19 20 21 22 23 24 25 26 27 



28 29 30 31 32 



33 34 35 36 37 38 39 40 41 42 



43 44 45 46 47 



Length 



Resulting 
Indicators 



Plus |Minus| ZeK> 



1 >2|i <2|i •; 



High Low Equal 
54 55 56 57 58 59 
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5L5II 



COMP 
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MG>NTH 



iai315 



125g 
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MMM 
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£Q$P 



tiEIPfti 



£QMP 
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The contents of the field SLS77 (1977 sales) are compared 
with the contents of SLS78. If 1977 sales exceed 1978 
sales, resulting indicator 21 turns on; if they are less, indi- 
cator 26 turns on; if the two years had equal sales, indica- 
tor 30 turns on. 

The alphameric constant OCTOBER is compared with the 
contents of the field named MONTH, which must also be 
defined as alphameric. If the MONTH field does not con- 
tain the word OCTOBER, indicator 13 turns on; if it does, 
indicator 15 turns on. 

The contents of the field named GRSPAY, which must be 
defined as numeric, are decimal-aligned with numeric 
constant 1250.00. If the value in field GRSPAY is greater 
than or equal to 1250.00, indicator 04 turns on; if its 
value is less than 1250.00, indicator 05 turns on. 

The contents of the field NETPAY, which must be defined 
as numeric, are decimal-aligned with numeric constant 
and then compared to it. If NETPAY is greater than zero, 
indicator H1 remains off; however if NETPAY is zero or 
negative, indicator H1 turns on. 



Figure 10-7. Compare Operations 



10-14 Operation Codes 



DEBUG (DEBUG) 



Records Written for DEBUG 



Indicators f j i Result 

7-8 9-17 Factor 1 ! Factor 2 I Field 



Resulting Indicators 

_.. . ._ .. _ T . . , .. 

54-55 ! 56-57 1 58-59 



Opt jOpt IQptional | Required |Optional 



For a DEBUG operation, the first record is always 
written and appears in the following format: 



The DEBUG operation is an RPG II function that helps 
you find errors in a program that is not working 
properly. Either one or two records containing 
information helpful for finding programming errors are 
written to an output file as a result of this operation. All 
DEBUG output in a program is written to the same file. 

The DEBUG operation code can be specified at any 
point or at several points in the calculation 
specifications. Whenever the program encounters the 
DEBUG operation, either one or two records are written 
depending upon the specifications entered. The first 
record contains a list of all indicators that are on at the 
time the DEBUG operation was encountered. The 
second record, if specified, shows the contents of the 
field specified in the result field. 

Factor 1 can contain a literal or the name of a field to 
help identify the particular DEBUG operation. The length 
of the specified field can be from 1 to 8 characters. The. 
contents of the field or the literal are written in the first 
record. If factor 1 is not used, the RPG II generated 
statement number of the DEBUG operation code is 
written in the first record. Factor 2 must contain the 
name of an output file on which the lines are written 
and can be any valid output file . The same output 
filename must appear in factor 2 for all DEBUG 
statements in a program. The result field can contain 
the name of a field or array whose contents are to be 
written in the second record. Any valid indicator can be 
used in columns 7 through 17. Columns 49 through 59 
must be blank. 

The DEBUG operation can be used in the calculation 
specifications only if a 1 is entered in column 15 of the 
control specifications. If the control specifications entry 
was not made, the DEBUG operation code and its 
conditioning indicators are treated as a comment. See 
Column 15 (DEBUG) in Chapter 2, Control Specifications, 
for more information. 



Output 
Positions 

1-8 

9-16 



17 



18-32 



Information 



DEBUG- 

Literal or contents of field entered 
in factor 1 (optional) or the 
statement number of the DEBUG 
operation code in the program. 

Blank 

The words INDICATORS ON- 



33-any position The names of all indicators that 
(depending on are on, each separated by a blank, 
length of field) More than one record may be 
needed. 

The second record is written only when an entry is 
made in the result field. The record is written in the 
following format: 



Output 
Positions 

1-14 



Information 



The words FIELD VALUE- 



15-any position The contents of the result field 
(depending on (up to 256 characters). If the 
length of field) result field is an array, more than 

one output record may be needed 

to contain the array. 



Alphabetized Operation Codes 
DEBUG 
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DIV (DIVIDE) 



EXCPT (EXCEPTION OUTPUT) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 




Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Optional 


Required 


Required 


Optional 


Optional 


Optional 


Opt 


Opt 


Blank 


Blank 


Blank 


Blank 


Blank 


Blank 



Factor 1 (dividend) is divided by factor 2 (divisor). The 
quotient (result) is placed in the result field. Factor 1 
and factor 2 are not changed. If factor 1 is 0, the result 
of the divide operation is 0. Factor 2 cannot be 0. If it 
is, the job stops immediately. The operator can continue 
processing, however, by responding to the halt. When 
processing is continued, the result and remainder are set 
to 0. If factor 1 is not present, the result field is divided 
by factor 2, and the quotient is placed in the result field. 

Any remainder resulting from the divide operation is lost 
unless the move remainder (MVR) operation is specified 
as the next operation. If move remainder is the next 
operation, the result of the divide operation cannot be 
half-adjusted (rounded). 



ENDSR (END SUBROUTINE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt: 
SR 


Blank 


Optional 


Optional 


Blank 


Blank 


Blank 


Blank 



The EXCPT operation allows records to be written 
during calculations. Use the EXCPT operation primarily 
to write a variable number of similar or identical records 
(either detail or total) in one program cycle. (Normally 
only the exact number of records specified by the output 
specifications are written in one program cycle.) For 
example, EXCPT can be used to produce a variable 
number of identical mailing labels, to write out contents 
of a table, or to produce a number of records having the 
same information. 

To use this operation, enter EXCPT in columns 28 
through 32. Indicators can be used in columns 7 
through 17; however, all other columns must be blank. 
The lines that are to be written during calculation time 
are indicated by an E in column 15 of the output 
specifications. Figure 10-8 shows the use of the EXCPT 
operation to produce a variable number of identical 
records on a printer file. 



The ENDSR operation defines the end of the subroutine; 
therefore, it must be the last statement in the 
subroutine. Factor 1 can contain a name that can be 
used as a point to which a GOTO operation within the 
subroutine can branch. The control level entry (columns 
7 and 8) can be SR or remain blank. Columns 9 through 
17 must not contain any conditioning indicators. 

The ENDSR operation ends the subroutine and 
automatically causes a branch back to the statement 
that follows the EXSR operation unless the subroutine is 
the INFSR (exception /error processing) subroutine. For 
the INFSR subroutine, an optional factor 2 entry on the 
ENDSR operation specifies the return point for the 
subroutine. The valid entries for factor 2 for the INFSR 
subroutine are described in Chapter 13 under WORKSTN 
Exception /Error Handling. For all other subroutines, 
factor 2 must not contain an entry. 
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Records in the input file have two fields, NAME and 
COUNT. The NAME field is to be entered into a certain 
number of records. That number is indicated in the 
COUNT field. 

The first calculation line compares COUNT to zero. If 
COUNT is equal to zero, indicator 02 turns on and the 
GOTO operation skips further calculations. If the 
COUNT field is one or more, the EXCPT operation is 
performed, and the exception record indicated by the E 
in column 15 of the output specifications sheet is printed. 



The field CONSEC keeps track of the number of records 
printed. Each time an exception record is printed, one 
is added to CONSEC. CONSEC is then compared with 
COUNT, the field that tells how many records should be 
printed. If they are not equal (indicator 20 is not on), a 
branch is taken back to DOAGIN. Another record is 
printed. One is added to CONSEC, and CONSEC is 
compared to COUNT. If these fields are equal, another 
input record is read. If not, the same operations are done 
again. Whenever CONSEC equals COUNT, enough records 
are printed. CONSEC is then subtracted from itself, making 
it zero. This last operation is necessary so that an accurate 
count can be kept for the next record. 



Figure 10-8. EXCPT Operation that Produces a Variable Number of Identical Records 
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The EXIT operation designates the point in the 
calculation specifications when control is to be 
transferred from RPG II to an assembler language 
subroutine. 

The rules for use of the EXIT operation on the 
calculation specifications are as follows: 



Columns 

Operation 
(28-32) 

Factor 1 
(18-27) 

Factor 2 
(33-42) 



Entry 



EXIT 



Blank 



The name of the subroutine to 
which control is to be passed. The 
name must consist of 5 or 6 
characters, the first 4 of which 
are SUBR. The remaining char- 
acters must be alphabetic for 
user-written subroutines. (Numeric 
characters are reserved for IBM- 
supplied subroutines.) The module 
name and entry point name must 
be the same. 



To specify linkage to a non-l/O subroutine for a 
SPECIAL file, use the EXIT operation. You must keep 
track of the EXIT that is taken because index register 2 
does not point to the DTF on an EXIT operation. 

Note: The maximum number of user-written assembler 
subroutines that can be used in a program is 2256. 



Position 


Execution of Subroutine 



First detail line in Immediately following data 

calculation specifications routine file, that is, after 

data is extracted from 

input record 



Last detail line in calcu- 
lation specifications 

First total line in calcu- 
lation specifications 



Immediately before heading 
records output time 

Immediately following input 
routine (after determination of 
record type and testing for 
control level break) 



Last total line in Immediately before total 

calculation specifications records output time 



Any other detail/total 
line in calculation 
specifications 



Immediately following the 
previous calculation opera- 
tion 



Figure 10-9. Relationship between Position of EXIT 
Operation and Execution of Subroutine 



Result field 
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Blank 



Resulting 
indicators 
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The EXIT operation can be controlled by a control level 
indicator (columns 7 and 8) and conditioning indicators 
(columns 9 through 17). If no control level indicator is 
used, the EXIT operation occurs at detail calculation 
time. 

The position of the EXIT operation in the calculation 
specifications of the RPG II program determines when 
the actual subroutine execution occurs (see Figure 
10-9). 
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The EXSR operation causes the subroutine named in 
factor 2 to be executed. The EXSR operation can 
appear anywhere in the program. Whenever it appears, 
the subroutine is executed. After operations in the 
subroutine are performed, the operation in the line 
following the EXSR operation is performed. 



The FORCE operation allows selection of the file from 
which the next record is to be read. The FORCE 
operation can be used for primary or secondary input 
and update files; however, it cannot be used to read 
from files assigned to a KEYBORD or WORKSTN 
device. 



The EXSR operation can be conditioned by any 
indicators; thus, the subroutine is executed only when all 
conditions are satisfied. Any valid indicator can be used 
in columns 7 through 17. If no indicators are used, the 
subroutine is always executed. 

Factor 2 must contain the name of the subroutine that is 
to be executed. This name must appear on a BEGSR 
operation. 



Coding Subroutines 



Factor 2 in a FORCE statement identifies the file from 
which the next record is to be selected. If the statement 
is executed, the record is read at the start of the next 
program cycle. If more than one FORCE statement is 
executed during the same program cycle, all but the last 
is ignored. FORCE should not be specified at total time. 

FORCE statements override the multifile processing 
method by which the program normally selects records. 
However, the first record to be processed is always 
selected by the normal method. The remaining records 
can be selected by FORCE statements. 



All RPG II operations can be performed within a 
subroutine, and these operations can be conditioned by 
any valid indicators in columns 9 through 17. Because 
SR or blanks must appear in columns 7 and 8, control 
level indicators cannot be used in these columns. 
However, AND/OR lines within the subroutine can be 
indicated in columns 7 and 8. 



Figure 10-11 shows how the FORCE operation can be 
used to control input from primary and secondary files. 



Fields used in a subroutine can be defined either in the 
subroutine or in the main program. In either instance, 
the fields can be used by both the main program and 
the subroutine. 

Any number of subroutines can be included in a 
program; however, a subroutine cannot contain another 
subroutine. One subroutine can call another subroutine; 
that is, a subroutine can contain an EXSR operation 
code. However, a subroutine cannot call itself. 

Subroutines do not have to be specified in the order 
they are used. Each subroutine must have a unique 
name and contain a BEGSR and ENDSR operation. 

See Figure 10-10 for an example of coding a 
subroutine. 
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Figure 10-10. Example of Coding Subroutines 
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File Description Specifications 




The NBR field of each primary record contains the number 
of secondary records to be read and written after each pri- 
mary record is read. If NBR is less than or equal to zero, a 
halt occurs. No primary or secondary records are read. Pro- 
cessing begins with the next primary record according to 
normal selection. 



— 'input Specifications 




If NBR is greater than zero, the field is reduced by 1 and 
tested (line 02 of the calculation specifications). If the 
result is not negative, the FORCE operation calls for input 
on the next program cycle from the secondary file. The 
primary record is written, and secondary records are read 
and written until NBR is negative (indicator 03 is on). 
The FORCE operation in line 04 then calls for input on the 
next primary file. 
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Figure 10-11. Example of FORCE Operation Controlling Input 
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The GOTO operation allows operations to be skipped by 
instructing the program to go to (or branch to) another 
operation. A GOTO operation can be used to specify a 
branch: 

• To a previous or a succeeding specification line 

• From a detail calculation line to another detail 
calculation line 

• From a total calculation line to another total 
calculation line 

However, a branch cannot be made from a detail 
calculation line to a total calculation line or vice versa. 
Neither can a branch be made from calculations 
conditioned by LO through L9 to calculations conditioned 
by LR or vice versa. (A total calculation line is defined 
as one that is conditioned by a control level indicator in 
columns 7 and 8 of the calculation specifications.) 



Factor 2 must contain the name of the label to which 
the program is to branch. This label is entered in factor 
1 of a TAG operation. If the GOTO is within the 
subroutine, the label can be specified on the ENDSR 
statement in factor 1 . The label can be from 1 to 6 
characters long and must begin in column 33 with an 
alphabetic character. The remaining characters can be 
any combination of alphabetic or numeric characters. 
Blanks must not appear between characters in the label. 

Factor 1 and the result field are not used in this 
operation. The GOTO operation can be conditioned by 
any indicators. If no indicators are specified, the 
operation is always done. 

See Figures 10-12 and 10-13 for examples of the 
GOTO operation. 



10-22 Operation Codes 



Calculation Specifications 





c 






-■ 




Indicators 
















































Result Field 


X 

< 

X 
53 


Resulting 
Indicators 


































d „ 

r g 
J < 

3 5 

7 8 


1 1 


Factor 1 

7 18 19 20 21 22 23 24 25 26 27 2 


Operation 

8 29 30 31 3 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


i 

o 

52 


Arithmetic 


- Comments 
! 

1 

9 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


3 4 5 


1 

E 

6 


Plus |Minus| Zer 








Compare 


1 >2|1 <2|1 " 


z 

9 


10 1 


1 12 


13 


14 


Z 
15 


16 1 


LookuplFactor 2) 


High 

54 55 


Low 

56 57 


Equ 
58 5 





1 




c 




















l 


i 


E 


L 


& 


A 








i 


SUB 




EIELDB 










I 


IEUDI 






52 








u 





































2 




c 








1( 


I 




























( 


to 


I0_ 


RTN1 















































































3 




c 




















I 


i 


fd 


L 


C 


A 








1 


qu 


LI 


A 




















save 










a 


P. 















































4 




c 






































i 


iG 


10 


RTNi 













































































5 




c 














- 






R 


T 


H 


2 












] 


rA 


6 

























































































6 




c 




































( 







































































7 




c 








































> 


Some calculation 
operations 





































































8 




c 








































) 





































































9 




c 




















R 


T 


N 


1 












i 


rA 


e 




















































































1 







c 








































( 




Some calculation 
operations 


































































1 


1 




c 








































) 




































































1 


2 




c 








































} 




































15 






























1 


3 




c 






u 


l\ 






























( 


M 


T 


0_ 


R 


T 


H 


2 












































































1 


4 




c 






































i 


ri 


s 


12 


i 




















EIELlJC 












26 






26 






























1 


5 




c 








Vi 


i 




























( 


90 


r 





E 


R 


^ 


■ 












































































1 


6 




c 






































f 


tH 


L 


ZC 


:y 


i 


E 


L 


r 


c 










Eli 




















































1 


7 




c 




















d 


N 


n 
















fA 


6 




















































































1 


8 




c 
































































































































1 


9 




c 

































































































































2. 



If the result of the subtraction in line 01 is minus 
(indicator 10 is on), a branch is taken to RTN1 
(routine 1) named by the TAG operation code in 
line 09. Notice that both the GOTO (line 02) and 
TAG (line 09) are not conditioned by control level 
indicators. 

If the branch is not taken in line 02, the multiplica- 
tion in line 03 is performed. Then the branch to 
RTN1 (line 09) must be taken because this branch 
is not conditioned by indicators. 



Operations then go in the order specified again from 
lines 06 through 12. Nothing is done in line 09 be- 
cause TAG gives only a name. These same operations 
are performed again and again until indicator 15 does 
turn on. 

When indicator 15 is on, the branch to RTN2 is not 
taken. The TESTZ operation is then performed. If 
this operation causes indicator 20 to turn on, a 
branch is taken to line 17 (GOTO END). If indicator 
20 is not on, the operation in line 16 is done. 



3. Operations in lines 10 through 12 are then done. 
If the operation in line 12 does not turn indicator 
15 on, a branch is taken backwards to RTN2 
(line 05). 

Figure 10-12. Using GOTO and TAG (Skipping Operations) 
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Assume you want to make eight mailing labels for every 
customer you have. The customer's name and address are 
found on an input record. Because you want to write eight 
labels for each record, you can use exception lines and the 
operation EXCPT instead of coding eight identical output 
line specifications. (See Exception (EXCPT) in this 
chapter for further information.) 



However, by using branching, you can code it all in five 
lines as shown below. An EXCPT line is printed out. 
One is added to COUNT to keep track of how many times 
the line is printed. Then COUNT is compared to 8. If 
COUNT does not equal 8, a branch is taken back to the 
beginning (GOTO DOAGIN). If COUNT equals 8, the 
branch is not taken. Instead, the COUNT field is set to 
zero for the next cycle. 
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Figure 10-13. Using GOTO and TAG to Eliminate Duplicate Coding 
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The KEY operation causes a pause in calculations during 
which the operator can enter data from the keyboard. 
All KEY operations are directed to the display station 
that loaded the program or to the display station 
assigned to the program by the WORKSTN OCL 
statement. 

To use the KEY operation code, the device name 
KEYBORD must be specified in columns 40 through 46 
of the file description specifications. KEY can be used 
only with a KEYBORD input file. As the data is keyed 
by the operator, it is displayed on the screen in one of 
two formats: 



When the KEY operation causes a pause in the 
calculations, the operator can go to the next calculation 
without keying any data for the current calculation. To 
do this, the operator simply presses an entry function 
key, which causes the data in the result field to be 
changed to zeros or blanks. After each KEY operation 
(regardless of whether data is entered), the operator 
must press an entry function key before the next 
operation can be done. See SET (Set) in this chapter 
for the special situation that allows the SET and KEY 
operations to be combined so an entry function key has 
to be pressed only once. 



Specifications for a KEY Operation 

The following specifications are made for a KEY 
operation: 



• If the record length is 40 or less, the display consists 
of six lines, with 40 characters per line, centered both 
vertically and horizontally on the screen. 

• If the record length is greater than 40, the display 
consists of 12 or 24 lines with 79 characters per line 
(1 character is reserved for field attributes). 

When the KEY operation is used, the contents of the 
result field are determined by the operator's response. 
The possible responses are: 

• The operator keys the data and presses an entry 
function key. If not all positions of a field are keyed, 
numeric fields are right-justified and padded to the 
left with zeros; alphameric fields are padded to the 
right with blanks. 



Columns 7-8: Enter any valid control level indicator or 
AN /OR. However, leave these columns blank if the KEY 
operation is not part of a subroutine or if it is to be 
performed only at detail time. 



Columns 9-17: Enter any valid conditioning indicators, 
including command key indicators if they have been 
specified in a SET or SETOF operation. However, leave 
these columns blank if the KEY operation is to be 
performed on every program cycle. 



Columns 18-27: Enter the constant, literal, field name, 
or table or array element to be displayed on the display 
screen. 



The operator presses only an entry function key, 
which causes any data in the result field to be 
changed to zero or blank. 



Columns 28-30: Enter the operation code KEY. 



• The operator presses the Dup key and then an entry 
function key, which does not modify the data in the 
result field. 

Note: The operator can use any one of the following 
four keys as an entry function key: Field Exit, Field-, 
Field+, or Enter/ Rec Adv. However, if data has been 
entered into a numeric field, the Enter/ Rec Adv key 
cannot be used as an entry function key. 
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Columns 31-32: Enter the message identification code 
(MIC) corresponding to the message in the user 
message member file that is to be displayed on the 
display screen. This message prompts the operator to 
perform a KEY operation. Valid entries are 01 through 
99. An entry is required in columns 31 and 32 when 
columns 18 through 27 are blank. If no user message 
member is specified prior to execution with the 
MEMBER statement or if there is no message with the 
associated MIC, the system prompt 'nn-MESSAGE 
INDICATOR' is displayed, where nn is the contents of 
columns 31 and 32. If columns 18 through 27 contain 
an entry by which the keying operation is prompted, the 
contents of columns 31 and 32 are ignored. 



Columns 33-42: Leave these columns blank. 



Columns 43-48: 
keyed. 



Enter the name of the field to be 



Columns 49-51: Enter the length of the keyed field if 
the field specified in columns 43 through 48 is not 
defined elsewhere. The maximum length for a numeric 
field is 15. The maximum length for an alphameric field 
is 40 if the record length is less than or equal to 40, or 
is 79 if the record length is greater than 40. 



Column 52: Leave this column blank for alphameric 
fields. For numeric fields, enter the number of decimal 
positions (0 through 9) in the keyed field if that field is 
not defined elsewhere. 



Column 53: Leave this column blank. 



Columns 54-59: Use these columns to test the condition 
of a numeric field (plus, minus, or zero) or to test an 
alphameric field for blanks (columns 58 and 59). 

Figure 10-14 shows examples of KEY operations. 

The KEY operation is normally used with the SET 
operation. See SET (SET) for further information on this 
topic. 



Using KEY Operations in Subroutines 

Sometimes it is necessary to write a program that has 
the KEY operations performed at several different points 
in the program. Instead of writing these KEY operations 
and related SET operations every time they are needed, 
you can write them just once in a subroutine. Then, call 
the subroutine each time it is needed (see Subroutine 
Operations in this chapter for information on specifying 
and using subroutines). 



User Message Member 

The System /34 system support program product lets 
you create your own message members, which are 
called user message members. These message 
members can contain prompts or informational 
messages to be displayed during your RPG II program. 

For information on creating message members, see 
$MGBLD Utility Program in the System Support 
Reference Manual. The messages contained in user 
message members are displayed when you specify the 
halt indicators (H1 through H9) or the message indicator 
option of the SET and KEY operation codes. The 
messages displayed must be formatted so MIC numbers 
0001 through 0109 are assigned to the specific function 
as follows: 

MIC Function 

0001-0099 Message to be displayed as 
specified by the nn portion 
of the SET and KEY operation 
codes (SETnn, KEYnn, where 
nn = 01 to 99). 

0100 Message to be displayed at the 

end of an RPG II cycle when the 
system is finished processing 
outstanding halt indicators. 

0101-0109 Message to be displayed at the 
end of an RPG II cycle in which 
the system has encountered H1 
through H9 halt indicators 
(0101 through 0109 correspond 
to H1 through H9 respectively). 
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For a message contained in a user message member to 
be displayed, the message text must exist in an object 
message member. The message member must be 
specified in the MEMBER USER1 OCL statement, and 
the SETnn or KEYnn operation or an H1 to H9 indicator 
must be used in the program. (See MEMBER Statement 
in the System Support Reference Manual.) 

Note: The specified user message member remains 
active until the system processes another MEMBER 
statement or the display station session is ended (the 
display station operator signs off). If one of the user 
message members is active (either USER1 or USER2) 
and an execution time error is encountered, you will 
receive a user message rather than the appropriate 
system message (unless you have copied the system 
messages into your user message member). For more 
information on how long a user message member 
remains active, see MEMBER Statement in the System 
Support Reference Manual. 
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Figure 10-14. Possible KEY Operations 
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The first level message corresponding to the H1 to H9 
halt indicators can be described in more detail with an 
associated second level message member with the same 
MIC number. The text of a second level message can 
be up to 225 characters long. Second level messages 
can only be specified with the H1 to H9 halt indicators, 
and a MEMBER USER2 OCL statement must be 
included at execution time. After the halt indicators 
(H1-H9) turn on, all calculations and detail output 
operations are performed for the record before 
processing stops, and a message is issued. If the halt 
indicators (H1-H9) are turned on during LR time, the 
program does not halt processing and continues to 
completion. 

Figure 10-15 shows the coding and OCL statements 
necessary to issue a message. The source member 
(MESG1 for this example) must be loaded into a library 
via the source entry utility or the $MAINT utility. The 
object member message MESG1 must be created prior 
to execution. For information on loading the message 
source member, see Sign-On Procedures in the SEU 
Reference Manual; for information on creating a message 
load member, see the System Support Reference Manual. 
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Messages are received from the system message member be- 
cause no overriding MEMBER statement was specified: 

// LOAD USER 

//RUN 

01-MESSAGE INDICATOR is the text issued as the prompt 
for the KEY operation. If HALT is keyed, the indicator H1 
turns on and the RPG II operator message 0101 RPG II 
INDICATOR H1 IS ON is displayed. If the option is 
selected, message 0100 ALL HALT INDICATORS PRE- 
VIOUSLY DISPLAYED is issued. 

Messages are retrieved from the user-created message mem- 
ber MESG1 specified in the MEMBER statement: 

// LOAD USER 

// MEMBER USER1-MESG1 

// RUN 

Figure 10-15. Issuing a Message 



The prompt KEY HALT TO TERMINATE PROGRAM 
is the text issued for the KEY01 operation. This is the 
contents of the object member loaded into the user 
message member specified by the MEMBER statement. 
Subsequently, the USER 0101 message text that is 
issued when the literal HALT is keyed is HALT HAS 
BEEN ENTERED WITH KEY OP. 

The second message issued, USER 0100, has not been de- 
fined in the user message member; thus it cannot be re- 
trieved, and the message MESSAGE NOT RETRIEVED 
(SEE MSG MANUAL) is issued. 
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Special Combinations of the SET and KEY Operations 

Normally, the operator must press an entry function key 
after each KEY operation or after command keys 
specified in a SET operation are pressed. However, it is 
possible to combine these operations so that the 
operator can press command keys (specified in columns 
54 through 59 of a SET operation), key a field (specified 
in a KEY operation), and only press an entry function 
key once. This is only possible if: 

• The SET operation immediately precedes the KEY 
operation. 

• The SET ?nd KEY operations are conditioned by the 
same indicators (columns 7 through 17). Indicators 
for both operations must be specified in the same 
order. 

• The SET and KEY operations contain the same 
message indicators. If factor 1 is used to display 
messages, then columns 31 and 32 can be blank to 
satisfy this requirement. 

• Factor 1 for the SET and KEY operations can be the 
same, different, or missing from one operation. If 
factor 1 is specified for both the SET and KEY 
operations, the contents of each factor 1 are 
displayed. 

If the data field is numeric, the operator must first press 
the specified command key, key the field, and then 
press the Field Exit, Field +, or Field - key. The 
Enter/Rec Adv key is not allowed as an entry function 
key for a numeric field. For an alphameric field, the 
operator must perform the same sequence of steps if 
the Field Exit or Field + key is pressed. However, if the 
Enter/Rec Adv key is used, the operator can press the 
command key and then key the field, or key the field 
and then press the command key before pressing the 
Enter/Rec Adv key. 
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The LOKUP operation causes a search to be made for a 
particular element in a table or array. The table or array 
is named in factor 2. Factor 1 is the search word (data 
for which you want to find a match in the table or array 
named). Factor 1, the search word, can be: 

• An alphameric or numeric constant 

• A field name 

• An array element 

• A table name 

When a table is named in factor 1, it refers to the 
element of the table last selected in a LOKUP operation, 
not to the whole table. 

Resulting indicators are always used with a LOKUP 
operation. The indicators first specify the type of search 
to be made and then reflect the result of the search. 
The specified indicator turns on only if the search is 
successful. 
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Resulting indicators specify the type of search and 
reflect the result of the search in the following manner: 

• A resulting indicator assigned to equal (columns 58 
and 59) instructs the program to search for an entry 
in the table or array equal to the search word. The 
first equal entry found turns on the indicator assigned 
to equal. 

• An indicator assigned to low (columns 56 and 57) 
instructs the program to locate an entry in the table 
that is nearest to, yet lower in sequence than, the 
search word. The first such entry found turns on the 
indicator assigned to low. 

• The indicator assigned to high (columns 54 and 55) 
instructs the program to find the entry that is nearest 
to, yet higher in sequence than, the search word. The 
first higher entry found turns on the indicator 
assigned to high. 

At least one resulting indicator must be assigned, but no 
more than two can be used. Resulting indicators can be 
assigned to equal and high or to equal and low. The 
program searches for an entry that satisfies either 
condition with equal given precedence; that is, if no 
equal entry is found, the nearest lower or nearest higher 
entry is selected. If resulting indicators are assigned 
both to high and low, the indicator assigned to low is 
ignored. 

When you use the LOKUP operation, remember: 

• The search word and each table or array element 
must have the same length and the same format 
(alphameric or numeric). 

• A search can be made for high, low, high and equal, 
or low and equal only if the table or array is in 
sequence. 

• No resulting indicator turns on if the search is not 
successful. 



LOKUP With One Table 

When searching a single table, factor 1, factor 2, and at 
least one resulting indicator must be specified. 
Conditioning indicators (specified in columns 7 through 
17) can also be used. 

Whenever a table element is found that satisfies the 
type of search being made (equal, high, low), a copy of 
that table element is placed in a special storage area. 
Every time a search is successful, the newly found table 
element is placed in this area, replacing what was there 
before. If the search is not successful, no table element 
is placed in the storage area. Therefore, the contents of 
the area remain the same as before the unsuccessful 
search. 

Resulting indicators reflect the result of the search. If 
the indicator is on, reflecting a successful search, a copy 
of the element searched for is in the special storage 
area. 



LOKUP With Two Tables 

When two related tables are used in a search, only one 
is actually searched (see Figure 10-16). When the 
search condition (high, low, equal) is satisfied, the 
corresponding elements from both tables are placed in 
their respective special storage areas and are made 
available for use. 

Factor 1 must contain the search word and factor 2 
must contain the name of the table to be searched. The 
result field must name the related table from which data 
is also made available for use. A resulting indicator 
must also be used. Conditioning indicators can be 
specified in columns 7 through 17, if needed. 

The two tables used should have the same number of 
entries. If the table that is searched contains more 
elements than its related table, it is possible to satisfy 
the search condition. However, there might not be an 
element in the second table that corresponds to the 
element found in the search table. Unpredictable results 
can occur. 



Note: If you specify a table name in an operation other 
than LOKUP before a successful LOKUP occurs, 
unpredictable results can occur because the contents of 
the special storage area referenced by the table name 
are unknown. 
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Referencing the Table Element Found in a LOKUP 
Operation 

Whenever a table name is used in an operation other 
than LOKUP, the table name actually refers to the data 
placed in the special storage area by the last successful 
search. Thus, when you specify the table name in this 
fashion, elements from a table can be used in 
calculation operations. 

If the table is used as factor 1 in a LOKUP operation, 
the contents of the special storage area are used as the 
search word. In this way an element from a table can 
itself become a search word. 



Starting the Search at a Particular Array Element 

To save processing time, start the LOKUP search at a 
particular element in the array. This type of search is 
indicated by additional entries in columns 33 through 42. 
Enter the name of the array to be searched in these 
columns followed by a comma and a numeric literal or 
by the name of a numeric field (with decimal 
positions). The numeric literal or numeric field provides 
the number of the element at which the search is to 
start (see Figure 10-20). This numeric literal or field is 
called the index because it points to a certain element in 
the array. All other columns are used as previously 
described for the normal lookup operation. 



The table can also be used as the result field in 
operations other than the LOKUP operation. In this case 
the contents of the special storage area are changed by 
the calculation specification. The corresponding table 
element in the table in main storage is also changed. In 
this way the contents of the table can be modified by 
calculation operations (see Figure 10-17). 

Figure 10-18 shows a sample LOKUP operation for a 
table. 



Using the LOKUP Operation with Arrays 

The LOKUP specifications for arrays are the same as for 
tables except that the result field cannot be used. In 
addition, if the element searched for is found, it is not 
moved to a special storage area because these areas are 
used only for tables. The indicators reflect only that the 
element is in the array; therefore, the programmer does 
not have ready access to this item. 

Figure 10-19 shows two LOKUP operations performed 
with an array. 
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TABPAY 



TABEMP 



TABPAY 



441 


243 


442 


321 


443 


268 


444 


272 


445 


310 


446 


411 



443 




268 



443 is the 
search word 



Special storage areas 

Related tables TABEMP and TABPAY are read into stor- 
age. Assume that an input record is read with 443 in the 
EMPNUM field. With 443 as the search word, the table 
TABEMP can be searched for an equal entry. When the 
correct entry is found, the table item 443 is moved into 
the special storage area for TABEMP. At the same time, 
the corresponding item 268 is moved into the special 
storage area for TABPAY. The contents of the storage 
areas can now be referenced in subsequent calculation 
operations by the appropriate table name. The coding 
needed to perform the LOKUP operation also shows 
how to reference the contents of the special storage 
area after a successful LOKUP operation. 



Calculation Specifications 
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i _■■ - n . f-- . . Resulting 
Indicators Result Field , .. 
oi Indicators 




oil •* Arithmetic 








3j £ Z o ~ Compare 


Line 


£ Name Le "« th % S1>2|l<2|l=2 




E f ™ „ „ £ _ Lookup! Factor 2) is 


3 4 5 


iH t3 -I Z Z z . ox High Low Equal 

6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 
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EMPMUM LOKUPTABEMP TABPAV m 


2 


c 


3 


c £ THE ABOVE OPERATION SEARCHES TABEMP EOR M ENTR* THAI IS EftUAk 


4 


c * 10 IBE CONTENTS OF IHE FIELD NAMED llPlAfk IP Itii CORRECT EWIM 


5 


c* T?> FqW IN TA&EMP. (tl TURN& cN, AND THE TABEMP ENTRY Ms ITS 


6 


c i BELATED ENlR* IN TABPAY ABE flo\l§D fflTD iffilB SEBaSaIE SrQ0m T 


7 


c* A8EA5. TT 


8 


c 


9 


aSSfcKB ailkl TABPAY ABl fc2H 


1 


c 


1 1 


c £ IBE AM\fE OPERATION HlTIPUJS IBE CONTENTS CF IBeTFIELD fiMEB 1 


1 2 


c ^ WRSiKD B¥ TM CONTENTS OP TBE SPECIAL SI0RA6E AREA FOR TABPffilTlBl 


1 3 


c 3 SEECIAL STORAGE MEA Eq| IABPfW CONTAINS ffiE gESULIS JOE IBE LAST 


1 4 


'* SUCCESSFUL LOKUP OPERATION INVOLVING TABPAY. 


1 5 


c 


1 6 


c 



Figure 10-16. LOKUP Operation for Related Tables 
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Result Field 


< 

I 
53 


Resulting 
Indicators 


































1 
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6 
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~ g 
j < 

3 5 

7 8 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


.1 

52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
3 4 5 


Plus |lWinus| Zero 








Compare 


1 >2|l <2|1 =2 


z 

9 


10 


ii 


z 

12 


13 


14 


Z 
15 


16 


17 


LookuplFactor 2)is 


High 

54 55 


Low 

56 57 


Equal 
58 59 
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Figure 10-17. Referencing the Table Element Found in LOKUP Operation 



These four tables are used in the LOKUP operations 
described in Figure 10-18, Part 2. 

First Second Third Fourth Fifth 

Entry Entry Entry Entry Entry 

Table A 01 05 08 32 96 

TableB 06.13 02.12 47.16 28.70 15.16 

Table C WWW NNN LLL GGG AAA 

Table D 7 8 3 2 5 



The table input records are loaded into the system in this 
order at compile time. 



Tables A and B are described separately on the extension 
specifications and are, therefore, entered separately. Tables 
C and D are related tables and are entered in alternating 
format on the table input records. 

Extension Specifications 



Table or 
Array Name 



27 28 29 30 31 32 



BAlflLEJA 



IABLEB 



mbim 



Entries 
Per Table 
or Array 



36 37 38 39 



Table or 
Array Name 
(Alternating 
Format) 



46 47 48 49 50 51 



_DIABL 



EE 



1 




These tables are in the library 



Source 
Program, 


• • 


0105 


0832 


96 


• • 


06130 
21247 
16287 
01516 


** 


WWW7 


NNN8 


LLL3 


GGG2 


AAA5 


1* 



TABLEA TABLEB 

Figure 10-18 (Part 1 of 2). Example of Table LOKUP Operations 



TABLEC and TABLED 
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Calculation Specifications 


^ Indicators Result Field , "." I" 9 
I ro - Indicators 


— 1 * I 


| «. Arithmetic 


¥ S And 




» 3: 2 

5 j < 

Line £ - rr - 


o s Compare 


Name Lenylli £ .i 1 > 2 |i<2|l-2 


- =2 s 

£ <3 -i z < 

3456 78 9 10 11 1 


„ ~ «- LookuplFactor 2)is 


: 2 ox High Low Equal 

13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 43 49 50 51 52 53 54 55 56 67 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


1 C 


_ 1 <J8' LDKUPTABLEft IABLEB £1 


2 C 


x tf8' LOKUPIASLEA IA8LEB <&Z 


3 C 


_'§8' LOKUPlABUft I&BIEB 5J3 


4 C 


' $8' LOKUPTABLE* m £5 


5 C 


_'$!B' LOKilPIABLEA dfcflil 


6 C 


x U ' LQKUPTABkJA 0&8 


7 C 


_ x 92' LOKUPIftBLEA ^ 


8 C 


_*W LOKUPIABLEA TABLEC 10 11 


9 C 


% fe' LOKpPIABkEA IABLEC 1213 


1 C 


*UL T LQKUPIABUEC IAE1EB IS 


1 1 C 


-*11Z' LOKUPIABLEt 15 


1 2 C 


_ l 331' LOKUPIABLEC Ik 


1 3 C 


x 333' LQKUEIABLEC IABLED 11 


1 4 C 


_2 LO^UPIABLED 13 


1 5 C 


b LOKUPlfXiLEB 14 


1 6 C 




1 7 C 





Specifications above are shown for 15 different LOKUP 
operations for tables A, B, C, and D. Indicators specified 
in columns 54 through 59 determine the type of search 
to be made. 



Results of the LOKUP operations (in the following table) 
show whether the element searched for was found, what 
indicator is on to indicate a successful search, and what 
item was taken from a related table when one was used. 









Table Item 


Table Item 








Satisfying 


Used From 


Specification 


Entry 


Indicator 


Search 


Related 


Line Number 


Found 


On 


Condition 


Table 


01 


Yes 


01 


32 


28.70 


02 


Yes 


02 


05 


02.12 


03 


Yes 


03 


08 


47.16 


04 


Yes 


05 


08 




05 


Yes 


07 


08 




06 


No 








07 


No 








08 


Yes 


10 


32 


GGG 


09 


Yes 


12 


08 


LLL 


10 


Yes 


14 


NNN 


8 


11 


Yes 


15 


GGG 




12 


No 








13 


Yes 


17 


LLL 


3 


14 


Yes 


18 


2 




15 


No 









Figure 10-18 (Part 2 of 2). Example of Table LOKUP Operations 
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To Filename 
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Table or 
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Entries 
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33 34 35 
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Entries 
Per Table 
or Array 

36 37 38 39 
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Table or 
Array Name 

(Alternating 
Format) 

46 47 48 49 50 51 
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52 53 54 
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58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 

3 4 5 
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MANNOS, a 2100-element array of employee numbers, is 
read in at execution time from the file ARRFILE with ten 
6-position elements per record; the array elements are in 
ascending order. 



Calculation Specifications 
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Resulting 
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Operation 
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Name 
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Length 

49 50 61 
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Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
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Compare 
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1 15 


16 1 


Lookup(Factor 2)is 


High 
54 55 


Low 

56 57 


Equal 
58 59 





1 




c 
















1 


* 





3 


3 


b 










L 





K 


UP 


MA 


M 


N 





S 
































2 


6 











































2 




c 






28 


\ 




























G 





T 





m 


* 


T 

















































































3 




c 

































































































































4 




c 




































2 




A 


DC 


l 


















I 


N 


y 












4 


li 

















































5 




c 
















l 


a 


$ 


3 


3 


6 










L 





K 


UP 


DA 


W 


N 





5 


> 


I, 


n 


X 
























2 


i 











































6 




c 




N 


?i 


s 




























i 





T 





EI4 


D 



















































































7 




c 




































N 





V 


E 


IS 


N 


N 





S 


/ 


I 


N 


X 


5 


A 


V 


E 










f) 


0! 

















































8 




c 
















N 


E 


y 


r 














I 


A 


6 

























































































9 




c 






























































































































1 







c 






























































































































1 


1 




c 










































Calculation 
operations 










































































1 


2 




c 


















































































































1 


3 




c 






























































































































1 


4 




c 































































































































The first calculation specification is a LOKUP of array 
MANNOS to find the element nearest to, but higher in 
sequence than, the search word 100336. If this element is 
found in the array, indicator 20 turns on and the GOTO 
in line 02 is performed. Indicator 20 indicates only whether 
or not the searched for element exists in the array. 



The specification on line 05 shows essentially the same 
LOKUP operation. Indicator 20 turns on when the first 
element higher in sequence than 100336 is found. How- 
ever, in this LOKUP operation, the array MANNOS is 
indexed by the field I NX. This index field was set to 
1 in line 04, so the LOKUP begins at the first element 
of MANNOS. If the searched for element is found, the 
number of this element (not its contents) is placed in 
the field INX. In this way, the actual element that 
satisfied the LOKUP can be used in subsequent cal- 
culation operations, as in line 07. If no element was 
found to satisfy the LOKUP, the field INX is reset 
to1. 



Figure 10-19. LOKUP Operation for an Array 
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Calculation Specifications 
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Result Field 
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X 
53 


Resulting 
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1 
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6 — 

rr g 

> z 

3 < 

Is 

7 a 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


.1 

Q 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
3 4 5 


Plus |Minus| Zero 








Compare 


1 >2|1 <2|l »2 
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10 
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13 


14 


Z 
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Lookup! Factor 2) is 
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54 55 


Low 

56 57 


Equal 
58 59 
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The index provides the number of the element at which 
the search is to start. 



An array name plus comma and index that is 10 characters 
long can be referenced in factor 1 or factor 2 of the 
calculation specifications only. For all other references, the 
length is limited to 6 characters. 



Figure 10-20. Array Lookup: Starting at a Particular Array Item 

The search starts at the specified element and continues 
until the searched-for element is found or until the end 
of the array is reached. When a field is specified for the 
index, an unsuccessful search causes that field to 
contain the value of 1 . If, however, an element is found 
that satisfies the conditions of the LOKUP operation, the 
number of that array element (counting from the first 
element) is placed in the index field. The index field can 
then be used to reference that array element so it can 
be used in subsequent calculation operations (see Figure 
10-19). However, a numeric literal used as an index is 
not changed to reflect the result of the search. 

Note: If a literal or field index for an array is zero or 
greater than the number of elements in the array, the 
following occurs: 

• For a literal index, a severe error occurs and 
compilation ceases. 

• For a field index, the job halts, allowing the operator 
to cancel or continue the program. If the program is 
continued, the field index is reset to 1. 



Alphabetized Operation Codes 
LOKUP 
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MHHZO (MOVE HIGH TO HIGH ZONE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The MHHZO operation moves the zone from the 
leftmost position of factor 2 to the leftmost position of 
the result field. Factor 2 and the result field must be 
alphameric. 



MHLZO (MOVE HIGH TO LOW ZONE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The MHLZO operation moves the zone from the 
leftmost position of factor 2 to the rightmost position of 
the result field. Factor 2 must be alphameric. The result 
field can be alphameric or numeric. 



MLHZO (MOVE LOW TO HIGH ZONE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



Functions of the four move zone operations are shown 
in Figure 10-21. 



Alphameric I i I I I i I i I i I factor 2 

I V MLHZO J 

MHHZO^X=^| MLLZO 



\{ MHLZO ~"Nj 

Alphameric f I I I I I I I I I I Result Field 



Numeric I. I. I. I ■! ■ I *«2 

MLHZO J 



/r. 



MLLZO 



Alphameric I \ I I I I I I I I I R«"'t Field 

Alphameric | | | | [ | | | | | | Factor 2 

I MLLZO 
MHLZO ""si 

Numeric I I I I I I I I l\ I Result Field 

Numeric I l I I I I I | I l I Factor 2 

I MLLZO 

Numeric I 1 I I I I I I I I I Result ™<* 
Figure 10-21. Functions of Move Zone Operations 



The MLHZO operation moves the zone from the 
rightmost position of factor 2 to the leftmost position of 
the result field. Factor 2 can be numeric or alphameric, 
but the result field must be alphameric. 



MOVE (MOVE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



MLLZO (MOVE LOW TO LOW ZONE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The MLLZO operation moves the zone from the 
rightmost position of factor 2 to the rightmost position 
of the result field. Factor 2 and the result field can be 
either alphameric or numeric. 



The MOVE operation transfers characters from factor 2 
to the rightmost positions in the result field. Moving 
starts with the rightmost character of factor 2. 

If factor 2 is longer than the result field, the excess 
leftmost characters of factor 2 are not moved. If the 
result field is longer than factor 2, the excess leftmost 
characters in the result field are unchanged. 

The MOVE operation is summarized in Figure 10-22. 
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Factor 2 Shorter Than Result Field 



Factor 2 



Result Field 



a. Alphameric 



b. Alphameric 



c. Numeric 



d. Numeric 



a. Alphameric 



b. Alphameric 



c. Numeric 



d. Numeric 



a. Alphameric 



b. Alphameric 



c. Numeric 



d. Numeric 



H|4,S,N, 



H,4,S,N, 



H|4,S,N| 



H,4,S, N| 



2,7,8,4 2 5 



2,7,8,4 2 5| 



2,7,8,4 2 5 



2.7,8,4 2 5, 



Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 



Factor 2 



,A,C 


E,G,P 


H,4 


S| 


N, 


,A,C 


E,G,P 


H,4 


s 


N, 


,A,C 


E.G.P 


H,4 


s 


N, 


,A,C 


E,G,P 


H,4 


s 


N, 


|1 i 2 


7,8,4 


2,5 






l 1 l 2 


7,8,4 


2,5 




|1. 2 


7,8,4 


2,5 




|1|2 


7,8,4 


2,5, 





Factor 2 Longer Than Result Field 



Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 



111 



1.2 



1i_2 



1,2 



1|2 



1,2 



A.C 



A,C 



Resu 

5,6 



P .H 



5,6 



hi 



5,6 



7,8 



P,H 



7,8 



Factor 2 and Result Field Same Length 



Factor 2 

|P.H,4,S ,N 



IP 


,H,4 


s 


N| 


IP 


,H,4 


s 


N| 


,p 


|H,4 


s 


N| 


|7 


,8,4 


2 


5, 


,7 


,8,4 


2 


5| 


.7 


,8,4 


2 


5, 


|7 


,8,4 


2 


5, 



Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 

Before MOVE 
After MOVE 



Resu 



5^ 



P .H 



5,6 



7,8 



A.L 



7,8 



A.L 



7,8 



3,4 



h± 



3.4 



3j_4 



3.4 



1,2 



Fi G 



1,2 



t Field 

7, 8 



t Field 

7.8 



hi 



7,8 



4,2 



hi 



4, 2 



hi 



hi 



5.6,7 



P I H I 4 



5,6,7 



7|8,4 



5.6,7 



7.8.4 



P|H|4 



7.8,4 



+ 
8 | 4,| 



+ 
±1 



5j 



5j 



N 



Alphameric 



Numeric 



Numeric 



Alphameric 



Alphameric 



Numeric 



Numeric 



Alphameric 



Alphameric 



Numeric 



Numeric 



Alphameric 



4 = letter D 

5 = letter N 

Figure 10-22. MOVE Operations 



Alphabetized Operation Codes 10-39 
MHHZO-MOVE 



MOVEA (MOVE ARRAY) 



The MOVEA operation makes it possible to: 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The MOVEA operation transfers characters from the 
leftmost positions of factor 2 to the leftmost positions 
of the result field. Factor 2 and the result field cannot 
reference the same array even if the array is indexed. 
All arrays and fields referenced by a MOVEA operation 
must be alphameric. 

The length of the move is determined by the shorter of 
the lengths of factor 2 and the result field. If factor 2 is 
longer than the result field, the excess rightmost 
characters of factor 2 are not moved; if the result field 
is longer than factor 2, the rightmost characters in the 
result field are unchanged. 



• Move several contiguous array elements to a single 
field. 

• Move a single field to several contiguous array 
elements. 

• Move contiguous elements of one array to contiguous 
elements of another array. 

Movement of data starts with the first element of an 
array if the array is not indexed or with the element 
referenced if the array is indexed. The movement of 
data is terminated when the last array element is moved 
or filled or when the number of characters moved equals 
the length of the shorter field specified by factor 2 and 
the result field; therefore, the move could terminate in 
the middle of an array element. 

If MOVEA is specified with a figurative constant and an 
array, the constant fills the entire array. |f MOVEA is 
specified with a figurative constant and an array 
element, the array is filled with the figurative constant 
from the referenced element to the end of the array. 

Figure 10-23 illustrates the use of the MOVEA 
operation. 



Calculation Specifications 



Example: Array-to-array move. 
No indexing; different length 
arrays, same element length. 



ARRX 
1 ,2l3,4|5,6l7,8|9,ol 

^^ One element 
1 ,2|3,4|5,6l7,8|9,0 





































Result Field 


26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 3B 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 61 
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52 
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MC 
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RR 
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Y 



























































































































Before 
MOVEA 



After 
MOVEA 



ARRY 

a, a|b, b|c,c| d, d| E, e[F|F| 
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Figure 10-23 (Part 1 of 3). MOVEA Operation 



10-40 Operation Codes 



Calculation Specifications 



Example: Array-to-array move. 
Index result field. 



Operation 



28 29 30 31 32 



SBaS 



3334 35 36 37 33 39 40 41 42 
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Before [a aIb b|c cIddIe e[ 



MOVEA 



After 
MOVEA 



One element 



A a| B B 1 1 2[ 3 4 1 5 6| 



Example: Array-to-array move. 
No indexing, different length 
array elements. 



ARRY 



| 1 2 |3 4 


5 6 | 7 8|g 


o| 


' v ' 

| 1 2 |3 4 


ne element 
5 6 | 7 8| 9 


ol 



Example: Array-to-array move. 
Index factor 2, different length 
array elements. 



ARRY 



Calculation Specifications 



Operation 
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Calculation Specifications 



Operation 



28 29 30 31 32 
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Figure 10-23 (Part 2 of 3). MOVEA Operation 



Alphabetized Operation Codes 10-41 
MOVEA 



Calculation Specifications 



Example: Field-to-array move. 
No indexing on array. 
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Calculation Specifications 



Example: Array-to-field move. 
Variable indexing. 
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Figure 10-23 (Part 3 of 3). MOVEA Operation 
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10-42 Operation Codes 



MOVEL (MOVE LEFT) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Blank 


Blank 


Blank 



The MOVEL operation transfers characters from factor 2 
to the leftmost positions in the result field. Moving 
begins with the leftmost character in factor 2. 

When a numeric field is moved into an alphameric field, 
both digit and zone portions of the rightmost character 
are transferred if that character is to be moved. 

A summary of the rules for MOVEL operations for three 
conditions based on field lengths is as follows: 

1. Factor 2 is the same length as the result field: 

a. If factor 2 and the result field are numeric, the 
sign is moved with the rightmost position. 

b. If factor 2 is numeric and the result field is 
alphameric, the sign is moved with the 
rightmost position. 

c. If factor 2 is alphameric and the result field is 
numeric, a minus zone is moved into the 
rightmost position of the result field if the zone 
from the rightmost position of factor 2 is a D 
(minus zone). However, if the zone from the 
rightmost position of factor 2 is not a D, a 
positive zone is moved into the rightmost 
position of the result field. Digit portions are 
converted to their corresponding numeric 
characters. 

d. If factor 2 and the result field are alphameric, all 
characters are moved. 



2. Factor 2 is longer than the result field: 

a. If factor 2 and the result field are numeric, the 
sign from the rightmost position of factor 2 is 
moved into the rightmost position of the result 
field. 

b. If factor 2 is numeric and the result field is 
alphameric, the result field contains only 
numeric characters. 

c. If factor 2 is alphameric and the result field is 
numeric, a minus zone is moved into the 
rightmost position of the result field if the zone 
from the rightmost position of factor 2 is a D 
(minus zone). However, if the zone from the 
rightmost position of factor 2 is not a D, a 
positive zone is moved into the rightmost 
position of the result field. Other result field 
positions contain only numeric characters. 

d. If factor 2 and the result field are alphameric, 
only the number of characters needed to fill the 
result field are moved. 

3. Factor 2 is shorter than the result field: 

a. If factor 2 is either numeric or alphameric and 
the result field is numeric, the digit portion of 
factor 2 replaces the contents of the leftmost 
positions of the result field. The sign in the 
rightmost position of the result field is not 
changed. 

b. If factor 2 is either numeric or alphameric and 
the result field is alphameric, the characters in 
factor 2 replace the equivalent number of 
leftmost positions in the result field. No change 
is made in the zone of the rightmost position of 
the result field. 

The MOVEL operation is summarized in Figure 10-24. 
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Figure 10-24. MOVEL Operations 



10-44 Operation Codes 



MULT (MULTIPLY) 



MVR (MOVE REMAINDER) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 




Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 
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9-17 
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Opt 
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Blank 
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Optional 


Optional 



Factor 1 is multiplied by factor 2, and the product is 
placed in the result field. Factor 1 and factor 2 are not 
changed. If factor 1 is not present, the result field is 
multiplied by factor 2, and the product is placed in the 
result field. 



The MVR operation moves the remainder from the 
previous divide operation to a separate field named as 
the result field. Factor 1 and factor 2 must not be used. 
This operation must immediately follow the divide 
operation. 



Be sure that the result field is large enough to hold the 
product. To determine the minimum length of the result 
field, use this rule: the length of the result field equals 
the length of factor 1 plus the length of factor 2. 



The maximum length of the remainder (including decimal 
positions) is 15. The number of significant decimal 
positions is the greater of: 

• The number of decimal positions in factor 1 of the 
previous divide operation. 

• The sum of the decimal positions in factor 2 and the 
result field of the previous divide operation. 

The maximum whole number positions in the remainder 
is equal to the whole number positions in factor 2 of the 
previous divide operation. Figure 10-25 shows the 
specification for a move remainder operation. 
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Figure 10-25. Move Remainder Operation 



Alphabetized Operation Codes 10-45 
MULT-MVR 



NEXT (NEXT) 



POST (POST) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 




Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


7-8 


9-17 
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58-59 


Opt 


Opt 


Required 


Required 


Blank 


Blank 


Optional 


Blank 


Opt 


Opt 


Required 


Blank 


Required 


Blank 


Optional 


Blank 



The NEXT operation code forces the next input to the 
program to come from the device specified in factor 1 . 
If NEXT is specified more than once between input 
operations, only the last operation is executed. The 
NEXT operation code can be used only for a WORKSTN 
file. 

Note: For WORKSTN files, a device can be either a 
display station or an SSP-ICF session. 

To use this operation, enter NEXT in columns 28 
through 32. In factor 1, enter the name of a 2-character 
field that contains the device identification or a 
2-character alphameric literal that is the device 
identification. In factor 2, enter the name of the 
WORKSTN file for which the operation is requested. 

An indicator can be specified in columns 56 and 57. 
This indicator is set on if an exception /error occurs on 
the NEXT operation. If the INFSR subroutine is 
specified and columns 56 and 57 do not contain an 
indicator, the subroutine automatically receives control 
when an exception /error occurs. (For more information 
on the INFSR subroutine, see WORKSTN Exception /Error 
Handling in Chapter 13.) If the INFSR subroutine is not 
specified and columns 56 and 57 do not contain an 
indicator, the program halts when an exception /error 
occurs. 

For more information on the NEXT operation code, see 
Chapter 13, WORKSTN File Considerations and Sample 
Programs. 



The POST operation allows the programmer to retrieve 
status information for a specified display station that is 
attached to a WORKSTN file. The status information 
(for the POST operation, the display screen size-960 or 
1920 characters) is placed in the INFDS data structure 
that was specified in the result field. The program must 
contain the INFDS data structure for the WORKSTN file 
to use POST. 

Factor 1 must contain a variable or an alphameric literal 
that identifies the display station whose status is being 
requested. The result field contains the name of the 
INFDS data structure in which this information is to be 
posted. Columns 56 and 57 can specify an indicator 
that is set on if an error occurs on the POST operation. 
An error occurs if the specified work station ID is not 
attached to the file for which the INFDS data structure 
is specified. 

If columns 56 and 57 do not specify an indicator but the 
program contains the INFSR subroutine, the subroutine 
automatically receives control when an error occurs. If 
the INFSR subroutine is not present and columns 56 
and 57 do not contain an indicator, the program halts 
when an exception /error occurs. The display station 
must be attached to the WORKSTN file. If it is not 
attached, the device will be not found and an error will 
occur on POST. (For more information on the INFSR 
subroutine, see WORKSTN Exception/ Error Handling in 
Chapter 13.) 

Columns 33 through 42, 49 through 55, and 58 and 59 
must be blank for a POST operation. 



10-46 Operation Codes 



READ (READ A RECORD) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Blank 


Blank 


Optional 


Optional 



The following files can appear as factor 2 in a READ 
operation: 

• Sequential disk files processed consecutively and 
specified as input or update files. 



The READ operation calls for immediate input from a 
demand file during the calculation phase of the program 
cycle. This operation differs from the FORCE operation 
because FORCE calls for certain input on the next 
program cycle, not the present one. 

The operation code READ must appear in columns 28 
through 32. Factor 2 contains the name of the file from 
which a record should be read immediately. An indicator 
can be used in columns 58 and 59. This indicator turns 
on when an end-of-file condition is reached for the 
demand file or for each READ operation after an 
end-of-file condition is reached. If columns 58 and 59 
are blank, a halt occurs on an end-of-file condition and 
on subsequent READ operations after the end-of-file 
condition is reached. Indicators can be specified in 
columns 7 through 17. 

An indicator can be specified in columns 56 and 57 if 
the READ operation is issued to a WORKSTN file. This 
indicator is set on if an exception condition occurs (that 
is, the operator pressed one of the function control 
keys: Roll Up, Roll Down, Clear, Print, Record 
Backspace, or Help) or if an input error occurs. If 
columns 56 and 57 do not contain an indicator and 
either of these conditions occurs, the program halts 
unless the INFSR subroutine is specified. If the INFSR 
subroutine is specified, the subroutine automatically 
receives control and an exception /error occurs. (For 
more information on the INFSR subroutine, see 
WORKSTN Exception/ Error Handling in Chapter 13.) 

The following columns must remain blank for a READ 
operation: columns 18 through 27 (factor 1), columns 
43 through 48 (result field), columns 49 through 51 (field 
length), column 52 (decimal positions), column 53 (half 
adjust), and columns 54 and 55 (resulting indicators). 



• Indexed disk files processed sequentially by key and 
specified as input or update files. 

• Indexed disk files processed sequentially by limits 
and specified as input or update files. 

• Direct files processed consecutively as input or 
update files. 

. WORKSTN files. 

. SPECIAL files. 



REL (RELEASE) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Required 


Required 


Blank 


Blank 


Optional 


Blank 



The REL operation releases the device specified in factor 
1 from the program. Either a requesting or 
nonrequesting device can be released with the REL 
operation code. The specified device is released when 
the REL operation is encountered during the calculations 
unless the device is the requestor of a single requestor 
program. If the device specified in factor 1 is the 
requestor of a single requestor program, the device is 
released at end of job, not when the operation code is 
encountered in the calculations. (If the device is a 
display station, it is no longer available to the program, 
but it is available for system log messages.) 

If an exception/error occurs on the attempt to release 
the device, the indicator specified in columns 56 and 57 
is set on. If no indicator is specified, the program halts 
unless the INFSR subroutine is specified in the program. 
If the INFSR subroutine is specified, the INFSR 
subroutine automatically receives control when an 
exception /error occurs and no indicator is specified in 
columns 56 and 57. 



Alphabetized Operation Codes 
READ-REL 



10-47 



When all devices are released from a primary 
WORKSTN file, the file goes to end of file and RPG II 
sets on the LR indicator. If the program containing the 
primary file is an NEP, the system operator must enter 
the STOP SYSTEM command before the WORKSTN file 
will go to end of file. 



RLABL (RPG II LABEL) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Blank 


Blank 


Blank 


Blank 


Required 


Blank 


Blank 


Blank 



When all device are released from a demand WORKSTN 
file and the program is not an NEP, the first READ 
operation after the last REL operation causes the READ 
end-of-file indicator to be set on (columns 58 and 59). 
The programmer can then set on the LR indicator unless 
the LR indicator was specified as the end-of-file 
indicator. If the program containing the demand 
WORKSTN file is an NEP, the end-of-file indicator is 
set on when the system operator enters the STOP 
SYSTEM command. The programmer can then set on 
the LR indicator unless the LR indicator was specified as 
the end-of-file indicator. 

If RESTORE- NO is specified on the WORKSTN OCL 
statement, a display format from the program may 
appear on the screen after the display station has been 
released. If RESTORE-YES is specified on the 
WORKSTN OCL statement, the COMMAND display 
appears on the screen immediately when the display 
station is released: 

For more information on the ACQ and REL operation 
codes, see Chapter 13, WORKSTN File Considerations 
and Sample Programs. 



The RLABL operation allows the subroutine specified in 
an EXIT operation to reference a field, data structure, 
table, array, or indicator defined in the RPG II program. 
RLABL operations must be specified immediately after 
the EXIT operation that refers to the subroutine using 
the field, data structure, table, array, or indicator in the 
RLABL specification (see Figure 10-26). All external 
subroutines become part of the root segment and are 
not to be put into overlays. 



The rules for use of RLABL on the calculation 
specifications are as follows: 



Columns 

Operation 
(28-32) 

Result field 
43-48 



Field length 
(49-51) 



Entry 

RLABL 



Field, data structure, table, 
or array name, or indicator 
(INxx, where xx is the indicator) 

Length of field (optional) 



Decimal 
positions (52) 



Decimal indication (optional) 



Only RLABL operations specifying a field, table, or array 
name can have entries for field length (columns 49 
through 51) and decimal positions (column 52). 

The following columns must be blank for an RLABL 
operation: columns 7 and 8 (control level), columns 9 
through 17 (indicators), columns 18 through 27 (factor 
1), columns 33 through 42 (factor 2), column 53 (half 
adjust), and columns 54 through 59 (resulting indicators). 

A name defined by a TAG, BEGSR, or ENDSR 
specification cannot be used in an RLABL specification. 
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Figure 10-26. RPG II Coding for RLABL Field Entries 



Referencing an Indicator 

When an indicator is specified in an RLABL operation, 
use the form INxx as the result field, where xx is the 
indicator to be transferred to the subroutine. For 
example, if the MR indicator is to be transferred to a 
subroutine, specify INMR as the result field for the 
RLABL operation. 

When an indicator is specified in the RLABL operation, 
the RPG II compiler generates the following parameters 
and passes them to the assembler subroutine: 



B 

DC 
DC 
DC 



SUBRxx 



XL1 '00' 



XL1 'Mask for the indicator' 

XL1 'Displacement to the indicator from 
XR1' 



Referencing a Field 

When a field name is specified in the RLABL operation, 
the RPG II compiler generates the following parameters 
and passes them to the assembler subroutine: 

B SUBRxx 

DC IL1 'Field length-1' 

DC AL2 (right address of field) 

Referencing a Data Structure 

When a data structure is specified in the RLABL 
operation, the RPG II compiler generates the following 
parameters and passes them to the assembler 
subroutine: 

B SUBRxx 

DC XL3 'FFFFFF' 

DC IL2 'Data structure length-1' 

DC AL2 (leftmost address of data structure) 
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Referencing a Table or Array 

The subroutine can refer to a table or array defined in 
the RPG II program by using the control field created for 
that table or array. This control field is called the DTT 
(define the table), and one is created for each table or 
array built by the RPG II program. The control field is in 
the following format: 

Bytes Meaning 

0-1 Address of rightmost byte of the 

first entry 

2-3 Address of rightmost byte of the 

last entry 

4-5 Initialized to the address of the 

rightmost byte of first entry; 
used at object time for address of right 
byte of the last looked-up entry 



The subroutine can obtain the data retrieved from the 
preceding LOKUP operation by using the address in 
bytes 4 and 5. To access the table or array itself, the 
address in bytes and 1 must be used. Data the 
subroutine uses is left unpacked. 

When a table or array is specified in the RLABL 
operation, the RPG II compiler generates the following 
parameters and passes them to the assembler 
subroutine: 

B SUBRxx 

DC IL1 'Entry length- 1' 

DC AL2 (leftmost address of the DTT) 

See Figures 10-27 and 10-28 for examples of RPG II 
linkage specifications. 



6-7 Length of an entry 

8-13 Array name (arrays only) 
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Calculation Specifications 



18 19 20 21 22 23 24 25 26 27 



Operation 



28 29 30 31 32 



33 34 35 36 37 38 39 40 41 42 



43 44 45 46 47 



Length 



Resulting 
Indicators 



Plus |Minus| Zero 



Compare 
1>2|l<2|l-2 



Lookup! Factor 2li 



High Low Equal 
54 55 56 57 58 59 



60 61 62 63 64 65 66 67 68 69 70 71 72 73 : 



E2LI 



SUBRft 



RLABL 



HERE 



COMB 



HERE 



082251 



Control passed to the assembler subroutine SUBRA by 
RPG II. 

SUBRA 



Assembler subroutine references the field HERE in the 
RPG II program and returns control to the RPG II 
program. 



Control is returned to RPG II by the assembler subrou- 
tine, and a compare operation is performed to deter- 
mine which character was placed in the field HERE. 



Figure 10-27. RPG II Linkage to an Assembler Language Subroutine 
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Calculation Specifications 



Operation 



18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 



33 34 35 36 37 38 39 40 41 42 



43 44 45 46 47 48 



Length 



Resulting 
Indicators 



Arithmetic 
Plus |Minus| Zero 



Compare 
1>2|K2|1 '2 



Lookup! Factor 2}i: 



High Low Equal 
54 55 56 57 58 59 



60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 



E*II 



SUfeRifti 



RLABU 



IAB8 



8LA8L 



I1UA 



COjiP 



iAaa 



^i.85Z 



- Control passed to the assembler subroutine by RPG II. 



SUBRB 



Assembler subroutine references the table and indicator 
in the RPG II program and returns control to the RPG II 
program. 



Control is returned to RPG II by the assembler subrou- 
tine. 



The subroutine refers to both RLABL entries. It first tests 
the indicator. If the indicator is off, control is returned to 
the RPG II program. If the indicator is on, a character C is 
moved into the last looked-up entry in the table, TABB. 
When control is returned to the RPG II program, a com- 
pare operation is performed to see whether or not the 
subroutine placed a C in TABB. 



Figure 10-28. RPG II Linkage to an Assembler Language Subroutine 
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Considerations for the Assembler Programmer 

To write an assembler subroutine that is linked to an 
RPG II program, the assembler programmer must be 
aware of the following: 

• The name of the subroutine must be the same as the 
name specified in factor 2 of the RPG II EXIT 
operation. 

• Upon entry to the assembler language subroutine, the 
address recall register (ARR) contains a pointer to the 
parameters that represent the RPG II fields to be 
referenced by the assembler subroutine. The return 
point to the RPG II program is the first byte after the 
parameters. 

• If the subroutine makes use of registers 1 and 2, the 
contents of these registers must be stored upon entry 
to, and restored before exit from, the subroutine. 



Result Field 

Level 



Rcode 



Description 

Name of a one-digit numeric field 
that designates the user message 
member level. A value of 1 in this 
field indicates a message level of 1 ; 
a value of 2 indicates a message 
level of 2. 

Name of a one-digit numeric field 
that contains the return codes. The 
return code and their meanings are 
as follows: 

Return Meaning 
Code 

Message was 

successfully retrieved 
with no truncation. 



Note: The user-written subroutines should be placed in 
#LIBRARY or #RPGLIB (the library the RPG compiler 
resides in), not in the same library as the RPG II source 
program. 



Message Retrieve Subroutine (SUBR23) 

The message retrieve subroutine (SUBR23) allows you 
to retrieve messages from a user message member. 
After the message has been retrieved, it can be 
modified and written to an output file. 

Linkage to SUBR23 is by the EXIT operation code, and 
input parameters are passed to SUBR23 by RLABL 
operation codes. To use SUBR23, specify EXIT in 
columns 28 to 31 and SUBR23 in columns 33 to 38. 
Four RLABL operation codes must be specified after the 
EXIT operation with the following result field entries: 

Result Field Description 

MIC number Name of a four-digit numeric field 
that contains the MIC (message 
identification code) of the text to be 
retrieved. 

Text area Name of the alphameric field or 

data structure into which the 
message text is read. The 
maximum length of a level- 1 
message is 75 characters and of a 
level-2 message is 225 characters. 



1 Message was 
successfully retrieved; 
however, it was 
truncated because the 
length of the text area 
was less than the 
message length. 

2 Message was not found. 

3 The field indicating the 
message was invalid. 

4 An invalid MIC value 
was diagnosed. 

5 Message member was 
not found or message 
text length exceeds the 
level 1 maximum. 

The text area, which is specified by the second RLABL 
operation, is blanked before each attempt to retrieve a 
message; therefore, a blank text area is returned to the 
user program when the return code value is 2 or greater. 
A total of 225 positions in the text area is blanked 
unless the text area is less than 225 characters in 
length. 
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SET (SET) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Optional 


Optional 


Blank 


Optional 


Optional 


Optional 



A total of 24 command keys are designated for the top 
row of the keyboard. In the lowercase position, key 1 
corresponds to command key indicator KA, key 2 to KB 
... -(minus) to KK and = (equal) to KL. In the uppercase 
position, key I corresponds to command key indicator 
KM, @ to KN ... and + to KY. 



The SET operation can be used only with input files 
assigned to the device KEYBORD, which is specified in 
columns 40 through 46 of the file description 
specifications. All SET operations are directed to the 
display station that loaded the program or to the display 
station assigned to the program by the WORKSTN OCL 
statement. 

The SET operation allows any or a combination of the 
following: 

• Command keys to be pressed 

• The field, literal, or table or array element specified in 
factor 1 to be displayed on the display screen 

• User messages (from USER1 message member) 0001 
to 0099 to be displayed when numbers 01 to 99 
respectively are specified in the nn portion of the 
SETnn and KEYnn operation codes 

• The buffer for a CONSOLE file to be blanked if 
ERASE is specified in the result field of the SET 
operation 



Allowing Command Keys to be Pressed 



If command keys were erroneously pressed and an entry 
function key has not been pressed, the operator can 
reset all the command keys by pressing the Cmd key 
followed by the character backspace (Clear) key while 
holding down the Shift key. The operator can then 
rekey all the correct keys. If any invalid command keys 
and an entry function key were pressed, an error 
message is issued. 

If no command keys are to be pressed, the operator 
responds to the SET operation by pressing only an entry 
function key; thus causing the indicators to be turned 
off. This is called a null response. Using this null 
response in your programs is not recommended because 
of the possibility of an accidental null response. For 
example, if the operator neglects to press the Cmd key 
before pressing the appropriate command key, a null 
response occurs. 



Specifications for SET Operations 

The specifications required for a SET operation vary 
depending upon which function, or combination of 
functions, is to be performed. Figure 10-29 shows a 
summary of these specifications, and Figure 10-30 
shows the possible combination of these SET functions. 



The SET operation allows you to specify command keys 
that the operator is allowed to press at this point in the 
program. When the operator presses a command key, 
the corresponding command key indicator turns on. 
These command key indicators can be used to condition 
subsequent calculation or output operations. Command 
key indicators remain on until they are used again in a 
SET operation or until they are turned off by the SETOF 
operation. 

When the program is at a particular specification line, 
you can give the operator the option of pressing one to 
three command keys. For each command key to be 
pressed, the operator first presses the Cmd key and 
then presses the digit key corresponding to the 
command key indicator (KA through KN, or KP through 
KY). After all command key responses have been 
entered, the operator presses an entry function key. 



Columns 7-8: Enter any valid conditioning indicator. 
However, leave these columns blank if the SET 
operation is not a part of a subroutine or if it is to be 
performed only at detail time. 



Columns 9-17: Enter any valid conditioning indicators for 
any SET operation. However, leave these columns blank 
if the SET operation is to be performed on every 
program cycle. 
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Calculation Specifications 



f* Indicators Result Field Resulting 
1^ of Indicator! 


6 1 1 «• Arithmetic 




S> « 5 o « Compare 


Line >=!*. Name LK "!' lh i^1>2|l<2|l-2 


Ef". „ B , | i Lookup! Factor 2) is 


£ d -i Z z z OX High Low Equal 

3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 IB 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


01 c ******** _ILLUSIRAIIuSS OF IRE SET OPERAItO* CODE *********** 


2 C g 


03 *X DISPLAY COfeJTEHIS OF EIR5I ELEMENI OE IRE A8RA* £RoMPl £ 


4 C 


05 c PB&MPlxl 5EI 


6 C 


07 c * ALLOW COMIAIID KEYS I& BE PRESSED; PROMPT OEERAIlOli £ 


08 c * W1IH DISPLAY OF C0MIEMI5 OE EIELE SELECI. 


9 C 


c SELECT SEI *A*B 


1 1 c 


2 c * DISPLAY BESSA&E 2213 ER&fl USER MES5A&E MEMBER 


1 3 C 


4 c SElia T 


1 5 C 


16 c * ERASE OR BLANK E*LSIING CONSOLE BUFFER of SPECIFIED * 


' 7 c * :ONSOLE EILE* * 


1 8 c SEI COMSFILE feRASE 


1 9 C 


i°_ c *_ . ALLQ^I C0MMANQ_*EY KA z £a± QR ti£_IO„GE BBES5ED,._EB&aPl £ 


21 c * OPERATION Bi MLC Ml$ * 


2 1 2 C 


-A- c _ - - SET23 l^AKBHC 


c 


c 



Figure 10-29. Summary of Calculation Specifications for SET Operations 
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Calculation Specifications 
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Figure 10-30. Possible Combinations of Functions Performed by SET Operation 
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Columns 18-27: Enter the constant, literal, field name, 
or table or array element to be displayed on the display 
screen. 



Columns 28-30: Enter the operation code SET. 



Columns 31-32: Enter the message identification code 
(MIC) corresponding to the message in the user 
message member file that is to be displayed on the 
display screen. This message prompts the operator to 
perform a SET operation. Valid entries are 01 to 99. An 
entry is required when command keys are specified in 
columns 54 through 59 and columns 18 through 27 are 
blank. If no user message member is specified prior to 
execution with a MEMBER OCL statement or there is no 
message for the specified MIC, the system prompt 
'nn-MESSAGE INDICATOR' is displayed, where nn is 
the contents of columns 31 and 32. 



Columns 49-53: Leave these columns blank. 



Columns 54-59: Enter the command keys (KA through 
KN, KP through KY) that the operator is allowed to 
press when the program is at this specification line. One 
to three command keys can be specified. If only one or 
two command keys are specified, they can be entered in 
any of the three sets of columns. When the operator 
presses a command key specified in these columns, that 
command key indicator turns on and remains on until it 
is used again in a SET operation or until it is turned off 
by the SETOF operation. A halt occurs if the operator 
presses a command key other than those specified in 
columns 54 through 59 of a SET operation. 

Either factor 1 or message indicators in columns 31 and 
32 must be specified on a SET operation. If both factor 
1 and message indicators are present, the message 
indicators are ignored. 



Columns 33-42: When the ERASE function is specified 
in columns 43 through 48 for a CONSOLE file, enter the 
CONSOLE filename in columns 33 through 42. For all 
other SET operations, leave these columns blank. 



Columns 43-48: Enter ERASE in these columns to clear 
the CONSOLE file specified in columns 33 through 42. 
For all other SET operations, leave these columns blank. 



If you stack SET operations with a factor 1 (or MIC) and 
no command key entries (see Figure 10-31), you can 
display several lines on the display screen before the 
system halts for input. You can display up to six lines if 
the record length is 40 or less. You can display a full 
screen if the record length is more than 40. The system 
does not halt until a command key function is 
encountered or a KEY operation is specified. 
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System halts when command kev indicators are soecified. 
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Figure 10-31. Using SET Operation to Display Multiple-Line Prompt 
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Using SET Operations in Subroutines 

Sometimes it is necessary to write a program that has 
the KEY and SET operations performed at several 
different points in the program. Instead of writing these 
KEY operations and related SET operations every time 
they are needed, you can write them just once in a 
subroutine. Then, call the subroutine each time it is 
needed (see Subroutine Operations in this chapter for 
information on specifying and using subroutines). 



User Message Member 

The System /34 system support program product lets 
you create your own message members, which are 
called user message members. These message 
members can contain prompts or informational 
messages to be displayed during your RPG II program. 

For information on creating message members, see 
$MGBLD Utility Program in the System Support 
Reference Manual. The messages contained in user 
message members are displayed when you specify the 
halt indicators (H1 through H9) or the message indicator 
option of the SET and KEY operation codes. The 
messages displayed must be formatted so MIC numbers 
0001 through 0109 are assigned to the specific function 
as follows: 

MIC Function 

0001 -0099 Message to be displayed as 
specified by the nn portion 
of the SET and KEY operation 
codes (SETnn, KEYnn, where 
nn = 01 to 99). 

0100 Message to be displayed at the 

end of an RPG II cycle when the 
system is finished processing 
outstanding halt indicators. 

0101-0109 Message to be displayed at the 
end of an RPG II cycle in which 
the system has encountered H1 
through H9 halt indicators 
(0101 through 0109 correspond 
to H1 through H9 respectively). 



For a message contained in a user message member to 
be displayed, the message text must exist in an object 
message member. The message member must be 
specified in the MEMBER USER1 OCL statement, and 
the SETnn or KEYnn operation or an H1 to H9 indicator 
must be used in the program. (See MEMBER Statement 
in the System Support Reference Manual.) 

Note: The specified user message member remains 
active until the system processes another MEMBER 
statement or the display station session is ended (the 
display station operator signs off). If one of the user 
message members is active (either USER1 or USER2) 
and an execution time error is encountered, you will 
receive a user message rather than the appropriate 
system message (unless you have copied the system 
messages into your user message member). For more 
information on how long a user message member 
remains active, see MEMBER Statement in the System 
Support Reference Manual. 

The first level message corresponding to the H1 to H9 
halt indicators can be described in more detail with an 
associated second level message member with the same 
MIC number. The text of a second level message can 
be up to 225 characters long. Second level messages 
can only be specified with the H1 to H9 halt indicators, 
and a MEMBER USER2 OCL statement must be 
included at execution time. After the halt indicators 
(H1-H9) turn on, all calculations and detail output 
operations are performed for the record before 
processing stops, and a message is issued. If the halt 
indicators (H1-H9) are turned on during LR time, the 
program does not halt processing and continues to 
completion. 

Figure 10-32 shows the coding and OCL statements 
necessary to issue a message. The source member 
(MESG1 for this example) must be loaded into a library 
via the source entry utility or the $MAINT utility. The 
object member message MESG1 must be created prior 
to execution. For information on loading the message 
source member, see Sign-On Procedures in the SEU 
Reference Manual; for information on creating a message 
load member, see the System Support Reference Manual. 
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Messages are received from the system message member be- 
cause no overriding MEMBER statement was specified: 

// LOAD USER 

// RUN 

01-MESSAGE INDICATOR is the text issued as the prompt 
for the KEY operation. If HALT is keyed, the indicator H1 
turns on and the RPG II operator message 0101 RPG II 
INDICATOR H1 IS ON is displayed. If the option is 
selected, message 0100 ALL HALT INDICATORS PRE- 
VIOUSLY DISPLAYED is issued. 

Messages are retrieved from the user-created message mem- 
ber MESG1 specified in the MEMBER statement: 

// LOAD USER 

//MEMBER USER1-MESG1 

//RUN 

Figure 10-32. Issuing a Message 



The prompt KEY HALT TO TERMINATE PROGRAM 
is the text issued for the KEY01 operation. This is the 
contents of the object member loaded into the user 
message member specified by the MEMBER statement. 
Subsequently, the USER 0101 message text that is 
issued when the literal HALT is keyed is HALT HAS 
BEEN ENTERED WITH KEY OP. 

The second message issued, USER 0100, has not been de- 
fined in the user message member; thus it cannot be re- 
trieved, and the message MESSAGE NOT RETRIEVED 
(SEE MSG MANUAL) is issued. 
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Special Combinations of the SET and KEY 
Operations 

Normally, the operator must press an entry function key 
after each KEY operation or after command keys 
specified in a SET operation are pressed. However, it is 
possible to combine these operations so that the 
operator can press command keys (specified in columns 
54 through 59 of a SET operation), key a field (specified 
in a KEY operation), and only press an entry function 
key once. This is only possible if: 

• The SET operation immediately precedes the KEY 
operation. 

• The SET and KEY operations are conditioned by the 
same indicators (columns 7 through 17). Indicators 
for both operations must be specified in the same 
order. 

• The SET and KEY operations contain the same 
message indicators (see Figure 10-33). If factor 1 is 
used to display messages, then columns 31 and 32 
can be blank to satisfy this requirement. 

• Factor 1 for the SET and KEY operations can be the 
same, different, or missing from one operation. If 
factor 1 is specified for both the SET and KEY 
operations, the contents of each factor 1 are 
displayed. 



SETLL (SET LOWER LIMIT) 
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The SETLL operation allows the lower limits for an 
indexed demand file being processed sequentially within 
limits to be set during calculations. 

Factor 1 must contain a field name or literal representing 
the value of the lower limit being set. The length of the 
field or literal must be equal to the length of the key 
specified on the filename in factor 2. 

Factor 2 must contain the name of the file for which the 
lower limit is to be set. If a read is performed to the file 
prior to a SETLL operation, the record with the lowest 
key in the file is fetched. Figure 10-34 shows an 
example of SETLL coding. 

Note: When a lower limit is specified by SETLL, the 
end-of-file indicator specified for the READ operation to 
the file being processed is not set off by the RPG II 
cycle. 



If the data field is numeric, the operator must first press 
the specified command key, key the field, and then 
press the Field Exit, Field +, or Field - key. The 
Enter/ Rec Adv key is not allowed as an entry function 
key for a numeric field. For an alphameric field, the 
operator must perform the same sequence of steps if 
the Field Exit or Field + key is pressed. However, if the 
Enter/ Rec Adv key is used, the operator Can press the 
command key and then key the field, or key the field 
and then press the command key before pressing the 
Enter/ Rec Adv key. 
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Figure 10-33. Special Combination of SET and KEY Operations 
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FIELDA is defined on input specifications as an eight- 
position alphameric field. 



Figure 10-34. SETLL Operation Coding 
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The SETOF operation turns off any indicators specified 
in columns 54 through 59. At least one resulting 
indicator must be specified in columns 54 through 59. 



SETON (SET ON) 
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The SHTDN operation sets on the resulting indicator 
specified in columns 54 and 55 if the system operator 
has requested shutdown. The indicator can then be 
used to condition termination of the program in an 
orderly manner, such as printing some partial totals and 
going to normal end of job. 

Columns 28 through 32 must contain SHTDN, and 
columns 54 and 55 must contain one of the following 
valid indicators: 01 through 99, L1 through L9, U1 
through U8, H1 through H9, or LR. 



The SETON operation turns on any indicators specified 
in columns 54 through 59. At least one resulting 
indicator must be specified in columns 54 through 59. 
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In Figure 10-35, the array ARY is sorted into ascending 
order because no entry is specified for sequence 
(columns 45) in the extension specifications. ARYA is 
sorted into ascending order because column 45 of the 
extension specifications contains A; ARYD is sorted into 
descending order because column 45 contains D. 



The SORTA operation allows you io sequence the 
elements of an array during execution of a program. 
You can ensure that the elements of the array are in the 
proper sequence for LOKUP operation by performing a 
SORTA operation. 



The array specified in factor 2 is sorted into the 
sequence specified in the extension specifications for 
the array. If no sequence is specified, the array is sorted 
into ascending sequence. The standard EBCDIC 
collating sequence is used for the SORTA operation. If 
an alternate collating sequence has been defined, it is 
not used. 



For examples of the SORTA operation, see Figure 
10-35. 

Note: Columns 18 through 27 (factor 1) and 43 through 
59 (result field, half adjust, and resulting indicators) must 
be blank if an SORTA operation is specified. 



Extension Specifications 





F 






Record Sequence of the Chaining File 


















































cc 

43 


| 
Q 

44 


Q 
< 

is 

45 




















CC 

ct 

55 


.1 
Q 

56 


g 

< 

57 






































7 8 


Number of the Chaining Field 


To Filename 

19 20 21 22 23 24 25 26 


Table or 
Array Name 

27 28 29 30 31 32 


of 

Entries 
Per 
Record 

33 34 3S 


Number 
of 

Per Table 
or Array 

36 37 38 39 


Length 

of 

Entry 

40 41 4? 


Table or 
Array Name 

(Alternating 
Format) 

46 47 48 49 50 51 


Length 

of 

Entry 

52 53 54 


Comments 

58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 

3 4 5 


E 
6 


9 10 


From Filename 

11 12 13 14 15 16 17 18 





i 




E 










































A 


R 


Y 












2 






1 









3 
5 





































































2 




E 










































A 


ft 


Y 


A 
















1 


5 








A 































































3 




E 










































A 


A 


Y 


D 
















1 









»T 







D 



























































4 




E 









































































































































5 




E 













































































































































6 




E 











































































































































Calculation Specifications 





r. 








Indicators 




















































Result Field 


X 

< 

X 
53 


Resulting 
Indicators 
































w 


o — . 

-i a? 

r o 

5z 
" < 

o of" 

55 

7 8 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 SO 51 


s 

J 

& 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
3 4 5 


E 
6 


Plus |Minus| Zero 








Compare 


1>2|l<2|1-2 


z 

9 


10 


11 


Z 
12 


13 


14 


Z 
15 


16 


17 


Lookup(Factor2)is 


High 

54 55 


Low 

56 57 


Equal 

58 59 


a 


1 




c 


* 











































































































































2 




c 


X 






















s 





R 


T 




\ 


A 


R 


Y 


/ 




A 


N 


D 




\ 


A 


R 


Y 


A 


/ 




I 


M 


T 


Q 




A 


S 


C 


E 


N 


D 


I 


N 


G 







R 


D 


E 


R 



































3 




c 


* 











































































































































4 




c 












































s 





R 


T 


A 


A 


R 


Y 



















































































5 




c 












































s 





R 


T 


A 


A 


R 


Y 


A 

















































































6 




c 


X 











































































































































7 




c 


* 






















S 





R 


T 




\ 


A 


R 


Y 


D 


/ 




I 


N 


T 







D 


E 


S 


C 


E 


N 





I 


N 


G 







H 


D 


E 


R 





















































8 




c 


X 











































































































































9 




c 












































s 





R 


T 


A 


A 


R 


Y 


D 














































































1 







c 










































































































































1 


1 




c 










































































































































1 


2 




c 
















































































































JU 



























Figure 10-35. Examples of the SORTA Operation 
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The SQRT operation derives the square root of the field 
named in factor 2. The square root of factor 2 is placed 
in the result field. Factor 1 is not used. 

An entire array can be used in a SQRT operation if 
factor 2 and the result field contain array names. 

The number of decimal places in the result field can be 
either less than or greater than the number of decimal 
places in factor 2. However, the result field should not 
have less than half the number of decimal places in 
factor 2. The result of a SQRT operation is always 
half-adjusted. 

If the value of the factor 2 field is negative, the job 
halts. The operator can continue processing by 
responding to the halt. When processing is continued, 
the result field is set to zero. 



The TAG operation names the operation to which the 
program branches in the GOTO operation. If the TAG 
appears within a subroutine, the associated GOTO must 
appear within the same subroutine. 

Factor 1 contains the label that must begin in column 
1 8. The same label cannot be used for more than one 
TAG operation (or elsewhere as a subroutine name or 
ENDSR label). 

Factor 2 and the result field are not used. No indicators 
can be entered in columns 9 through 17 for a TAG 
operation. Control level indicators must be used, 
however, if branching is to occur only when the 
information in a control field has changed. 

See Figures 10-36 and 10-37 for examples of the TAG 
operation. 
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Factor 2 is subtracted from factor 1. The difference is 
placed in the result field. Factor 1 and factor 2 are not 
changed by the operation. Subtracting a field from itself 
is a method of setting the result field to zeros. If factor 
1 is not present, factor 2 is subtracted from the result 
field, and the difference is placed in the result field. 
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2. 



If the result of the subtraction in line 01 is minus 
(indicator 10 is on), a branch is taken to RTN1 
(routine 1 ) named by the TAG operation code in 
line 09. Notice that both the GOTO (line 02) and 
TAG (line 09) are not conditioned by control level 
indicators. 

If the branch is not taken in line 02, the multiplica- 
tion in line 03 is performed. Then the branch to 
RTN1 (line 09) must be taken because this branch 
is not conditioned by indicators. 



Operations then go in the order specified again from 
lines 06 through 12. Nothing is done in line 09 be- 
cause TAG gives only a name. These same operations 
are performed again and again until indicator 15 does 
turn on. 

When indicator 15 is on, the branch to RTN2 is not 
taken. The TESTZ operation is then performed. If 
this operation causes indicator 20 to turn on, a 
branch is taken to line 17 (GOTO END). If indicator 
20 is not on, the operation in line 16 is done. 



3. Operations in lines 10 through 12 are then done. 
If the operation in line 12 does not turn indicator 
1 5 on, a branch is taken backwards to RTN2 
(line 05). 

Figure 10-36. Using GOTO and TAG (Skipping Operations) 



Alphabetized Operation Codes 
TAG 



10-65 



Calculation Specifications 





c 






- 




Indicators 




















































Result Field 


X 

< 

53 


Resulting 
Indicators 


































r g 
J < 

J 5 

7 8 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


.1 

Q 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69* 70 71 72 73 74 


Line 
3 4 5 


E 
6 


Plus |Minus| Zero 








Compare 


1>2|K2|1 = 2 


z 

9 


10 


11 


Z 
12 


13 


14 


Z 
15 


16 


17 


LookuplFactor 2)is 


High 
54 55 


Low 
56 57 


Equal 
58 59 





1 




c 










































F 


tfCPT 

























































































2 




c 










































£ 


XCPT 

























































































3 




c 










































i 


XCPT 

























































































4 




c 










































E 


XCPT 

























































































5 




c 










































E 


XCPT 

























































































6 




c 










































E 


XCPT 

























































































7 




c 












































EXCPT 

























































































8 




c 












































kXCH 

























































































9 




c 











































































































































Assume you want to make eight mailing labels for every 
customer you have. The customer's name and address are 
found on an input record. Because you want to write eight 
labels for each record, you can use exception lines and the 
operation EXCPT instead of coding eight identical output 
line specifications. (See Exception (EXCPT) in this 
chapter for further information.) 



However, by using branching, you can code it all in five 
lines as shown below. An EXCPT line is printed out. 
One is added to COUNT to keep track of how many times 
the line is printed. Then COUNT is compared to 8. If 
COUNT does not equal 8, a branch is taken back to the 
beginning (GOTO DOAGIN). If COUNT equals 8, the 
branch is not taken. Instead, the COUNT field is set to 
zero for the next cycle. 
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Figure 10-37. Using GOTO and TAG to Eliminate Duplicate Coding 



10-66 Operation Codes 



TESTB (TEST BIT) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


1 required 



Indicators assigned in columns 54 through 59 reflect the 
status of the result field bits. At least one indicator 
must be assigned, and as many as three can be 
assigned for one operation. Two indicators can be the 
same for a TESTB operation, but not three. For TESTB 
operations, the resulting indicators turn on as follows: 



The TESTB operation compares the bits identified in 
factor 2 with the corresponding bits in the field named 
as the result field. Resulting indicators in columns 54 
through 59 reflect the status of the result field bits. 
Factor 2 is always a source of bits for the result field. 
The result field is the field in which corresponding bits 
are compared with the bits specified in factor 2. 

Factor 2 can contain: 

• Bit numbers 0-7: From 1 to 8 bits can be tested per 
operation. The bits to be tested are identified by the 
numbers through 7 (0 is the leftmost bit). The bit 
numbers must be enclosed in apostrophes and the 
entry must begin in column 33. For example, to test 
bits 0, 2, and 5, enter '025' in factor 2. 

• Field name: The name of a one-position alphameric 
field, table element, or array element can be specified 
in factor 2. In this case, the bits that are on in the 
field, table element, or array element are tested in the 
result field; bits that are off are not tested. 

See Figure 10-38 for a summary of TESTB operations. 



Columns 54-55: An indicator in these columns turns on 
if each bit specified in factor 2 or each bit that is on in 
the factor 2 field is off in the result field. 



Columns 56-57: An indicator in these columns turns on 
if the bits specified in factor 2 or the bits that are on in 
the factor 2 field are of mixed status (some on, some 
off) in the result field. 



Columns 58-59: An indicator in these columns turns on 
if each bit specified in factor 2 or each bit that is on in 
the factor 2 field is on in the result field. 

Note: If the field in factor 2 has no bits on, then this 
indicator turns on. 

The operation code TESTB must appear in columns 28 
through 32. Conditioning indicators can be used in 
columns 7 through 17. At least one resulting indicator 
should be assigned in columns 54 through 59. As many 
as three resulting indicators can be assigned, but not 
more than two can be the same. Factor 1, decimal 
positions, and the half-adjust columns must be blank. 



Alphabetized Operation Codes 
TESTB 
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Figure 10-38. Summary of TESTB Operations 



10-68 Operation Codes 



TESTZ (TEST ZONE) 



XFOOT (SUMMING THE ELEMENTS OF AN ARRAY) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


ODt 


Opt 


Blank 


Blank 


Required 


1 required 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 9-17 


54-55 56-57 58-59 


Opt 


Opt 


Blank 


Required 


Required 


Optional 


Optional 


Optional 



The TESTZ operation tests the zone of the leftmost 
character in the result field. The result field must be 
alphameric because this operation can be done only on 
alphameric characters. Resulting indicators turn on 
according to the results of the test. The characters &, A 
through I, and any other character with the same zone 
as the character A turn the plus indicator on. The 
characters - (minus), J through R, and any other 
character with the same zone as the character J turn the 
minus indicator on. Characters with any other zone turn 
the zero indicator on. Factor 1 and factor 2 are not used 
in this operation. 



The XFOOT operation can be used only on numeric 
arrays. XFOOT adds the elements of the array together 
and places the sum into the field specified as the result 
field. Factor 1 is not used. Factor 2 contains the name 
of the array. 



Z-ADD (ZERO AND ADD) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resultinq Indicators 


7-8 


9-17 


54-55 


56-57 58-59 


Opt 


Opt 


Blank 


Required 


Required 


Optional 


Optional 


Optional 



TIME (TIME OF DAY) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Blank 


Required 


Blank 


Blank 


Blank 



The TIME operation accesses the system time of day 
and, if specified, the system date. 



Factor 2 is added to a field of zeros. The sum is placed 
in the result field. Factor 1 is not used. 



Z-SUB (ZERO AND SUBTRACT) 



Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


7-8 


9-17 


54-55 


56-57 


58-59 


Opt 


Opt 


Blank 


Required 


Required 


Optional 


Optional 


Optional 



The system date accessed is not the same field as 
UDATE and may or may not contain the same 
information. See the System Support Reference Manual 
for a complete description of the system date and the 
DATE OCL statement. 

Columns 28 through 32 must contain the operation code 
TIME, and columns 43 through 48 (the result field) must 
specify the name of a numeric field with zero decimal 
positions into which the time of day or the time of day 
and the system date are written. 

To access the time of day only, specify the result field 
as a 6-digit numeric field. To access both the time of 
day and the system date, specify the result field as a 
12-digit numeric field. The time of day is always placed 
in the first six positions of the result field in the format 
hhmmss, where hh is hours, mm is minutes, and ss is 
seconds. If the system date is included, it is placed in 
positions 7 through 12 of the result field. The date 
format depends on the system date format and can be 
mmddyy, ddmmyy, or yymmdd. 



Factor 2 is subtracted from a field of zeros. The 
difference, which is actually the negative of factor 2, is 
placed in the result field. This operation can be used to 
change the sign of a field. Factor 1 is not used. 



Alphabetized Operation Codes 
TESTZ-Z-SUB 
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Chapter 11. Multifile Processing 



In an RPG II program, the processing of more than one 
input file, with or without match fields, is termed 
multifile processing. Selection of records from more 
than one file based on the contents of match fields is 
known as multifile processing by matching records. 

Multifile processing can be used with input files that are 
designated as primary or secondary files but not as 
chained or demand files. One of the files used in 
multifile processing must be a primary file. If a 
WORKSTN file is designated as the primary file, no 
secondary files can be specified; therefore, multifile 
processing by matching records cannot be used. 



NO MATCH FIELDS 

When no match fields are used in multifile processing, 
records are selected from one file at a time. When the 
records from one file are all processed, the records from 
the next file are selected. The files are selected in this 
order: 

1. Primary file, if specified 

2. Secondary files in the order in which they are 
described in the file description specifications 



MATCH FIELDS 

When match fields are used in multifile processing, the 
program selects the records for processing according to 
the contents of the match fields. The program reads 
one record from every input file and compares the 
match fields in the records. If the records are in 
ascending order, the program selects the record with the 
lowest match field. If the records are in descending 
order, the program selects the record with the highest 
match field. 

When a record is selected from a file, the program then 
reads the next record from that file. At the beginning of 
the next program cycle, the new record is compared 
with the other records in the read area that are waiting 
for selection, and one record is selected for processing. 



Records without match fields can also be included in the 
files. Such records are selected for processing before 
records with match fields. If two or more of the records 
being compared have no match fields, selection of those 
records is determined by the priority of the files from 
which the records came. The priority of the files is: 

1. Primary file, if specified 

2. Secondary files in the order in which they are 
described in the file description specifications 

When the primary file record matches one or more of 
the secondary records, the MR (matching record) 
indicator turns on. This indicator can be used to 
condition calculation or output operations for the record 
that is selected. When one of the matching records 
must be selected, the selection is determined by the 
priority of the files from which the records came. 

Figure 11-1 shows when the MR indicator is turned on 
during the RPG II cycle. For more information on the 
RPG II cycle, see Chapter 17, Detailed RPG II Program 
Logic. 

One file can be defined with match fields while all other 
input files have no match fields. The files without the 
match fields are then processed completely according to 
the previously mentioned priority of files. The file with 
the match fields is processed last, and sequence 
checking occurs for that file. 



Assigning Match Field Values (M1-M9) 

When assigning match field values (M1 through M9) to 
fields on the input specifications in columns 61 and 62, 
consider the following: 

• Sequence checking is automatically done for all 
record types with match field specifications. The 
contents of the fields to which M1 through M9 are 
assigned are checked for correct sequence. An error 
in sequence stops the program, and the record that 
caused the halt is not processed. When the system 
is restarted, the next record from the same file is 
read. Thus, all match fields must be in the same 
order, either all ascending or all descending. See 
Column 18 (Sequence) in Chapter 3, F/7e Description 
Specifications. 
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Turn off control 
level and record 
identifying indicators. 



Halt if halt 
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■ ■ output. 
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Figure 11-1. Simplified Matching Record Logic 
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• Not all files used in the job must have match fields. 
Not all record types within one file must have match 
fields either. However, at least one record type from 
two files must have match fields if files are ever to 
be matched. 

• The same number of match fields must be specified 
for all record types that are used in matching. The 
same matching record values must also be used for 
all types (see Figure 11-2). 

• All match fields given the same matching record 
value (M1 through M9) must be the same length and 
type (alphameric or numeric). If the match field 
contains packed data, the zoned decimal length, 
which is (2 x the packed length) -1, is considered as 
the length of the match field. 

• Record positions of different match fields can 
overlap, but the total length of all fields must not 
exceed 144 characters. 

• If more than one match field is specified for a record 
type, all the fields are combined and treated as one 
continuous match field (see Figure 11-2). The fields 
are combined according to descending sequence (M9 
to M1) of matching record values. 

• Match fields cannot be split, that is, the same 
matching field value cannot be used twice for one 
type of record. 

• Match fields can be either alphameric or numeric. 
However, all match fields given the same matching 
record value (M1 through M9) are considered numeric 
if any one of the match fields is described as 
numeric. 

• When numeric fields having decimal positions are 
matched, they are treated as if they had no decimal 
position. For instance, 3.46 is considered equal to 
346. 

• Only the digit portions of numeric match fields are 
compared. Even though a field is negative, it is 
considered to be positive because the sign of the 
numeric field is ignored. Thus, a -5 will match with a 
+5. 

• Whenever more than one matching record value is 
used, all match fields must match before the MR 
indicator turns on. For example, if match fields M1, 
M2, and M3 are specified, all three fields from one 
record must match all three fields from the other 
record. A match on only the M1 and M2 fields will 
not turn on the MR indicator (see Figure 11-2). 



• Field names are ignored in matching record 
operations. Therefore, fields from different record 
types that are assigned the same match level can 
have the same name. 

• If an alternate collating sequence is defined for the 
program, alphameric fields are matched according to 
the alternate sequence specified. 

• A field specified as binary (B in column 43) cannot be 
assigned a match field value. However, a field 
specified as packed (P in column 43) can be assigned 
a match field value. 

Note: Additional rules applying to matching records 
when used with entries in the field record relation 
columns are discussed under Columns 63-64, in Chapter 
7, Input Specifications. 

Figure 11-3 is an example of how match fields are 
specified. 



Processing Matching Records 

Matching records for two or more files are processed in 
the following manner: 

• Whenever a record from the primary file matches a 
record from the secondary file, the primary file is 
processed first. Then the matching secondary file 
record is processed. The record identifying indicator 
that identifies the record type just selected is on at 
the time the record is processed. This indicator is 
often used to control the type of processing that 
takes place. 

• Whenever records from ascending files do not match, 
the record having the lowest match field content is 
processed first. Whenever records from descending 
files do not match, the record having the highest 
match field content is processed first. 

• A record type that has no match field specification is 
processed immediately after the record it follows. 
The MR indicator is off. If this record type is first in 
the file, it is processed first even if it is not in the 
primary file. 

• The matching of records makes it possible to enter 
data from primary records into their matching 
secondary records because the primary record is 
processed before the matching secondary record. 
However, the transfer of data from secondary records 
to matching primary records can be done only when 
look-ahead fields are specified (see Look-Ahead Fields 
under Columns 19-20 in Chapter 7, Input 
Specifications). 

Figures 11-4 and 11-5 show how records from three 

disk files are selected for processing. 

Match Fields 11-3 



Input Specifications 



I 

Line 
3 4 5 
















Ft 

N D 
15 16 


1 = 

— 5 

E -| 
2 O 

17 18 


^ C 
19 20 


Record Identification Codes 












" Control Level (L1-L9) 

2 Matching Fields or 
g Chaining Fields 


Field 






1 72 73 74 




i 


2 


3 




1 Field Name 

2 53 54 55 56 57 58 


Indicators 


Filename 

E 

6 7 8 9 10 11 12 13 




A 
14 


Position 
21 22 23 


4 25 


Q 

o i 

26 2 


2 Position _ 

: ■ 5 g 

7 28 29 30 31 32 33 


S Position 
34 35 36 37 38 


3 Not(N) 

5 Character 

£ Stacker Select 


tr From 

43 44 45 46 4 


To - 

c 

7 48 49 50 51 5 


! Plus Minu 
64 65 66 67 6 


Zero 
Blank 

3 69 70 7 


1 


I MA 


ft 


T 


£ 


ft 






AA 




u 




q> 


s 


CS 
























-l^ 














2 


i 




































j 






i 




5 


EftPLWO 


iffij 










3 


i 










































i6 




25 


PjAVRAlr 












4 


i 


















j 
























3b 




46 


Sv&Sn 


na 










5 


i 










































31 




35 


BEPT 


K2 










6 


i 














ftB 




H 




n« 




CI 


[ 






































7 


i 








































1 




8 


E^PLMp 


Mi 


i 








8 


i 




















! 


















T~ 


1(2 




1ft 


KRSUiKb 






1 




9 


i 


























i 










~ ' 


2d 




2K 


DEPTi 


K2 




1 
1 




1 jo 


x ^ 










1 








i 

i ! 












1 








25 




&ft 


DMSOJl 






1 
j 




1 1 


* WE 


E 


K 


L 


Y 






d;l 




ML 










i 


j 






1 






i 






T 








1 2 


i : 












i 
i 






1 ; 




















i 




5 


_EWPLNp 


Ml 










l|3 


i 
















\ 


■ ! i 




















& 




1« 


DlAISofi 


rS 








| 


iUi 


1 J-L 






i 






i 


'. ! ' 


















i3ft 




1,5 


&EPT 












1 5 


l _|_j 












i 
























J2cL 




2p 


msum 


T 










1 6 


i 






























































1 7 


i 












i 




i 


I i 
















! 










1 













Figure 11-2. Match Fields 

Three record types are used in matching records. All 
record types have three match fields specified, and all 
use the same values (M1, M2, M3) to indicate which 
fields must match. The MR indicator turns on only if all 
three match fields in either of the record types from the 
MASTER file are the same as all three fields from the 
record in the WEEKLY file. 



The three match fields in each record type are combined 
and treated as one match field organized as follows: 



DIVSON DEPT 



M3 



M2 



EMPLNO 



M1 



The order in which the fields are specified by the input 
specifications does not affect the organization of the 
match fields in the computer. 
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Figure 11-3. Match Field Specifications for Three Disk Files 
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The records from the three disk files are selected 
in the order indicated by the circled numbers. 

Figure 11-4 (Part 1 of 2). Normal Record Selection from Three Disk Files 
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The first record from each file is 
read. The P and S records have no 
match field, so they are processed 
before the T record that has a 
match field. Because the P record 
comes from the primary file, it is 
selected for processing first. 






The next P record is read. It con- 
tains no match field and comes 
from the primary file, so the new 
P record is also selected for pro- 
cessing before the S record. 



Step 
3 






The next P record read has a 
match field. The S record has 
no match field, so it is selected 
for processing. 



Step 
4 






The next S record is read. All 
three records have match fields. 
Because the value in the match 
field of the T record is lower 
than the value in the other two, 
the T record is selected for 
processing. 






The next T record is read. The 
matching P and S records both have 
the low match field value, so they 
are processed before the T record. 
Because the matching P record 
comes from the primary file, it is 
selected for processing first. 



Figure 11-5 (Part 1 of 2). Normal Record Selection from Three Disk Files 
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The next P record is read. Because it 
contains the same match field and 
comes from the primary file, the new 
P record is selected instead of the S 
record. 



Step 
7 






The next P record is read. The value 
of the match field in the S record is 
the lowest of the three, so the S 
record is selected for processing. 



Step 
8 






The next S record is read. Because 
the S and T records match and have the 
lowest match field, they are selected 
before the P record. Because the S 
record comes from the first secondary 
file, it is selected for processing before 
the T record. 



Step 
9 






The next S record is read. Because it 
also has the same match field as the 
S record just selected, it too is selec- 
ted before the T record. 



Step 
10 






The next S record is read. The T 
record contains the lowest match 
field value, and is selected for 
processing. 



Figure 11-5 (Part 2 of 2). Normal Record Selection from Three Disk Files 
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Chapter 12. CONSOLE File Considerations 



Using the CONSOLE device in an RPG II program 
enables the operator to enter input to an executing 
RPG II program from a display station. Display screen 
prompts are automatically generated from the input 
specifications to prompt the operator for data entry. As 
the operator enters data in response to the prompt, the 
data is displayed on the display screen. Internally the 
data is placed in a buffer, which is independent of the 
execution of the RPG II program. At input time of the 
RPG II cycle, the program retrieves the data from the 
buffer. Data for a CONSOLE file can be entered anytime 
during the RPG II cycle. The operator indicates a normal 
end of input (end-of-file condition) to the CONSOLE file 
by pressing command key 12, that is, the Cmd and = 
(equal) keys. 



RESTRICTIONS FOR USING A CONSOLE FILE 

The following restrictions apply to the use of a 
CONSOLE file: 



WHEN USED WITH KEYBORD/CRT DEVICE 

Both device names CONSOLE and KEYBORD refer to a 
display station, that is, a keyboard and a display screen. 
When the device KEYBORD is specified in the same 
program as the device CONSOLE and the operator is 
entering data for the CONSOLE file, the following occurs 
when the program encounters a KEY or SET operation 
for the KEYBORD file: 

• The operator is required to complete data entry for 
the current record for the CONSOLE file. 

• The prompt for the SET or KEY operation, or the 
output to the CRT file, is then displayed on the 
display screen. Normal RPG II processing continues 
after the SET or KEY operation is completed. The 
display screen and keyboard are reenabled for input 
to the CONSOLE file when the RPG II program 
begins processing the saved record during the next 
input cycle. 



• Only one CONSOLE file is allowed per program. 

• Only one display station is associated with the 
program; therefore, prompting for input to the 
program is directed to the display station that loaded 
the program or that is assigned to the program by 
the WORKSTN OCL statement. 

• If a program contains a WORKSTN file, it cannot 
contain a CONSOLE, KEYBORD, or CRT file. 

• The maximum number of record types that can be 
used for a CONSOLE file is 10. 

• The maximum record length is 1,518 characters. 

• The maximum alphameric field length is 66 
characters. 

• The maximum numeric field length is 15 characters. 

• The maximum number of input fields that can be 
displayed on the screen is 80. 



AUTOMATIC GENERATION OF DISPLAY SCREEN 
FORMATS 

When a program includes a CONSOLE device and the 
RPG command is used to compile the program, the 
RPG II format generator (RPGR) uses the input 
specifications to generate source input to the screen 
format generator (the $SFGR utility program of the 
system support program product). The screen format 
generator compiles this source input and generates a 
display screen format load member for the program. The 
source input to $SFGR is not saved when the RPG 
command is used. To save the source input, specify the 
NOGEN parameter on the RPG command statement. 
The RPGR procedure can be called separately to 
generate the source input for the $SFGR utility program, 
which is then called to generate a display screen format 
load member for the CONSOLE file. 
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To execute an RPG program containing a CONSOLE 
device from a display station with a 960-character 
display screen, specify the GEN960 parameter on the 
RPG or AUTO command statement. GEN960 indicates 
that the screen formats for the CONSOLE file will be 
generated for a 12-line, 960-character screen. 

See Chapter 18, Compiling and Executing RPG II 
Programs, for a description of the RPG and RPGR 
command statements. For a complete description of the 
$SFGR utility program, see the System Support 
Reference Manual. 

RPG II forms the name of this source member and load 
member by adding FM to the RPG II program name 
given in columns 75 through 80 of the control 
specifications at the time of compilation. Therefore, the 
format name cannot be changed after compilation. For 
example, if the name of the program is PRNAME, the 
name of the display screen format source member and 
load member for that program is PRNAMEFM. 

If multiple formats are generated for the same program, 
the record identifying indicator is appended to the 
program name to distinguish each distinct format in the 
program. For example, if the program PRNAME 
contains the three record types with the indicators 01, 
02, and 03 specifying the record types, the display 
format names generated are: 

PRNAMEFM 

PRNAME01 

PRNAME02 

PRNAME03 

PRNAMEFM is the name by which the set of display 
formats is referenced in the library, and PRNAME01, 
PRNAME02, and PRNAME03 are the names of the 
actual display screen format members of the set. 

If OR lines are used on the input specifications to 
identify the same record, only one format is associated 
with the record. 

When CONSOLE is used as a record address file to 
provide keys for a limits file, FM is added to the 
program name to form the name of the display screen 
format source and load members. 



Display Format 

The top line on the display screen contains control 
information that is used by the operator to identify the 
current record and to specify the next record type to be 
prompted (see Figure 12-1). The remaining 11 or 23 lines 
are used for the formatted record. For each field defined, 
14 characters are reserved to contain the field name and 
its attributes. Therefore, the record length is limited to 
1,518 characters. The format generated for a record 
depends on the size and number of fields in the record. 
The possible formats are: 

• One column: The one-column format is generated 
whenever the number of fields prompted for is less 
than 12 or 24. 

• Two columns: The two-column format is generated 
whenever the number of fields is equal to or greater 
than 12 or 24 and less than or equal to 22 or 46 (see 
Figure 12-2). If any field length in the record 
exceeds 26 characters, the screen format is altered to 
handle these fields. 

• Three columns: The three-column format is generated 
whenever the number of fields is greater than 22 or 
46 and less than or equal to 33 or 69 (see Figure 
12-2). If any field length in the record exceeds 12 
characters, the format is altered to allow these fields. 

• Four columns: The four-column format occurs 
whenever the number of fields is greater than 33 or 
69 and less than or equal to 44 or 80 (see Figure 
12-2). If any field length in the record exceeds 6 
characters, the format is altered to allow these fields. 
If the format is altered so that the four-column 
format is invalid, an error message is issued. If an 
error message is issued, you must reduce the number 
of fields in the record or change the order of the 
fields. Remember that all fields for the record must 
fit on one display screen format. 
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Record identification code 
for record being prompted 
(columns 21 through 27 of 
the input specifications) 




Record identifying indicator 
for record being prompted 
(columns 19 and 20 of the 
input specifications) 
/ 



Record identifying in- 
dicators for other record 
types that can be select- 
ed before data is entered 
using the current format 



Record identifying in- 
dicators for other record 
types that can be select- 
ed after data is entered 
using the current format 



M 1 

ACCTNO A 5 
DISCNT N 3.0 



1,2,3,4 



1,2,3,4 




Display station field 
control character 
for prompt, which 
appears as a blank 



Field name (1 to 6 char 
acters) from columns 
53 through 58 of the 
input specifications 



Type of field- 
alphameric (A) or 
numeric (N) 
(column 52 of 
the input specifi- 
cations) 



Field length 
(columns 44 
through 51 
of the input 
specifications) 



Display station field 
control character for 
this input field which 
appears as a blank 



Figure 12-1. Display Generated for the CONSOLE File 
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Two-Column Format 



A 



1,2,3,4 



CUSTNO A 5 

NAME A 30 

ADDR1 A 20 

ADDR3 A 2 3 

STATE A 20 



1,2,3,4 
PHONE A 11 

ADDR2 A 20 
CITY A 25 
ZIP A 5 



Three-Column Format 



r 



M 1 
ACCTNO A 5 

SLSMAN A 40 
DIST A 3 

CITYST A 20 



1,2,3,4 

DISCNT N 3.3 

REGION A 4 



1,2,3,4 

COST N10.2 



ZIP A 5 



Four-Column Format 



M 1 
ACCTNO A 5 
SALES N10.2 



1,2,3,4 1,2,3,4 

DIST A 3 REGION A 3 DISCNT N 4.4 

TOTAL N15.2 



Figure 12-2. Display Screen Formats Generated by the $SFGR Utility Program 
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Prompt Format 



File Description Specifications 



The prompts, which are generated from the field names 
on the input specifications, are 14 positions long and 
have the following format: 



Position 

1 

2-7 

8 

9 

10-13 



14 



Explanation 

Display station field control 
character for the prompt, which 
appears as a blank. 

Field name. 

Blank. 

N for a numeric field or A for an 
alphameric field. 

Length of field. For an alphameric 
field, positions 10 and 11 are blank 
and positions 12 and 13 contain the 
length. For a numeric field, positions 
10 and 11 contain the length of the 
field, position 12 contains a decimal 
point, and position 13 indicates the 
number of decimal positions in 
the field. 

Display station field control 
character for the input field, 
which appears as a blank. 



Entries for the columns not included in the following list 
are described in Chapter 3, File Description 
Specifications. 



Column 15: Enter an I in this column to specify this file 
as an input file. 



Column 16: Enter a P (primary), S (secondary), D 
(demand), or R (record address) as the file designation. 



Column 17: Leave this column blank if the program can 
end whether or not all records from the file have been 
processed, or enter an E if all records from the file must 
be processed before the program can end. If this 
column is blank for all files in the program, all records 
from every file must be processed before the program 
can end. For a CONSOLE file, the operator indicates a 
normal end of file by pressing command key 12, that is, 
the Cmd and = (equal) keys. 



Columns 20-23: The entry for block length must either 
equal the record length entered in columns 24 through 
27 or be blank. 



Altering the Display Screen Format 

Once the RPG II format generator has generated the 
source input for the screen format generator and the 
input has been cataloged in the library, you can alter this 
source input, if desired, by using SEU (see the SEU 
Reference Manual) and the FORMAT procedure (see the 
System Support Reference Manual). See RPGR Command 
Statement in Chapter 18 for an explanation of how to 
save the source input. 



SPECIFICATIONS FOR A CONSOLE FILE 

To use the CONSOLE file in a program, you must enter 
certain codes on the file description specifications and 
the input specifications. 



Columns 24-27: The record length is defined as the 
highest to-field location specified on the input 
specifications. This record length cannot be less than 2 
or greater than 1,518. If the CONSOLE file is 
designated as a record address file, determine the 
record length by multiplying the length of the record 
address field by 2. This record length cannot be less 
than 2 or greater than 58. 



Column 28: Leave this column blank. 



Columns 29-30: These columns must be blank if 
column 16 contains a P, S, or D. If column 16 contains 
an R, enter the length (1 to 29) of the record key. 
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Column 31: Use this column only for record address 
files. Leave the column blank if the keys in the record 
address file are the same as the keys in the index file. 
Enter an A for an indexed file with zoned decimal keys. 



Columns 32-38: Leave these columns blank. 



Column 39: Leave this column blank if column 16 
contains a P, S, or D. If column 16 contains an R for 
record address file, this column must contain an E. 



Columns 40-46: Enter CONSOLE as the device name. 
The file can be an input data file or a record address 
file. There can be only one CONSOLE file in a program. 



Input Specifications 



File and Record Identification Specifications 

Entries for the columns not included in the following list 
are described in Chapter 7, Input Specifications. 



Columns 21-34: Position 1 or positions 1 and 2 of 
each record in the CONSOLE file must contain a record 
identification code to identify which record was keyed. 
The 1 - or 2-character code specified in these columns 
is automatically inserted into each new record when it is 
prompted. 

The rules for coding columns 21 through 34 are: 

• Columns 21-23: Leave these columns blank. 

• Column 24: Enter the number 1. 



• Column 25 

• Column 26 



Leave this column blank. 
Enter a C in this column. 



Column 27: Enter the alphabetic character, special 
character, or digit that is present in position 1 of the 
input record. 

Columns 28-34: If a 1 -character record identification 
code is used, leave these columns blank. If a 
2-character record identification code is used, code 
these columns the same as columns 21 through 27, 
except that column 31 must contain the number 2 to 
indicate record position 2. 



Columns 35-74: Leave these columns blank. 



Columns 14-16: These columns must not contain the 
characters AND; however, columns 14 and 15 can 
contain the characters OR. These OR lines can be used 
to indicate a relationship between record identifying 
indicators or record types. If columns 14 and 15 contain 
OR, the same number of record identification codes 
must be described on this specification line as are 
described on the preceding line. 



Field Specifications 

Entries for the columns not included in the following list 
are described in Chapter 7, input Specifications. 



Columns 14-16: AND lines are not allowed for 
CONSOLE file records. 



Columns 15-18: RPG II uses the entries from columns 
15 and 16 (sequence), column 17 (number), and column 
18 (option) to determine which record types are 
allowable alternatives to the default record type (those 
record types that can be selected before data is entered 
for the record type currently displayed) and which record 
types are valid after data is entered for the record type 
currently displayed. RPG II inserts the valid before and 
after record types in the top line of the display format 
generated for a CONSOLE file (see Figure 12-1). 



Columns 53-58: Enter a descriptive field name (1 to 6 
alphameric characters) to be used as a prompt for this 
data. To enter data into a whole array for a CONSOLE 
file, define the whole array as a subfield within a field of 
the CONSOLE file record or define each element of the 
array with an index and place this entry in columns 53 
through 58. The index must be an integer value. 



Columns 19-20: Enter a record identifying indicator (01 
to 10) to define the command key the operator enters 
to select this record type. The same indicator cannot be 
used to define more than one record type within the 
input specifications for one program. 
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Columns 59-60: If this is a primary or secondary file, a 
control level indicator (L1 through L9) can be entered to 
indicate that a control break occurs on a change in the 
field's contents. 



Columns 61-62: If this is a primary or secondary file, a 
match field value (M1 to M9) can be entered to indicate 
a match field. Otherwise, leave these columns blank. 

When describing the fields in a CONSOLE file record, 
remember the following considerations: 

• The maximum alphameric field length is 66 
characters. 

• The maximum numeric field length is 15 digits. 

• The maximum record length is 1,518 characters. 

• Subfields can be specified within the fields of a 
CONSOLE file record. The from and to field locations 
for subfields must not overlap the from and to field 
locations for another field. Subfields are not 
prompted for, but are assigned values from the 
prompted field and can be used in calculation and 
output specifications. In Figure 12-3, the part 
number 01ROC43CP843987831 is entered in 
response to the prompt field PARTNO. LOCATN, 
WHSE, BIN, ASMTP, and NUMBER are subfields 
within the PARTNO field. The values for the 
subfields are extracted from the PARTNO field. 



Erasing the CONSOLE File Buffer 

To erase, or blank, the entire CONSOLE file buffer, use 
the ERASE function with the SET operation code in the 
calculation specifications. You must enter the operation 
code SET in columns 28 through 30, the filename of the 
CONSOLE file in columns 33 through 42, and ERASE in 
columns 43 through 47. ERASE indicates to the system 
that the buffer is to be set to blanks just before the 
program reads a record at the beginning of the next 
RPG II cycle. 

Because the buffer is not erased until the beginning of 
the next RPG II cycle, processing of the current record 
continues after the ERASE operation is encountered. If 
the ERASE operation is executed because of invalid 
input data, you should insert code in your program to 
avoid further calculations and to return to the start of 
the RPG II cycle. A correct form of the record 
containing invalid input data and any records that were 
entered after that record can then be reentered. 
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Figure 12-3. Specifying Subfields for a CONSOLE File 
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Chapter 13. WORKSTN File Considerations and Sample Programs 



The WORKSTN file allows concurrent entry of data from 
one or more devices attached to an executing RPG II 
program. The devices that can be attached to a 
WORKSTN file are display stations and SSP-ICF 
sessions. The number of devices that can be attached 
to a WORKSTN file is dependent on the value 
associated with the NUM continuation line option (for 
more information, see Continuation Line Options under 
File Description Specifications in this chapter). 

WORKSTN can be specified as the input/output device 
if you use the display screen format specifications to 
define the display screen format. These specifications 
must then be compiled by the $SFGR utility program of 
the system support program product. Input and output 
fields, as well as the indicators that control the 
attributes of these fields, are defined on the display 
screen format specifications. The RPG II input and 
output specifications must relate input and output fields 
to the fields in the order defined on the display screen 
format specifications. The indicators defined on the 
display screen format specifications are controlled by 
the RPG II program. For a complete description of the 
$SFGR utility program, see the System Support 
Reference Manual. 



PROGRAM ATTRIBUTES 

When a WORKSTN file is specified, an RPG II program 
can be coded to support one device or multiple devices. 
The supported devices can be either acquired devices or 
requestor devices. A requestor is defined as the device 
that calls, or requests, the RPG II program. A program 
that allows only one requestor is called an SRT (single 
requestor terminal) program, and a program that allows 
multiple requestors is called an MRT (multiple requestor 
terminal) program. 

The SRT and MRT attributes, which are assigned to a 
program on the COMPILE OCL statement, are external 
to the RPG II program. To change an SRT program to 
an MRT program, you must recompile the program and 
specify a value for the MRTMAX parameter. MRTMAX 
specifies the number of requestors that can be attached 
to the program. You must also add the NUM keyword 
on a continuation line for the WORKSTN file description 
specifications. NUM specifies the maximum number of 
devices that can be attached to the WORKSTN file at 
any one time. NUM must be equal to the MRTMAX 
value plus the maximum number of nonrequestor 
devices to be attached to the file at any one time. 



A WORKSTN file must be specified when the Interactive 
Communications Feature (SSP-ICF) is used. The 
WORKSTN file requires no special coding when it is 
used for SSP-ICF. The file description entries are the 
same as those for a WORKSTN file that allows an RPG 
program to communicate with a display station. In this 
chapter, a device can be either a display station or an 
SSP-ICF session. For further information on SSP-ICF, 
see the Interactive Communications Feature Reference 
Manual. 



For a more complete description of the SRT and MRT 
program attributes, see the System Support Reference 
Manual. 



Note: WORKSTN file processing is the same whether 
display stations or SSP-ICF sessions are attached to the 
file. Therefore, you should have a thorough 
understanding of WORKSTN file processing before 
attempting to use the Interactive Communications 
Feature. 
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SRT (Single Requestor Terminal) Program 

An SRT program is specified if the COMPILE OCL 
statement does not include an MRTMAX parameter 
when the program is compiled. Although an SRT 
program allows only one requestor per program, more 
than one device can execute the program concurrently. 
In this situation, the system support program product 
loads and initiates a separate copy of the program for 
each requesting device. 

An SRT program can have multiple devices attached to 
it during execution. In this situation, the requestor calls 
the program, and other devices are acquired for the 
program by use of the WORKSTN OCL statement or the 
ACQ operation code. A display station can be acquired 
if it is not attached to an executing program and if it is 
not in command mode. An SSP-ICF session can be 
acquired if it is not already attached as a requestor. A 
device acquired by the WORKSTN OCL statement or by 
the ACQ operation code can be released from the 
program by the REL operation code or by an R entry in 
column 16 of the output specifications. 



When using the SRT program attribute, keep the 
following in mind: 

• If the program is called by more than one requestor, 
each requestor has a separate copy of the program 
executing concurrently. 

• The requestor provides the external indicators (U1 
through U8). 

• The requestor provides the display station local data 
area for the data structure defined by a U in column 
18 of the input specifications. 

• Program error messages go to the requestor. 

• The program, including any acquired devices, is 
suspended via inquiry. 



The NUM keyword is required on a file description 
specifications continuation line for an SRT program that 
contains any acquired devices. The NUM keyword for 
an SRT must specify a value greater than or equal to 
the number of nonrequestor devices plus one (for the 
single requestor). 
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MRT (Multiple Requestor Terminal) Program 

An MRT program is specified by the MRTMAX 
parameter on the COMPILE OCL statement. The value 
specified on the MRTMAX parameter limits the number 
of requesting devices that the program can process 
concurrently. An MRTMAX value of one is valid and 
means that only one device can request the program 
and that multiple copies of that program are not initiated 
when more than one requestor uses the same procedure 
to call the MRT program. 

Note: Ordinarily different MRT procedures should not 
call the same MRT program because more than one ■ 
copy of the MRT program could be in storage at the 
same time. 

Each requestor of an MRT program is attached to the 
same program during execution. The first requestor of 
an MRT program causes the program to be loaded and 
initiated. Each succeeding requestor of an MRT 
program attaches to the executing program at the 
beginning of an input cycle or when a READ operation 
code is issued to the WORKSTN file. If the program is 
handling the maximum number of requestors (specified 
by the MRTMAX parameter), the next requestor of the 
program is queued by the system support program 
product. When the program releases one of its 
requestors, the program can process the queued 
request. 



When using the MRT program attribute, keep the 
following in mind: 

• If the program is called by more than one requestor, 
the first requestor: 

- Causes the program to be initiated 

- Provides external indicators (U1 through U8) 

- Provides the display station local data area for the 
data structure defined by a U in column 18 of the 
input specifications 

• Each succeeding requestor after the first becomes 
attached to the program at input time for primary 
files or upon execution of a READ operation code to 
the WORKSTN file. 

• Program error messages go to the system console 
operator. 

• Requestors may leave the program without 
suspending the program or other devices. 

• The display station local data area and external 
indicators can be made available to the program for 
each requestor if you use SUBR20 and SUBR21. 

• When inquiry is used in an MRT program, the 
processing of information from the display station 
requesting the interrupt is suspended. However, the 
program continues to process information from other 
program-requesting devices. 
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ATTACHING A DEVICE TO A PROGRAM 



WORKSTN FILE INPUT PROCESSING 



A display station or SSP-ICF session can be attached to 
an RPG II program in one of two ways: 

• As the requestor. 

• Using the ACQ operation code in the calculation 
operations. If the device is not available or is already 
attached to the program, the indicator specified in 
columns 56 and 57 is set on. 

A display station can be attached to an RPG II program 
in two additional ways: 

• The procedure that is called to execute the RPG II 
program includes a WORKSTN OCL statement with 
the parameter REQD-YES. The display station is 
attached to the program by the system support 
program product and must be available for the 
program to be initiated. 

• The procedure that calls the RPG II program contains 
a WORKSTN OCL statement with the parameter 
REQD-NO. RPG II attempts to acquire the display 
station during startup processing (see Figure 13-2). If 
the acquire attempt fails, the display station is 
deleted from the file. 

If a WORKSTN program is initiated from the input job 
queue, a device must be attached either by an OCL 
statement or by the ACQ operation code. If the device 
is not attached by one of these methods, unexpected 
results can occur. 

Note: A display station is available if it is not attached 
to any executing program and if it is not in command 
mode. An SSP-ICF session is available if it is not 
attached to any executing program. 



Figure 13-1 shows the RPG II program logic cycle and 
the steps that are affected by WORKSTN file input 
processing. All steps in the cycle except steps 1, 3, 11 
through 13, and 15 are the same as those for the 
regular RPG II program cycle. 
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WORKSTN input processing can include: 

O Saving the common IND/SAVDS area in the IND/SAVDS 
area for the device from which the last input record was read 
(if specified). 

• Getting the display station record. If the display station is 
new to the file, the record may be blank. Only the last 
input-capable display screen format can be read into the 
program. 

• Restoring the IND/SAVDS area of the device from which the 
last input record was read (if specified). 

• Inserting value into ID field (if specified). 

For a detailed explanation of WORKSTN input processing, see 
Figure 13-2 for an expansion of step 3. 

Data keyed at a display station is returned (input) to the RPG II 
program for processing when the operator presses a command 
key or the Enter/Rec Adv key. The operator can also cause the 
data to return to the program by pressing the Field Exit, Field +, 
or Field —key if the last input field in the format is defined as 
an auto record advance field (column 36 of the D specification). 

All command key indicators are turned off; then the appropriate 
one, if any, is turned on. 

Note: If an exception/error occurs on the read, the command 
key indicators are not reset. 

If the READ operation code is used, it combines steps 3, 5, 1 1, 
12, 13, and 14. If the EXCPT operation code is specified, it 
uses the ID field to direct output to the display station whose 
ID is contained in the field. 



Figure 13-1. RPG II Program Logic Cycle With a WORKSTN File 
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Step 3 of Figure 13-1, which is the WORKSTN input 
processing step, is expanded and shown in Figure 13-2. 
The following explanations refer to the steps shown in 
Figure 13-2. 

Step 3-1. RPG determines whether the IND and/or 
SAVDS continuation line option is specified 
on the file description specifications for this 
file. If neither option is specified, RPG goes 
to step 3-3. 

Step 3-2. If the IND and/or SAVDS option is specified, 
RPG moves the common IND/SAVDS area 
to the IND/SAVDS area for the device from 
which the last input record was read. 

Step 3-3. RPG determines whether this is the first cycle 
for the first requestor of the program. If it is, 
RPG goes to step 3-10. All requestors of 
the program except the first enter the 
program at step 3-10. 

Step 3-4. If the device is not a requestor, RPG 

determines whether all devices in the internal 
device table have been started. If all are 
started, the program goes to step 3-10. 

A device is started when it has been 
acquired and a successful input or output 
operation has been executed. If a device is 
acquired via the ACQ operation code, the 
device is not considered to be started unless 
output is sent to the device in the same 
cycle. 

Step 3-5. If not all devices have been started, RPG 
locates a device that has not been started. 

Step 3-6. If the device located is a display station, RPG 
determines whether it has been acquired. 



Step 3-7. If the display station has not been acquired, 
RPG calls work station data management to 
acquire the display station. 

Step 3-8. RPG determines whether the acquire was 
successful. If it was not successful, RPG 
goes back to step 3-5. 

Step 3-9. If the device is acquired, RPG creates a 
first-time blank record to satisfy the first 
read to the device. RPG then goes to step 
3-11. 

Step 3-10. RPG reads in the record from the device. 

Remember that all requestors of the program 
except the first enter the program at this 
point. 

Step 3-11. RPG determines whether WORKSTN input is 
available. If it is not, end of file has been 
reached. 

Step 3-12. RPG determines whether the IND and/or 

SAVDS continuation line option is specified 
on the file description specifications for this 
file. If an option is not specified, RPGgoes 
to step 3-14. 

Step 3-13. If the IND and/or SAVDS option is 

specified, RPG moves the IND/SAVDS area 
for the device that satisfied the read to the 
common IND/SAVDS area. 

Step 3-14. RPG inserts the device ID of the device that 
satisfied the read into the ID field if the ID 
continuation line option is specified on the 
file description specifications. 

After the WORKSTN input file processing, RPG goes to 
step 4 as shown in Figure 13-1. 
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One RPG cycle is used to start each nonrequestor, which is a device 
that has been acquired by the OCL statement // WORKSTN or by 
the RPG operation code ACQ. RPG checks each nonrequestor to 
see if an input or output operation to the device has previously 
been specified. If it has not, RPG physically acquires the device 
if necessary and creates a blank record to satisfy the first read. 

All requestors of the program except the first enter the program 
at this step. 



End of file occurs for a WORKSTN file at the time of the read if: 

• All devices have been released. 

• Input is not allowed from any of the attached display 
stations because: 

— A new format has not been displayed at the display 
station since data was last keyed. 

— Suppress input-yes is specified in column 35 of the S 
specification for the format currently displayed and no 
input-capable formats are concurrently displayed 

at the display station. 

• The program is an NEP, if all devices have been released, and 
if the operator has entered a STOP SYSTEM command. 



© 



Figure 13-2. WORKSTN File Input Processing 



•JB |f this is the first input for this device, the indicators specified 
in the IND field are off and the SAVDS field is blank. 



Steps 3-5 through 3-9 occur only for nonrequestors. 
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End-of-File Considerations 

The ways in which a primary or a demand WORKSTN 
file reaches end of file and causes the program to go to 
end of job (the LR indicator is on) are described in the 
following discussion. (For a description of the 
end-of-job steps that occur when a read under format 
is performed, see Read Under Format in this chapter.) 



Primary WORKSTN File 

For a primary file in a program that does not have an 
NEP attribute, end of file causes RPG II to set on the LR 
indicator in one of two ways. 

• The LR indicator is turned on when all devices have 
been released. Devices can be released from the 
program in one of the following ways: 

- An R entry in column 16 of the output 
specifications. The device is released when the 
output specification is encountered during the 
output operations. If a format name is specified in 
the same specifications that contain an R in 
column 16, the format is displayed or the 
interactive communications operation is performed 
and then the device is released. 

- The REL operation code. The device specified in 
factor 1 is released from the program when the 
REL operation is encountered during the 
calculation specifications unless the device is the 
requestor of a single requestor program. If the 
device specified in factor 1 is the requestor of a 
single requestor program, the device is released at 
end of job, not when the operation is encountered 
during calculations. However, no subsequent 
operations to the device are allowed. 

Note: If the device is a display station, it is still available 
for system log messages after it has been released. 

• The LR indicator is turned on when input is not 
allowed from any attached device. If the device is a 
display station, input is not allowed when: 

- A new format has not been displayed since data 
was last keyed. 

- Suppress input-yes is specified in column 35 of 
the S specification for the last format displayed 
and no input-capable formats are concurrently 
displayed at the display station. 

For information on when input is not allowed from an 
SSP-ICF session, see the Interactive Communications 
Feature Reference Manual. 



If the programmer sets on the LR indicator in this type 
of program, the program goes to end of job. 

If the program has an MRT- NEP attribute and all 
devices have been released or no input-capable formats 
are outstanding, end of file does not occur and RPG II 
does not set on the LR indicator until the system 
operator enters the STOP SYSTEM command. 
However, if the programmer sets on the LR indicator, 
the program goes to end of job (that is, the system 
operator does not have to enter the STOP SYSTEM 
command). 

Note: An MRT program should not set on the LR 
indicator until end-of-file is reached for the WORKSTN 
file. If the LR indicator is set before end-of-file is 
reached, undesirable results occur for requestors that 
are in the sign on process. 



Demand WORKSTN File 

For a demand WORKSTN file in a program that does 
not have an NEP attribute, the programmer must set on 
the LR indicator. When all devices are released from a 
demand WORKSTN file or no input-capable formats are 
outstanding, the first READ operation after the last REL 
operation causes the READ end-of-file indicator 
(columns 58 and 59) to be set on. The programmer can 
then set on the LR indicator or the LR indicator can be 
specified as the READ end-of-file indicator. 

If the program has an NEP attribute and all devices have 
been released or no input-capable formats are 
outstanding, the end-of-file indicator on the READ 
operation is not set on until the system operator enters 
a STOP SYSTEM command. However, if the 
programmer sets on the LR indicator based on some 
condition other than the end-of-file indicator on the 
READ operation, the program goes to end of job (that 
is, the system operator does not have to enter the STOP 
SYSTEM command). 
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WRITING A PROGRAM WITH A WORKSTN FILE 



Creating a Display Screen Format 

The first step in writing an RPG II program that contains 
the WORKSTN device is to define the display screen 
formats to be used. You can use the display screen 
layout sheet (GX21-9271) as shown in Figure 13-3 to 
lay out all the fields as they will appear on the display 
screen. You can then use the completed layout sheet as 
a guide for filling out the two parts (S specifications and 
D specifications) of the display screen format 
specifications (GX21-9253) as shown in Figure 13-4. 



You can also use the Screen Design Aid (SDA) to 
interactively design the display screen formats. SDA 
allows you to design the appearance and specify the 
attributes of a new display screen format before the 
format is generated. SDA generates the display screen 
format specifications for you so you do not need to fill 
out the display screen format specification sheets. You 
can also specify an option of SDA that generates RPG II 
specifications. The specifications generated are the 
control, file description, input, and output specifications 
for the WORKSTN file: 

• The control specifications have columns 52 and 53 
(number of formats) completed. 

• The file description specifications have the entries for 
a WORKSTN file completed. 

• The input and output specifications include the input 
and output fields that correspond to the input and 
output fields specified for the display screen formats. 

For a complete description of SDA, see the SDA 
Reference Manual. 
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Figure 13-3. Display Screen Layout Sheet 
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Notes: 

KB The shaded columns are not used by $SFGR to 

generate the screen formats to be used by an RPG II 
program. 

El The display screen format name used in columns 

7 through 14 of the S specifications must be entered 
on the output specifications beginning in column 45. 
The format name in the output specifications must 
be enclosed in apostrophes. 

Figure 13-4. Display Screen Format Specifications 
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Each field in the record must be described on the 
display screen format specifications. You can specify 
the following three types of fields: 

• An output field contains data that cannot be changed 
by the operator. For a normal output operation, the 
data in the field is supplied either as part of the field 
definition when the format is generated or is supplied 
by the RPG II program (and must be described on 
the output specifications) when the format is 
displayed. Whether the output data is supplied by 
the field definition or by the RPG II program depends 
on the status of the indicator specified in columns 23 
and 24 (output data) of the D specifications. Output 
data is supplied as follows: 

- If the indicator specified in columns 23 and 24 
(output data) is on, the output data comes from 
the RPG II program. 

- If the indicator specified in columns 23 and 24 
(output data) is off, the output data comes from 
the constant specified in columns 57 through 79 
of the D specification. This constant is often 
blanks. 

- For an explanation of the relationship between the 
indicator in columns 23 and 24 (output data) and 
the indicator in columns 33 and 34 (override fields) 
of the S specification, see Overriding Fields in a 
Format in this chapter. 

• An input field is a field on the display reserved for 
keyboard entry. Data for the field is entered by the 
display station operator. This field type is described 
in RPG II on the input specifications. 

• An output/input field is both displayed (output) on the 
screen and read (input) back into the program. This 
field type is described in RPG II on both the input 
and output specifications. 

All three types of fields can be used in the same display 
screen format. 



In addition to specifying the type of field, you can 
specify the type of data that can be contained in the 
field. The types of data that can be specified are: 

• Alphabetic only 

• Numeric only. If special characters are entered in an 
N-type field, the data read by the RPG program may 
not be as expected. The program uses only the digit 
portion of characters entered in an N-type field. The 
zone portion is forced to hex F, except for the sign 
position (see Zoned Decimal Format in Chapter 7). 

• Alphameric 

• Signed numeric (the last position of the field is 
reserved for a sign). For signed numeric data, the 
length of the field as specified on the display screen 
format specifications must be one more than the 
length specified on the RPG II specifications. 

You can also specify other attributes of the field, such 
as display intensity, whether the field is a blinking field, 
and whether data must be entered into the field by the 
operator. 

On the S specification, you can indicate the number of 
lines to be cleared before the format is displayed. You 
can also specify a variable starting line number for the 
format. For an example of these two functions, see the 
sample program shown in Figure 13-14. For a complete 
description of the entries that can be made on the 
display screen format specifications, see the $SFGR 
utility program in the System Support Reference Manual. 
For a summary of the possible entries, see Appendix A 
in this manual. 

When you have completed the display screen format 
specifications, use the $MAINT utility program or SEU 
to enter the specifications into a source member. Then 
run the screen format generator program ($SFGR utility 
program) to process the source specifications. For the 
display screen format load member name, the compiler 
uses the name specified as the value for the FMTS 
continuation line option. If the FMTS continuation line 
option is not specified, the compiler uses the characters 
specified in columns 75 through 80 of the control 
specifications (the program name) and adds the 
characters FM to the end of the program name. The 
format name cannot be changed after compilation. 
Figure 13-5 shows the steps for creating a display 
screen format. 
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Arrange all fields on the layout sheet, just as they will 
appear on the display screen. 



Use the completed layout sheet as a guide for filling 
out the two parts of the display screen format 
specifications. 



Use SEU or $MAINT to transfer the specifications to 
a library source member. 



Run the screen format generator utility program 
($SFGR) by entering the required control statements 
or by running the FORMAT procedure. The screen 
format generator program produces the following 
output: 

— List of source specifications 

— Diagnostic messages 

— List of information about the input and output 
records for the format 

— The display screen format (or formats) in the 
specified load member 



Figure 13-5. Steps for Creating a Display Screen Format 
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Restrictions for Using a WORKSTN File 

The following restrictions apply to the use of a 
WORKSTN file in an RPG II program: 

• Only one WORKSTN file is allowed per program. 

• A program cannot contain a KEYBORD, CRT, or 
CONSOLE file if it contains a WORKSTN file. 

• The WORKSTN file must be specified as a combined 
file (capable of both input and output). 

• If the WORKSTN file is specified as a primary file, no 
secondary files are allowed in the program. 

• Control level indicators, match field values, and 
look-ahead fields are not allowed. 

• The first page indicator (1P) is not allowed. 

• Packed and binary data should not be sent to a 
display station as output data. Such data can contain 
IBM 5251 Display Station control characters. The 
presence of 5251 control characters can cause 
undesirable results. Packed and binary data can be 
sent to an SSP-ICF session. 

• For an SRT program, output can precede input from 
the requestor in one of three ways: 

- No ID is specified. 

- The ID field contains the ID of the requestor. 

- The ID field contains blanks. 

• For an MRT program, the first input/output operation 
issued to a requestor of the program must be an 
input operation. 

• For an acquired device, output can precede input if 
the ID of the device is first placed in the ID field. 
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Command Keys 



File Description Specifications 



All 24 command keys can be used for a WORKSTN file. 
When RPG makes the data read from a display station 
available for processing, all command key indicators are 
set off. If a command key was pressed when the data 
was read into the program, the corresponding command 
key indicator is set on. You can then use the command 
key indicator to condition calculation and output 
operations. 

For example, you can specify that the operator press 
command key 2 (rather than the Enter/Rec Adv key) 
when the last item for an invoice has been keyed at the 
display station. You can then use command key 
indicator KB in the program to condition calculation 
operations and output operations, such as presenting 
the next screen to the operator. 

You can use the display screen format S specifications 
to selectively enable or disable certain command keys 
for your program. For a description of how to 
selectively enable or disable command keys, see column 
28 of the S specifications summary in Appendix A or 
see the System Support Reference Manual. For a 
discussion of how to determine whether a command key 
was pressed, see Specifications for the INFDS Data 
Structure in this chapter. 

To document the use of the command keys for the 
operator, you can use the template assignment form on 
the IBM 5251 Display Station Keyboard Template 
Assignment Sheet and Display Screen Layout Sheet. 



Control Specifications 

Columns 52 and 53 of the control specifications must 
specify the number of formats contained in the display 
screen format load member. This number must include 
all the formats in the display screen format load 
member, not just the number of formats used by the 
program. If no entry is made in columns 52 and 53, the 
program assumes an entry of 32. The entry in columns 
52 and 53 can be greater than the actual number of 
formats in the load member but not greater than 32. 



The following file description specifications must be 
made for a WORKSTN file. If multiple display stations 
are attached to the WORKSTN file or if you want to 
specify the file information data structure (INFDS) or the 
WORKSTN exception /error processing subroutine 
(INFSR), continuation lines can also be specified. The 
continuation lines are described after the file description 
specifications. 

Column Entry 

6 F (the form type). 

A valid filename. 
Must contain a C for combined file. 



7-14 

15 

16 

17-18 
19 

20-23 

24-27 

28-39 
40-46 
47-70 
71-72 

73-74 
75-80 



Must contain a P for primary file or a D 
for demand file. 

Must be blank. 

Must contain an F or be blank for 
fixed-length record. 

Must be blank. The block length equals 
the record length. 

The length of the longest record, which is 
equal to the highest end position specified 
on the input or output specifications. 

Must be blank. 

Device name WORKSTN. 

Must be blank. 

File conditioning indicators (U1 through 
U8), if needed. 

Must be blank. 

Can contain the program identification. 



For an example of the file description specifications, see 
the sample programs at the end of this chapter. 
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Continuation Line Options 



Keyword Value 



Several options can be specified for a WORKSTN file on 
the file description specifications continuation lines. 
These options can be specified if more than one device 
is attached to a WORKSTN file or if you want to specify 
the file information data structure (INFDS) or the 
WORKSTN exception/error processing subroutine 
(INFSR). To specify a continuation line, enter a K in 
column 53, the option keyword in columns 54 through 
59, and the value in columns 60 through 65 (columns 60 
through 67 can be used if the FMTS option is specified). 
For examples of specifying continuation line options, see 
Figure 13-6. 

The following keywords and values can be specified in 
columns 54 through 59 and 60 through 65 respectively: 

Keyword Value 

NUM Maximum number of devices that can be 

attached to this file at the same time. The 
number specified must be right-justified in 
columns 60 through 65. If not specified, 1 
is assumed. If specified, NUM must be 
greater than or equal to the number of 
requestors specified by the MRTMAX 
parameter on the COMPILE OCL 
statement plus the number of acquired 
devices (those specified on the 
WORKSTN OCL statement or in the ACQ 
operation). The number specified on the 
MRTMAX parameter is reserved for 
requestors. The difference between the 
MRTMAX value and the NUM value is the 
maximum number of devices 
(nonrequestors) that can be attached to 
the program at one time via OCL 
statements or the ACQ operation code. 
For example, if the MRTMAX value is 5 
and the NUM value is 6, only one 
nonrequestor device can be attached to 
the program, even if only one requestor is 
presently signed on. 

Note: If NUM is greater than 1, use 
caution when updating a file (see Update 
Files in Chapter 3). 



SAVDS Name of a data structure that is to be 
saved and restored for each device 
attached to this file. The data structure 
cannot be a display station local data 
area, a compile-time array, or a 
preexecution-time array. If SAVDS is not 
specified, no data area swapping is done. 

This data structure can contain 
information that is unique to each display 
station. For example, it can contain a field 
that is used to accumulate the number of 
records read or to store a field that is not 
used until later cycles, such as credit limit. 

IND Number of indicators, beginning with 01, 

that are to be saved and restored by the 
display station. Indicators 01 through the 
number specified here are saved and 
restored for each display station. If IND is 
not specified or if NUM equals 1, no 
indicator swapping is done. The entry 
must be right-justified in columns 60 
through 65. 

For example, error indicators or indicators 
used for security clearance may be unique 
by display station. 

Note: For SAVDS and IND, only one copy 
of the data structure and indicators is 
available at a time. The indicators and 
data structure that are available are those 
associated with the device from which the 
last input was read. 

The data structure and" indicators that are 
available change each time an input 
operation (either a primary file input or a 
demand file read) is executed. On an 
input operation, the present copy of the 
data structure and indicators in the 
program is written to a save area for the 
device from which the previous input was 
read. The data structure and indicators for 
the device now being read from are then 
written from the save area associated with 
the device to the program SAVDS and 
IND areas. For further information, see 
Figure 13-2 in this chapter. 
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Keyword Value 



Keyword Value 



SLN Name of a two-digit numeric field whose 

value determines the first line on the 
display screen where the display screen 
format is to begin if a variable starting line 
number was specified (V in column 17 of 
the display screen format S 
specifications). If SLN is not specified, all 
formats having a variable starting line 
number will begin on line 01. 

FMTS *NONE. Indicates that there are only 

^ SSP-ICF formats present in this program. 

Display screen format load member name. 
The compiler uses the name entered here 
as the display screen format load member 
name. The format load member name 
entered here can be from 1 to 8 
characters in length, left-justified in 
columns 60 through 67. If a name is not 
entered, the compiler assumes the display 
screen format load member name is the 
program name (from columns 75 through 
80 of the control specifications) with FM 
added to the end of the name. 

ID Name of a 2-character self-defining 

alphameric field (that is, the field does not 
have to be specified as an input or result 
field) that contains the ID of the device 
that supplied the record currently being 
processed in this file. The ID field is 
updated whenever a record is read from 
the WORKSTN file. Therefore, it always 
contains the identification of the device 
from which the last record was read 
(unless your program moves a different 
identification into the ID field). You can 
direct output to different devices in a 
multiple WORKSTN file by changing the 
value in this field to the symbolic ID of 
another device in the file. 

Display station IDs are in the form AX, 
where A is an alphabetic character (A-Z, 
#, @, or $) and X is any character. If a 
WORKSTN OCL statement exists for the 
display station, the ID is the same as the 
value of the SYMID parameter. 



SSP-ICF session IDs can be in two 
formats. They are either NN where N is 
numeric (0-9), or NA where N is numeric 
and A is alphabetic (A-Z, #, @, or $). If 
the format is NA, a SESSION OCL 
statement must be specified with a 
SYMID parameter whose value is also in 
an NA format. 

INFSR Name of the user-written calculation 

subroutine that may receive control when 
an exception /error occurs. This 
subroutine, referred to as the WORKSTN 
exception /error processing subroutine, is 
written by the RPG II programmer to 
handle the WORKSTN exception 
conditions or input/output errors in the 
manner best suited for the application 
program. The following WORKSTN 
operations transfer control to the INFSR 
subroutine: ACQ, REL, NEXT, POST, 
input (READ operation or primary input), 
or output (EXCPT or normal cycle output). 
If INFSR is not specified, error recovery is 
handled by RPG II. See WORKSTN 
Exception/ Error Handling in this chapter 
for more information on INFSR. 

INFDS Name of the data structure that contains 
the unique identification of the 
exception /error and the WORKSTN 
operation that caused the exception /error 
condition. This data structure is referred 
to as the WORKSTN file information data 
structure. The INFDS data structure also 
contains the display screen size (*SIZE), 
either 960 or 1920 characters, and 
information about ideographic support. If 
the INFDS data structure is not specified, 
this information is not available to the 
RPG II program. See WORKSTN 
Exception/ Error Handling in this chapter 
for more information on INFDS. 
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File Description Specifications 
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Figure 13-6. WORKSTN Continuation Line Options 



Input Specifications 

Entries for the input specifications are described in 
Chapter 7. However, the following considerations apply 
when the input file is a WORKSTN file: 

• Control level indicators (columns 59 and 60), match 
field values (columns 61 and 62), and look-ahead 
fields (columns 19 and 20) are not allowed. 

• The field location entries in columns 44 through 51 
refer to the location of the field in the input record, 
and in the case of a display station, not to the 
location of the field as it is displayed on the screen. 
The input fields are placed in the input record in the 
order in which they are described on the display 
screen format specifications. However, the line 
number and horizontal position columns on the 
display screen format specifications can be used to 
change the order in which the fields appear on the 
screen. See Figure 13-7 for an example of the 
relationship between the display screen format 
specifications and the RPG II input specifications. 



Each record including the blank record at the first 
read to a device should be identified on the input 
specifications. For display screens, specify a 
nondisplay, protected output/input field on each 
display screen format for the record code. 

The first input record read from a device is blank 
unless PDATA-YES is specified in the procedure that 
executes the program; unless the program is a 
requestor, other than the first, of an MRT program 
(see the $MAINT utility program in the System 
Support Reference Manual); or unless a read under 
format is performed (see Read Under Format in this 
chapter). 
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Source Input Screen Format Source Specifications 
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The order in which the fields are described on 
the display screen format specifications determines 
the start and end positions on the $SFGR buffer. 



RPG II Input Specifications 



0012 
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0013 
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0014 
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NS 



13 



START 

POSITION 



START 
POSITION 



END 
POSITION 

13 



END 
POSITION 



The line number and horizontal 
position columns on the display 
screen format specifications are 
used to specify the order in which 
the fields are to appear on the 
screen. 




The start and end positions specified on the 
RPG II specifications must be the same as the 
start and end positions generated for the 
$SFGR input buffer. 



Note: For the complete program in which this format is used, see WORKSTN Sample Programs later in this chapter. 
Figure 13-7. Relationship Between the RPG II Input Specifications and the$SFGR Input Buffer 
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Calculation Specifications 

Three operation codes (see Figure 13-8) are unique to a 
WORKSTN file: 

• ACQ acquires the device specified in factor 1 for the 
program. Factor 2 must contain the filename for the 
WORKSTN file. If the device is available, ACQ 
attaches it to the program. If it is not available or is 
already attached to the program, the indicator 
specified in columns 56 and 57 is set on. However, if 
no indicator is specified in columns 56 and 57 but 
the program contains the INFSR (WORKSTN 
exception /error processing) subroutine, the INFSR 
subroutine automatically receives control when an 
exception /error occurs on the ACQ operation. If no 
indicator is specified and the program does not 
contain the INFSR subroutine, the programs halts 
when an exception/error condition occurs. The 
operator can then continue the job or retry the ACQ 
operation. No input or output operation occurs when 
the ACQ operation is executed. 

• REL releases the device specified in factor 1 from the 
program. Factor 2 must contain the filename for the 
WORKSTN file. Either a requesting or a 
nonrequesting device can be released with the REL 
operation code. The specified device is released 
when the REL operation is encountered during 
calculations unless the device is the requestor of a 
single requestor program. If the device specified in 
factor 1 is the requestor of a single requestor 
program, the device is released at end of job, not 
when the operation code is encountered in the 
calculations. 



. NEXT forces the next input to the program to come 
from the device specified in factor 1. Factor 2 must 
contain the filename for the WORKSTN file. If NEXT 
is specified more than once between input 
operations, only the last operation is executed. An 
indicator can be specified in columns 56 and 57. This 
indicator is set on if an exception/error occurs on the 
NEXT operation. If columns 56 and 57 do not 
contain an indicator and an exception /error occurs, 
the program halts unless the INFSR subroutine is 
specified. If the INFSR subroutine is specified, the 
subroutine automatically receives control when an 
exception/error occurs. (For more information on the 
INFSR subroutine, see WORKSTN Exception/ Error 
Handling in this chapter.) 

The READ operation code can also be used for a 
WORKSTN file. For an SRT program, output can 
precede input from the requestor in one of three ways: 

• No ID is specified. 

. The ID field contains the ID of the requestor. 

• The ID field contains blanks. 

For an MRT program, the first input/output operation 
issued to a requestor of the program must be an input 
operation. 

For an acquired device, output can precede input if the 
ID of the device is first placed in the ID field. 



Note: If the device is a display station, the display 
station is no longer available to the program. The 
display station is available for system log messages. 

An indicator can be specified in columns 56 and 57 and 
is set on if an exception /error occurs on the REL 
operation. If columns 56 and 57 do not contain an 
indicator and an exception/error occurs, the program 
halts unless the INFSR subroutine is specified. If the 
INFSR subroutine is specified, the subroutine 
automatically receives control when an exception /error 
occurs. (For more information on the INFSR subroutine, 
see WORKSTN Exception/ Error Handling in this chapter.) 
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Indicator 15 turns on if the device identified in the field 
STN1 cannot be acquired. 
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The device identified by the field STN2 is 
released from the program. 

Figure 13-8. WORKSTN Operation Codes 



NEXT forces the next input to come from device 
1 (identified by the alphameric literal W1). 
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Output Specifications 



WORKSTIM EXCEPTION/ERROR HANDLING 



Entries for the output specifications are described in 
Chapter 9. However, the following considerations apply 
when the output file is a WORKSTN file: 

• The first page (1P) indicator is not allowed. 

• The end position entry in columns 40 through 43 
refers to the end position of the field in the output 
record. For display stations it does not refer to the 
end position of the field as it appears on the screen. 
Use the output from the $SFGR utility program as a 
guide when coding the output specifications for 
display stations (see Figure 13-9). 



The WORKSTN exception/error processing subroutine 
(INFSR) and error indicators in columns 56 and 57 of 
the WORKSTN operation codes (REL, ACQ, NEXT, 
POST, and READ) allow the programmer to control the 
program logic if exception /error conditions occur during 
WORKSTN file processing. The WORKSTN file 
information data structure (INFDS) contains status 
information that the programmer can check to determine 
what type of exception /error occurred. Using the 
information in the INFDS, the programmer can then — 
determine which exception /error conditions he wants to 
handle in the INFSR subroutine and which 
exception /error conditions he wants RPG II to handle. 



• The output fields start in position 1 . 

• For display stations, the fields must be described on 
the output specifications in the same order as they 
are described on the display screen format 
specifications. 

• A device can be released after the output is 
performed if you place an R in column 16. If OR 
lines are specified, column 16 must contain an R for 
each line. The device is released when that output 
specification is encountered during the output 
operations. If a format name is specified in the same 
specification line that contains an R in column 16, the 
format is displayed or the interactive communications 
operation is performed and then the device is 
released. 

• The display screen format name from columns 7 
through 14 of the display screen format specifications 
for this program or the predefined SSP-ICF format 
name must be specified as a constant in columns 45 
through 54. The line containing the format name 
cannot be conditioned by any indicators. You must 
also enter Kn in columns 42 and 43, where n is the 
length of the format name. For example, if the 
format name is FORM1, enter K5 in columns 42 and 
43 and 'FORM1' in columns 45 through 51. 

• One format name is required for each output record 
for the WORKSTN file. The specification of more 
than one format name per record is not allowed. 



If neither the INFSR subroutine nor error indicators are 
specified, an exception /error is handled by the RPG II 
error handling routine, which causes a program to halt 
and the operator must choose the appropriate option. 

Exception conditions refer to the input of an enabled 
function control key (Print, Roll Up, Roll Down, Clear, 
Help, or Record Backspace) to the program. The display 
screen format S specifications must be used to enable 
these function control keys for an RPG program. To 
enable the function control keys, the program must also 
contain the INFDS data structure, which will contain an 
indication of the exception/error condition, and either 
the INFSR subroutine or an error indicator specified in 
columns 56 and 57 of a READ operation. If the program 
does not contain the INFDS data structure, the program 
cannot determine whether one of the function control 
keys was pressed. No automatic programmed function 
is associated with the function control keys. The 
programmer can test the INFDS to determine whether a 
function control key was pressed and then use that 
indication as a signal from the operator to perform 
certain routines in the program. For information on how 
the function control keys are enabled, see 
Enabling /Disabling Function Control Keys in this chapter. 

Error conditions refer to input/output errors that occur 
during an implicit input/output operation (such as a 
primary file read, EXCPT output, or normal cycle output 
operations) or during an explicit input/output operation 
(such as ACQ, REL, NEXT, or READ). 



Note: When the RPG II Z edit code is used for an 
output field in a WORKSTN file and the value of the 
field is zero, RPG II sends a blank field to work station 
data management, which places a zero in the righimost 
position of a signed numeric field. 
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RPG II Output Specifications 




The line number and horizontal 
position columns on the display 
screen format specifications can 
be used to change the order in 
which the fields appear on the 
screen. 



The end positions generated for the $SFGR 
output buffer and the end positions specified 
on the RPG II output specifications must be 
the same for each field. 
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The fields on the display screen format specifications must be 
described in the same order as specified by the end positions 
in the output specifications. 

Note: For the complete program in which this format is used, see WORKSTN Sample Programs later in this chapter. 
Figure 13-9. Relationship Between the RPG II Output Specifications and the $SFGR Output Buffer 
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The INFDS data structure, if specified, contains an 
identification of the exception /error that occurred and 
an identification of the WORKSTN operation for which 
the exception /error occurred. The INFDS also contains 
status information on normal conditions (not exceptions 
or errors) such as whether a command key was pressed, 
whether end of file has occurred, or whether the size of 
the display screen is 960 or 1920 characters. The 
INFDS data structure must be specified if function 
control keys are enabled for the program or if the POST 
operation code is to be executed; otherwise the 
indication that a function control key was pressed and 
the results of the POST operation are not available to 
the program. The information in the INFDS data 
structure is updated for each WORKSTN operation; 
however, *SIZE is only updated when the POST 
operation is executed. If an exception/error condition 
occurs, the programmer can use the INFDS information 
to determine the type of exception/error that occurred 
and use that information to control the program logic or 
to control the return point from the INFSR subroutine, if 
specified. 

When an exception/error condition occurs for a 
WORKSTN operation, information in the INFDS is 
updated and control automatically passes to the INFSR 
subroutine, if specified, under the following conditions: 

• If an exception/error occurs on a primary file read, 
on EXCPT output, or on a normal cycle output 
operation 

• If an exception/error occurs on an explicit 
input/output operation (ACQ, REL, NEXT, or READ) 
that does not have an indicator specified in columns 
56 and 57 



In addition, the INFSR subroutine can be called directly 
from detail or total calculations by the EXSR operation. 

The indicator specified in columns 56 and 57 for a 
READ, ACQ, REL, POST, or NEXT operation is set on if 
an exception/error condition occurs on that operation. 
Control is then passed to the next executable statement 
in the program. If an error indicator is specified for one 
of these operations, the INFSR subroutine must be 
called by the EXSR operation if the subroutine is to be 
executed. Control does not automatically pass to the 
INFSR subroutine if the exception/error occurs on a 
READ, ACQ, REL, POST, or NEXT operation that has an 
indicator specified in columns 56 and 57. 

The relationship between these exception /error handling 
techniques is shown in Figure 13-10. These 
exception /error handling techniques are optional and 
can be used individually or in any combination. 
However, if function control keys are enabled for the 
program, the INFDS data structure and either the INFSR 
subroutine or an error indicator on the READ operation 
must be specified. The programmer can choose the 
techniques that best suit his application program. 
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Update 

* STATUS in 

INFDS 



No 





Yes 



RPG II error handling 
(program halts). If 
INFSR called by 
EXSR, returns to next 
sequential instruction 



Continue 



Set on 
indicator 



Continue 



Execute 

INFSR 

subroutine 




Go to point 
in RPG II 
cycle specified 
by factor 2 
entry on ENDSR 



*-*GETIN (beginning of new 

cycle) 1 
-*DETC (detail calculations) 1 

'CANCL (cancel program) 1 



For the exact point in the cycle that is specified by these 
keywords, see Chapter 17. 

Figure 13-10. WORKSTN Exception/Error Handling 
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Specifications for the INFDS Data Structure 

The INFDS data structure can be used to pass the 
WORKSTN file exception /error information to the RPG 
program. The INFDS data structure contains the 
identification of the type of exception /error that 
occurred and an indication of the WORKSTN operation 
that was executing when the error occurred. The INFDS 
data structure also contains status information on 
normal conditions such as whether end of file has 
occurred, whether the display screen size is 960 or 1920 
characters (*SIZE), and whether your system supports 
ideographic processing. The INFDS data structure must 
be specified if function control keys are to be enabled 
for the program. If the INFDS is not specified, this 
information is not available to the RPG II program. 



The rules for defining the INFDS data structure on the 
input specifications are the same as for any other data 
structure. However, the name of the data structure must 
be previously defined on the file description 
specifications continuation line with the INFDS keyword. 
The location of the subfields containing the status 
information in the data structure is defined by special 
keywords on the input specifications. The keywords 
must be placed left-justified in columns 44 through 50. 
These keywords identify the location of self-defining 
subfields within the data structure. The keywords are 
not labels, however, and cannot be used to reference 
the subfields. A name must be assigned in columns 53 
through 58 in order to reference the subfields (see 
Figure 13-11). The valid keywords are *STATUS, 
•OPCODE, *SIZE, "RECORD, *MODE, *INP, and *OUT. 



The name of the data structure to be used as the 
WORKSTN file information data structure must be 
specified on a continuation line for the WORKSTN file 
on the file description specifications along with the 
INFDS keyword. The entries for the continuation lines 
are: 



Column 

6 



Entry 

F 



In addition to these keyword-defined subfields, there is 
an alphameric subfield in the INFDS that contains return 
codes (see Appendix C). This subfield is filled in for all 
WORKSTN files. The subfield is located in positions 23 
through 26 and must be defined on the input 
specifications. The subfield is referenced by the name 
specified in columns 53 through 58. (For information on 
return codes resulting from the use of SSP-ICF, see the 
Interactive Communications Feature Reference Manual.) 



7-52 Must be blank 

53 K 

54-59 INFDS 

60-65 Name of the data structure to be 
used as the INFDS 

66-74 Must be blank 

75-80 Program identification (optional) 
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-STATUS Keyword 

The *STATUS keyword identifies a self-defining 
five-digit numeric subfield with zero decimal positions 
within the INFDS data structure. This subfield contains 
a five-digit code that identifies the exception /error 
condition. The codes are as follows: 



Exception/Error 

Conditions 

(Function Control Keys) 

Print 

Roll Up 

Roll Down 

Clear 

Help 

Record Backspace 

(Error Status Codes) 



Code 

01121 
01122 
01123 
01124 
01125 
01126 



Input rejected, buffer too small 


01201 


Permanent I/O error occurred 


01251 


Invalid device, or maximum 


01261 


number of display stations 




already attached 




Device busy 


01271 


Display station released by operator 


01275 


Input rejected, keyboard disabled, 


01281 


device not available or not found 




Attempt to acquire a device 


01285 


already owned 




Other input errors 


01299 


Change direction received with 


01311 


no data 




Request for change direction 


01321 


received 




Time interval expiration 


01331 



In addition, the programmer also has access to the 
following successful status codes that are placed in 
*STATUS after any input/output operation: 

Condition Code 

No exception (with 00000 

a display station, 

either the 

Enter/Rec Adv or 

Auto Record Advance 

key was pressed) 

Any of the 24 command keys 00002 



End of file (input rejected, 
no display stations ready) 



00011 



Any code in *STATUS greater than 99 is considered to 
be an exception /error condition, and the error indicator, 
if specified, is set on. If no error indicator is specified 
on an ACQ, REL, NEXT, POST, or READ operation or if 
the operation is a primary file read, normal output, or 
EXCPT output, control is automatically passed to the 
INFSR subroutine. 

For information on return codes resulting from the use 
of the Interactive Communications Feature, see the 
Interactive Communications Feature Reference Manual. 
Appendix C of this manual contains a list of return 
codes issued by WORKSTN and SSP-ICF data 
management. 



Note: If an exception /error condition occurs, RPG II 
bypasses the move field logic, no fields are changed, no 
record identifying indicators are turned on, and the 
command key indicators are not reset. 
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*OPCODE Keyword 



*INP Keyword 



The *OPCODE keyword identifies a self-defining, 
5-character alphameric subfield within the INFDS data 
structure. This subfield contains a value that identifies 
which WORKSTN operation was executing when the 
exception /error occurred. The value inserted in the 
♦OPCODE subfield is READ, ACQ, REL, NEXT, POST, or 
WRITE (for output operations). A value is inserted in the 
"OPCODE subfield when a nonzero value is placed in 
"STATUS. 



* RECORD Keyword 

The "RECORD keyword identifies a self-defining, 
8-character alphameric subfield within the INFDS data 
structure. This subfield contains the format name if 
•OPCODE contains WRITE. If *OPCODE does not 
contain WRITE, "RECORD is blank. 



*SIZE Keyword 

The *SIZE keyword identifies a self-defining, four-digit 
numeric subfield within the INFDS data structure that 
contains the identification of the character size of the 
display screen (1920 or 960). This subfield is reset each 
time the POST operation code is executed. For the 
1920-character display, the digits 1920 are stored in the 
*SIZE subfield; for the 960-character display, the digits 
0960 are stored in the *SIZE subfield. 



The *INP keyword identifies a two-digit numeric field 
that indicates if this display station is capable of 
producing ideographic characters for input to a program. 

Value Explanation 

10 The keyboard is capable of ideographic 

data entry. 
00 The keyboard is not capable of 

ideographic data entry, or is not 

input-capable. 



*0UT Keyword 

The *0UT keyword identifies a two-digit numeric field 
that indicates if this display station's display screen is 
capable of displaying ideographic characters. 

Value Explanation 

10 The display screen can display. 

ideographic characters. 
00 The display screen cannot display 

ideographic characters, or is not 

output-capable. 



-MODE Keyword 

The *MODE keyword identifies a two-digit numeric field 
that indicates if ideographic support was requested 
when the user signed on. 

Value Explanation 

10 Ideographic support was requested. 

00 Ideographic support was not requested. 
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Positions 23-26 

Positions 23 through 26 of the data structure defined as 
the INFDS contain the 4-character data management 
return code for WORKSTN files. This subfield is filled in 
for all WORKSTN files. The subfield must be defined 
on the input specifications. The subfield is referenced 
by the name specified in columns 53 through 58 of the 
input specifications. For information on RPG return 
codes for display stations, see Appendix C. For 
information on SSP-ICF return codes, see the Interactive 
Communications Feature Reference Manual. 

Note: This subfield is not updated for an *STATUS 
value of 01261 because no call is made to data 
management. If the *STATUS value is 01281, this 
subfield will not be updated unless the error occurs on a 
read or ACQ operation. 
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The keywords and predefined from and to locations in 
columns 44 through 51 define the location and size of the 
subfields in the INFDS data structure, which contain the 
status information. Field names must be assigned in columns 
53 through 58 so the subfields can be referenced in the 
program. 



Figure 13-11. Subfield Keywords for the INFDS Data Structure 
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Specifications for the INFSR Subroutine 

The INFSR subroutine can perform any function 
normally allowed in calculations, including exits to other 
calculation subroutines and input/output operations. 
The INFSR subroutine returns control to the point 
specified by the optional factor 2 entry for the ENDSR 
operation. 

Specify the INFSR keyword and the name of the 
exception /error processing subroutine on a continuation 
line for the WORKSTN file on the file description 
specifications. Valid entries for the continuation line are: 



Column 



Entry 



The rules for coding the INFSR subroutine are the same 
as for any calculation subroutine. However, the name 
specified in factor 1 must be previously defined on the 
file description specifications continuation line with the 
INFSR keyword. The INFSR subroutine returns control 
to the point specified by an optional entry in factor 2 of 
the ENDSR operation. Valid entries for factor 2 are: 

Factor 2 Description 

Blank (no entry) • If the INFSR subroutine was 
called explicitly by the EXSR 
operation, control returns to the 
operation following the EXSR 
statement. 



7-52 


Must be blank 


53 


K 


54-59 


INFSR 


60-65 


Name of the c 



66-74 
75-80 



that is to be executed if a 
WORKSTN exception /error occurs 
on a READ, ACQ, REL, POST, or 
NEXT operation for which no 
indicator is specified in columns 56 
and 57 or on implicit input/output 
operations. 

Must be blank 

Program identification (optional) 



Literal 



• If the subroutine was called 
indirectly (that is, control was 
automatically passed to the 
subroutine), the subroutine is 
executed and control is passed to 
the RPG II error handling routine, 
which in most cases causes the 
program to halt, and the operator 
must choose the appropriate 
option. 

The literal must be one of the 
following keywords. (The keyword 
must be enclosed in apostrophes.) 

'*GETIN'-Control returns to the 
beginning of a new cycle. 

'*DETC'-Control returns to the 
beginning of detail calculations. 



'*CANCL'-Files are closed and 
program is canceled. 

'-A literal value of blanks is the 
same as no entry. 
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Factor 2 



Description 



SPECIAL DISPLAY FORMAT CONSIDERATIONS 



Literal 
(continued) 



Array element or 
field name 



If an exception /error occurs on an 
operation that attempts to read data 
from a file and the exception /error 
handling subroutine receives control, 
the programmer must ensure that an 
output operation is issued to the 
WORKSTN file before another read 
is issued. Two consecutive read 
operations cannot be issued to the 
same WORKSTN file. For example, 
if the WORKSTN file is a primary 
file and the exception /error 
subroutine ENDSR statement 
specified a return point of *GETIN, 
an output operation must be issued 
to the file before the ENDSR is 
executed. The *GETIN routine will 
attempt to read from a WORKSTN 
primary file. 

The array element or field name 
specifies a 6-character alphameric 
field that contains one of the 
reserved keywords, *GETIN, *DETC, 
or *CANCL or that contains blanks 
that define the return point from the 
subroutine. The reserved keywords 
must be left-justified and padded 
with blanks in the field specified. 
By specifying the return point in a 
field, the programmer can use the 
subroutine to process all types of 
exceptions and errors that occur on 
the WORKSTN file. 



Overriding Fields in a Format 

An override operation allows you to override fields in a 
format when you redisplay the same format. To perform 
an override operation, you must specify an indicator in 
columns 33 and 34 of the S specification. An override 
operation is performed if the indicator is on when the 
format is displayed (see Figure 13-12). A normal output 
operation is performed if the indicator is off when the 
format is displayed. 

During an override operation (the indicator in columns 
33 and 34 is on), the following occurs: 

• Any field that has an indicator specified in columns 
23 and 24 of the D specification and that indicator is 
off is unchanged. If data was keyed into the field, 
that data is unchanged. Any field that had Y, N, or 
blank specified in columns 23 and 24 is also 
unchanged. 

• Any field that has an indicator specified in columns 
23 and 24 of the D specification and that indicator is 
on is displayed with data from the RPG II program. 
Any data that was keyed into the field by the 
operator is lost. Output information is displayed from 
the same locations in the output record area as for a 
normal display. 

• For all fields, the use of indicator-controlled attributes 
such as highlight or reverse image is determined by 
the state of that indicator. All field attributes that are 
not controlled by indicators are unchanged. 



If a field name or array element is specified in factor 2, 
the field or array element is set to blanks upon each exit 
from the subroutine. Therefore, the programmer can 
control the return point of the INFSR within the program 
by placing the return point in the field that best fits the 
particular exception/error that occurred. If no value is 
placed in factor 2, the subroutine is executed and 
control passes to the RPG II error handling routine if the 
subroutine was called indirectly. If the INFSR subroutine 
was explicitly called by the EXSR operation and factor 2 
is blank, control returns to the calculation immediately 
following the EXSR operation. 



For example, you may want to override fields in a 
display if the operator keys incorrect data into a field. 
To do this, specify an indicator in columns 33 and 34 of 
the S specification, which allows the format to be 
overridden. If the operator keys incorrect data into a 
field, you can then set on the indicator in columns 33 
and 34 and redisplay the format. If the indicator 
specified in columns 23 and 24 of the D specification is 
off for the field, the incorrect data is unchanged. If the 
indicator is on, data from the RPG II program is 
displayed. You can also use indicators for field 
attributes such as highlight and reverse image and set 
these indicators on when the override indicator is set 
on. 
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Read Under Format 



Processing the Duplicate Character Value {Hex 1C) 



A read under format allows one program in a procedure 
to display a format and the next program in the 
procedure to read it. The first program displays the 
format using a normal output operation and then goes 
to end of job or releases the display station. While the 
second program is initiating, the operator keys 
information into the displayed format. When the 
operator presses the Enter/ Rec Adv key, the input 
information from the display is sent to the second 
program. 

The following steps occur in a read under format: 

1. With a normal output operation, the first program 
displays a format at the display station. 

2. The first program goes to end of job (if the 
program is an SRT program) or releases the 
requesting display station (if the program is an 
MRT). The display station is released when 
column 16 of the output specifications contains an 
R, when the REL operation code is used in the 
calculations, or when the program goes to end of 
job. 

3. The second program is initiated. (Data should not 
be passed to the second program from an 
INCLUDE OCL statement.) 

4. The second program performs a normal read 
operation (either by a READ operation code or by 
a primary file input operation). 



If you specify enable dup (column 34 of the D 
specification) for a field in a display screen format, the 
operator can press the Dup key to indicate to the 
program that the contents of the field are to be 
duplicated from the field in the previous record. When 
the Dup key is pressed, the field, from the position of 
the cursor to the end of the field, is filled with the 
duplicate character value (hex 1C), which is displayed as 
the character *. The Dup key does not duplicate any 
characters; therefore, you must process the duplicate 
character values in your program. 

If you want the operator to either duplicate the entire 
field or key the entire field, you need to test only one 
character in the field to determine whether the Dup key 
was pressed. For example, you can test the last 
character in an alphameric field for the duplicate character 
value by using the TESTB operation code. If the last 
character in the field is not a duplicate character value, 
move the contents of the test field to the processing field 
(see Figure 13-13). 

You can also write your program to allow the operator 
to change the first part of a field and duplicate the latter 
part of the field. For example, if the operator changes 
the first 4 characters in a 10-character field and then 
presses the Dup key, positions 5 through 10 of the field 
will contain the duplicate character value (hex 1C). In 
your program, you then have to test each character in 
the field to determine where the first duplicate character 
occurs, and replace the appropriate positions with the 
data to be duplicated. 



Indicator in Columns 33 and 34 
of the S specification 



OFF 



ON 



Indicator in 
Columns 23 and 24 
of the D 
specification 



OFF 



ON 



Output data comes from 
D specification (columns 
57 through 79). 


No change occurs to 
data on the screen. 


Output data comes from 
the RPG II program. 


Output data comes from 
the RPG II program. 



Normal Output Operation Override Operation 
Figure 13-12. Effect of Indicators on Output Data During an Override Operation 
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Enabling/Disabling Command Keys 

The display screen format S specification allows you to 
specify in column 28 (enable command keys) that 
certain command keys be enabled or disabled for a 
format. (Normally all command keys are enabled for an 
RPG II WORKSTN program.) If the operator presses a 
disabled command key, an error message is displayed. 
The operator can press the Error Reset key and then 
press the correct command key. 

For a description of the entries required to enable or 
disable command keys, see the summary of the display 
screen format S specification in Appendix A or see the 
System Support Reference Manual. 

The INFDS data structure can be used to determine 
whether an enabled command key was pressed. For 
more information, see WORKSTN Exception /Error 
Handling in this chapter. 



Enabling/Disabling Function Control Keys 

The display screen format S specification allows you to 
specify in column 27 (enable function keys) that six 
function control keys (Print, Roll Up, Roll Down, Clear, 
Help, and Record Backspace) be enabled or disabled for 
your program. For these function control keys to be 
enabled for an RPG II program, the program must 
contain the INFDS data structure and either the INFSR 
subroutine or a READ operation with an indicator 
specified in columns 56 and 57. If the INFDS data 
structure is not specified in the program, the indication 
that a function control key was pressed is not available 
to the RPG program. 

Function control keys not supported by the program can 
be masked off (disabled) and, therefore, are not returned 
to the program. If the operator presses a disabled 
function control key, an error message is displayed. The 
operator can then press the Error Reset key, followed by 
the correct function control key. 

For a description of the entries required to enable or 
disable function control keys, see the summary of the 
display screen format S specification in Appendix A or 
see the System Support Reference Manual. 



IBM-WRITTEN SUBROUTINES SUBR20 AND 
SUBR21 



Setting and Restoring External Indicators (SUBR20) 

The IBM-written "subroutine SUBR20 allows you to set 
and restore the external indicators for each requesting 
display station when multiple display stations are 
requestors in a WORKSTN file. To call the subroutine, 
you must make the following four entries on the 
calculation specifications: 
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OP is a 1 -character field that contains an I to indicate 
that the external indicators are to be input to the 
program for this display station, or an to indicate that 
the external indicators are to be output for this display 
station. To enter the appropriate code in the OP field, 
you can use a MOVE operation before calling the 
subroutine. 

TNAME is a 2-character field that contains the work 
station ID of the display station. Normally the field you 
specify for TNAME is the same field you specified on 
the file description specifications continuation line as the 
ID field. 

RCODE is a 1 -character field that contains the following 
return code: 

= successful 

1 = unsuccessful (the display station is not 

attached to the program) 

2 = unsuccessful (the display station is not 

a requestor) 

The external indicators for the requestor of an SRT 
program are automatically available to the program 
without the use of SUBR20 and are written out at end 
of job. The external indicators for the first requestor of 
an MRT program are available without the use of 
SUBR20, but they are not automatically written out at 
end of job. 
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Figure 13-13. Testing for a Duplicate Character Value (Hex 1C) 
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Reading and Writing the Display Station Local Data 
Area (SUBR21) 



WORKSTN SAMPLE PROGRAMS 



The IBM-written subroutine SUBR21 allows you to read 
and write the display station local data area for each 
display station when multiple display stations are 
requestors in a WORKSTN file. (For a complete 
description of the display station local data area, see the 
System Planning Guide.) To call the subroutine, you 
must make the following five entries on the calculation 
specifications: 





















































Result Field 


I 
53 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

43 44 45 4S 47 43 


Length 

49 50 51 


1 

Q 
52 






















E 


X 


I 


T 






u 




u 


X 
















1 


































a 


L 


A 


5 


L 

























P 












i 


























R 


I 


A 


$1 






















T 


n 


A 


MS 








z 


























rMbL 






















R 


cb 


rk 








4 


























Rk 


ABL 






















£1*5 


A 




I 


5|eJ 


























































i 
i 








•i 
i 







OP is a 1 -character field that contains an I to indicate 
that the display station local data area is to be input to 
the program for this display station, or an O to indicate 
that the display station local data area is to be output 
for this display station. 

TNAME is a 2-character field that contains the work 
station ID for the display station. 

RCODE is a 1 -character field that contains the following 
return code: 

= successful 

1 = unsuccessful (the display station 

is not attached to the program) 

2 = unsuccessful (the display 

station is not a requestor) 



Sample Program ITMINQ 

The sample program ITMINQ displays records from the 
chained disk file INV. The display prompts the operator 
to enter an item number that is used to chain to the 
record in the disk file. If the record is found, the item 
number, description, price, onhand quantity, and 
quantity sold are displayed on line 6. If the item is not 
found, the message ITEM NOT FOUND is displayed on 
line 24. After the item record or the error message has 
been displayed, the display prompts the operator for the 
next item number. The operator enters a / (slash) to 
end the job. See Figure 13-14 for the specifications for 
ITMINQ, and see Figure 13-15 for the compiler listing 
for the program. 



Display Screen Format 

Figure 13-14 (Part 1) shows the display screen layout 
sheet that is used to format the display. The individual 
display screen format specifications ZITEM, 
SHOWITEM, and ZERROR are contained in the format 
load member ITMINQFM. (To form the format load 
member name, add FM to the end of the RPG II 
program name.) The display screen format names are 
specified as constants on the output specifications (see 
Part 4 of Figure 13-14). The end positions for these 
constants are specified as Kn, where n is the length of 
the format name. 

The fields on the D specifications for the display screen 
formats must be specified in the same order as they 
appear in the RPG II output record. However, the line , 
number and horizontal position columns can be used to 
change the order in which the fields appear on the 
screen. 



AREA is a field or data structure into which or from 
which the display station local data area is read or 
written. AREA can be up to 256 characters long. 
Position 1 of the display station local data area is always 
placed in position 1 of this field. If AREA is to be used 
to pass parameters to OCL, the special characters ? and 
/ (slash) should not be used. 

The display station local data area for the requestor of 
an SRT program or the first requestor of an MRT 
program can be referenced in RPG II if you define a 
data structure with a U in column 18 of the input 
specifications (see Chapter 7). 
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Indicator 02 is set on after the execution of the first 
READ from the display screen. This initial READ is 
satisfied by reading a blank record from the display 
screen. The ZITEM format is written to the screen on 
the next cycle because indicator 02 is on. The operator 
can then enter an item number in response to the 
ZITEM format. 

Indicator 03 is set on when the item number is read 
from the ZITEM format (position 1 does not contain a 
/). Indicator 03 causes both the ZITEM and 
SHOWITEM formats to be written to the display screen. 
The ZITEM format is not input-capable, as indicator 03 
is on (indicator 03 is specified in columns 35 and 36, 
suppress input, of the ZITEM format S specification). 
The ZITEM format is made input-capable when the 
SHOWITEM format is displayed (the SHOWITEM format 
has an N specified in columns 35 and 36 of its S 
specification, which enables the ZITEM format for 
input). The ZERROR format enables the ZITEM format 
for input in the same way. 

Note: Only the last format displayed on the display 
screen is input-capable. However, through the use of 
the suppress input facility, more than one format on the 
same display screen can be made input-capable. For 
more information on suppress input, see $SFGR— Screen 
Format Generator Utility Program in the System Support 
Reference Manual. 
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This displayed line is described by display screen format 
ZITEM. 



Lines 05 and 06 are described by display screen format 
SHOWITEM. 
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The error message is described by display screen format 
ZERROR, and the constant is described in the RPG II 
output specifications. 



The individual formats ZITEM, SHOWITEM, and ZERROR 
are contained in the format load member ITMINQFM. 



Indicator 03 suppresses input from this format until 
another format is displayed during the same RPG II 
cycle with suppress input-no specified. 
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Figure 13-14 (Part 1 of 4). 'Sample Program ITMINQ 
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These fields are described in the same order as they appear 
in the RPG II input and output records. However, the line 
number and horizontal position columns have been used to 
change the order in which the fields appear on the display 
screen. 
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Figure 13-14 (Part 2 of 4). Sample Program ITMINQ 
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The WORKSTN file is combined (C in column 15) and 
primary (P in column 16). WORKSTN record length is the 
same as the largest input or output record. 



This entry specifies the number of individual formats 
contained in the format load member, ITMINQFM. 
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Indicator 02 denotes a blank record. Most WORKSTN 
files will start with a blank record for each display 
station. Indicator 03 is used for the item number record, 
and indicator 04 is used for end of job. 

Figure 13-14 (Part 3 of 4). Sample Program ITMINQ 
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Indicator 99 is set on if the item is not found, and is used 
to condition the error message ITEM NOT FOUND (see 
the output specifications, line 11). 



Output Specifications 




An R in column 16 releases the display station from the 
program. No format name is necessary on the release. If 
one is given, the format is written to the display station, 
then the display station is released from the program. 

Figure 13-14 (Part 4 of 4). Sample Program ITMINQ 



The PRICE field is edited by RPG II (edit code 2 in 
column 38). ONHAND and PENDNG are edited by the 
RPG II L edit code. Because these fields contain 
punctuation, they cannot be used as numeric input 
fields. 
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ITMINQFM SCREEN FORMAT LOAD MEMBER 

FORMAT ZITEM REQUIRES 256 BYTES OF STORAGE 

FORMAT SHOWITEM REQUIRES 256 BYTES OF STORAGE 

FORMAT ZERROR REQUIRES 256 BYTES OF STORAGE 



Figure 13-15 (Part 1 of 2). Compiler Listing for Sample Program ITMINQ 
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RPG-0097 W NO FIELD DESCRIBED FOR THIS OR PREVIOUS RECORD OR DATA STRUCTURE. 
RPG-0305 U INDICATOR ASSIGNED BUT NOT USED TO CONDITION OPERATIONS. 



IF DATA STRUCTURE, LENGTH DEFAULTS TO ONE. 



MAIN STORAGE USAGE OF RPG II CODE 

START NAME IF CODE NAME TITLE 

ADDR OVERLAY LENGTH 

0000 0636 RGROOT ROOT 

0636 O0A8 GPGTS WORK STATION SCAN SUBROUTINE 

0752 008D RGMAIN INPUT MAINLINE 

06DE 006C RGSUBS INPUT CONTROL ROUTINE 

07DF 0062 RGSUBS RECORD IDENTIFICATION 

0841 0026 RGSUBS CONTROL FIELDS 

074A 0008 RGSUBS INPUT HOOK 

0867 06EE PPGTI WORK STATION INPUT PROCESSING 

0F55 023D PPGTD WORK STATION RETURN CODE J, *STATUS UPDATE 

119A 0037 RGMAIN DETAIL CALCULATIONS 

1192 0008 RGSUBS INPUT HOOK 

1230 0016 0PGDL DATA MANAGEMENT CALL 

11D1 005F RGSUBS CHAIN CODE 

12C4 00B1 RGMAIN DETAIL OUTPUT 
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12A3 0021 RGSUBS CONSTANTS 
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166B 0022 RGMAIN INPUT FIELDS 

168D 00A9 RGMAIN OPEN MAINLINE 

1736 0030 RGMAIN CLOSE MAINLINE 
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SLIBRARY SOURCE MEMBER INPUT LIBRARY. 

^LIBRARY LOAD MEMBER OUTPUT LIBRARY. 

0027 LIBRARY SECTORS REQUIRED FOR OBJECT PROGRAM. 

re 13-15 (Part 2 of 2). Compiler Listing for Sample Program ITMINQ 
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Sample Program IIMQPUT 

The sample program INQPUT, shown in Figure 13-16, is 
similar to the ITMINQ program. However, the override 
field function of the display screen format specifications 
is used in INQPUT to display the error message in the 
ZITEM format instead of the separate ZERROR format. 

The first display (ZITEM) prompts the operator to enter 
an item number. After the operator enters the item 
number, the program retrieves the inventory information 
and displays it with the SHOWITEM format. If the 
operator enters an item number not in the inventory file, 
the program turns on indicator 99 and redisplays the 
first format. Indicator 99 is specified in columns 33 and 
34 (override fields) of the S specification for the ZITEM 
format and is used in columns 23 and 24 of the D 
specification to condition the message field (MSG) and 
the ITEMNO field. The MSG field is displayed only 
when indicator 99 is on, and the ITEMNO field is 
displayed as a reverse image field when indicator 99 is 
on. 
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Indicator 99 is specified in columns 33 and 34 (override 
fields) of the S specification for the ZITEM format. This 
allows the program to override (modify) fields in the 
display without retransmitting the entire display. When the 
program sets on indicator 99 (when an item number does 
not exist in the inventory file), the message field (MSG) 
for line 24 is displayed and the ITEMNO field, containing 
the invalid item number, is redisplayed as a reverse image 
field. 



If indicator 05 is on, input is not allowed to the ZITEM 
display. If an invalid item number was entered, indicator 
05 is not on. If a valid item number was entered, indicator 
05 is on, which suppresses input to the ZITEM format. 
However, input is not suppressed on the SHOWITEM 
format; therefore, input is allowed to the ZITEM format 
when the SHOWITEM format is displayed. When multiple 
formats are used, a suppress input-no specification on the 
last format displayed allows the last format that contains 
input fields to accept input. 
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Figure 13-16 (Part 1 of 3). Sample Program INQPUT with Override Fields 



WORKSTN Sample Programs 13-43 





































Control 


Specifications 




















H 


Pize to 
Compile 

7 8 9 


O 
o 

10 


o 
11 


Size to 
Execute 

12 13 14 


15 


S 
(J 

5 

16 


17 18 


I 

Q 
19 


Q 
20 


21 


5 
o 

22 


Number 
Of Print 
Poiitions 

23 24 25 


< 

26 


Model 20 


37 


Model 
20 


40 


| 
41 


3 
42 


43 


3 


| 
Z 
45 


46 


I 
"o 

47 


g 

48 


49 


E 

a 
1 

50 


O 

o 
o 

51 


Refer to the specific System Reference 
•£ , Library manual for actual entries. 

If 

z £ 

52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 






Address 
to Start 

27 28 29 30 


1 

31 


1 

O 

o 

32 


O 
33 


<3 
I 

34" 


35 


36 


1 

1 

38 


O 

I 
39 


Line 

3 4 5 


E 
6 


oU 


H 


1 j 






1 1 
1 1 






| 














1 1 1 












































j£ 





File Description Specifications 





r 














File Type 




vlode of Processing 


39 




























s 

z 

1 




























: ile Addition/Unordered 




Filename 

7 8 9 10 11 12 13 14 


Q 

o 
3 

3 

15 




File Designation 


rr 

28 


Length of Key Field or 


Device 

40 41 42 43 44 45 46 


Symbolic 
Device 

47 48 49 50 51 52 


Name of 
Label Exit 


Extent Exit 
for DAM 


3 
66 


Number of Tracks 


Line 
3 4 5 


1 
E 

6 


Q 
16 










or Cylinder Overflow 






29 30 




67 




17 








Number of Extents 




sequence 


•id 

1 
31 


Type of File 
Organization 


Storage Index 


68 69 


T 


o 

18 




File Format 




Rewind 


D 
S 

19 


Block 
Length 

20 21 22 23 


Record 
Length 

24 25 26 27 




or Additional Area 


Z 

3 

cc 

70 


File 
Condition 


cc 
a 

32 


Overt 


ow Indicator 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 


Continuation Lines 


71 72 73 74 


K 
53 


Option 
54 65 56 57 58 59 


Entry 
60 61 62 63 64 65 





A 


F 


WKh 


i 




c 


P 






F 










I 


<A 


9 


























ifolRlWSTN 





























































3 i 


F 


i i 
i i 




















I 
I 




























































mm 


















1 























« 


F 


INV 


I ; ; 




I 


c 












qs 






# 


5 


R 




B 


B 


I 












i 




0I5E 



































































5 




F 


i i 


i ' ' 

i : : 































































































































6 i 


F 


' 


I : ' 































































































































T 
























z 

f 

z 

17 


o 
5 

o 

18 


2 




Record Identification Codes 


42 


rr 

43 








1 

Q 
52 53 




















F 


eld 




















& 


19 20 


l 


2 


3 




ield Name 

=4 55 56 57 5 


£ 

8 

59 60 


i 6 

61 62 


1 
63 64 


Indicators 


71 72 73 74 


Line 

3 4 5 


E 
6 


Filename 




Position 

21 22 23 24 


25 


Q 
O 

26 


i 

u 

27 


Position 
23 29 30 31 


Z 

z 

32 


Q 
O 

33 


34 


Position 
35 36 37 38 


z 

z 

39 


O 
40 


41 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 

65 66 


Minus 

67 68 


Zero 
Blank 

69 70 


7 8 9 10 11 12 13 





R 




A 

14 


N 

15 


D 
16 





1 






w 


< 












H 


5 






t 


2 








1 




c 





























































































2 




I 


_L 














NS 






P 


3 








I 


N 




/ 



























































































3 




I 






































r 










































i 








6 


If 


re/* 


« 


) 



































4 




I 
















N 


S 






4 


i 








I 




c 


/ 



























































































5 






5 


IV 












N 


5 








t 









































































































6 




I 
















































































I 








h 


I 


r£/v 


Nf 


J 



































7 




I 
















































































1 






i 


1 


w 


IHA 


NC 





































8 




I 














































































l 


2 






i 


k 


0P 


c Jp 


NC 


f 



































9 




I 














































































i 


7 






2 




5p 


gic 


e 


































1 







I 














































































2 


</ 






H 


5 





ESC 




































1 


1 




I 
































































































































1 


2 




I 

































































































































Record identifying indicator 02 is set on when the first 
record (a blank record) is read from the display station. 
Record identifying indicator 03 is set on when the 
operator enters an item number. Record identifying 
indicator 04 is set on when the operator requests end of 
job. 



Figure 13-16 (Part 2 of 3). Sample Program INQPUT with Override Fields 
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The CHAIN operation uses the ITEMNO field to retrieve 
the record from the INV file. Indicator 99 is set on if a 
record is not found in the INV file; indicator 05 is set off. 
If indicator 99 is not on, indicator 05 is set on. 
Indicator 05, if on, suppresses input to the ZITEM 
format. 
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The ZITEM format is written to the display if indicator 
02 or indicator 03 is on. The SHOWITEM format is written 
to the display if indicator 03 is on and indicator 99 is 
not on. If indicator 04 is on, the display station is 
released from the program by the R in column 16. 



Figure 13-16 (Part 3 of 3). Sample Program INQPUT with Override Fields 
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Sample Program INQRY2 

The sample program INQRY2, shown in Figure 13-17, 
is very similar to sample program ITMINQ. The only 
difference is that the WORKSTN file,WK, is processed 
as a demand file, rather than as a primary file. The display 
prompts the operator to enter an item number that is used 
to chain to the record in the disk file. Since WK is a 
demand file, the item number must be explicitly read into 
the program via the READ operation code. If the record is 
found, the item number, description, price, onhand 
quantity and quantity sold are displayed on line 6. 



If the item number does not match an item in the disk file, 
the message ITEM NOT FOUND is displayed on line 24. 
After the item record or the error message is displayed, 
the display prompts the operator for a new item number. 
The operator ends the job by entering a / (slash). 
Tigure 13-14 (parts 1 and 2) show the display screen format 
specifications for sample program ITMINQ. The same 
display screen format specifications are used for sample 
program INQRY2. For a description of these display 
screens, see Display Screen Format under Sample Program 
ITMINQ in this chapter. 
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The WORKSTN file is combined (C in column 15) and 
demand (D in column 16). WORKSTN record length is 
the same as the largest input or output record. 



This entry specifies the number of individual formats in 
the format load member, INQRY2FM. 



Figure 13-17 (Part 1 of 3). Sample Program INQRY2 
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Indicator 02 is set on when a blank record is read from 
the display station. A blank record is constructed to 
satisfy the first read to a device. Indicator 03 is set on 
when an item number is read from the display station, 
and indicator 04 is set on when a slash is read (end-of-job). 
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A WORKSTN demand file requires a READ operation 
to read data from a display station into the program. 



Indicator 99 is set on if the item is not found, and is 
used to condition the error message ITEM NOT FOUND 
(see the output specifications, lines 1 1 through 13). 



Figure 13-17 (Part 2 of 3). Sample Program INQRY2 
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An R in column 16 releases the display station from 
the program. No format name is necessary on the 
release. If one is given, the format is written to the 
display station as output, then the display station is 
released from the program; 



The PRICE field is edited by the RPG II edit code 2. 
ONHAND and PENDING are edited by the RPG II 
edit code L. 



Figure 13-17 (Part 3 of 3). Sample Program INQRY2 
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Saving Fields (SAVDS) or Indicators (IND) for a 
WORKSTN File 

When a WORKSTN file allows multiple devices 
(continuation line keyword NUM is greater than 1), 
certain fields and indicators can be placed in SAVDS 
and IND for each device. This allows you to save the 
state of an indicator or the contents of a field that is 
unique to this display station. SAVDS and IND allow 
you to save your place in the program while another 
requestor is executing the program. For more 
information on what is in the SAVDS and IND areas and 
when this information is updated, see Continuation Line 
Options in this chapter. 

For example, in the sample WORKSTN file program 
ORD (see Chapter 19), the array IQPD and its index 
should be placed in SAVDS, but the customer address 
should not. Indicator 01 (first-time indicator for each 
display station) should be placed in IND, but the other 
indicators should not. All other indicators in the sample 
program are reset before the next input record is 
processed: Indicators 10 through 13, 91, and 92 are 
record identifying indicators; indicators 96 through 99 
are reset by the CMDKEY subroutine; indicators KA, KB, 
and KC are reset on input from a display station; 
indicator 90 is reset by calculation statement 0058 or 
0098; and indicator 15 is never on at input time. 

Note: Indicators may need to be reset in the program; 
they are not always reset by RPG II in time to be useful 
to the programmer. 



The following types of fields and indicators do not need 
to be placed in SAVDS and IND: 

• Work fields that are used during one cycle (between 
input operations for the WORKSTN file), but can then 
be destroyed. For example, in the sample WORKSTN 
file program ORD (see Chapter 19), the field IQPD00 
that is moved to IQPD is a work field. The fields 
such as AMOUNT that are recalculated each time are 
also work fields. All fields in the data structure 
CRECD are output to the display screen on one cycle, 
and read in and written to disk on the next cycle; 
therefore, they do not have to be saved. 

• Job fields that are used by all display stations but are 
not destroyed. An example of a job field would be a 
field such as TOTAL1 that contains the sum of the 
total fields at the end of each order, or a field such 
as COUNT that contains a count of the remaining 
records in the file TRANS. An example of a job level 
indicator would be one that is set on if the number of 
records remaining in the TRANS file is less than 100. 
If that indicator is on, no new orders can be started. 



Using MICs with a WORKSTN File 

When a MIC (message identification code) is to be 
displayed for a WORKSTN file, the length of the 
message must be entered in the field length column of 
the display screen format specifications and the 
constant type column must contain an M. The name of 
a 6-character field or a 6-character constant must then 
be specified on the RPG II output specifications. The 
contents of the field or the constant must be in the form 
xxxxyy, where xxxx is the MIC number and yy is the 
2-character message member identifier. For a complete 
description of the message member identifier, see 
Columns 57-79 (Constant Data) under Field Definition 
Specifications in Chapter 4 of the System Support 
Reference Manual. 
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DEBUGGING WORKSTN PROGRAMS 

Because the logic for WORKSTN file processing is 
supplied by both the RPG II program and the display 
screen format specifications, it may be more difficult to 
isolate coding errors for the WORKSTN file than for 
other files. The following techniques may help you 
debug a WORKSTN program: 

• Always compare the $SFGR listing to the RPG II 
input and output specifications. The from/to and end 
positions used on the RPG II specifications must 
match the from /to and end positions listed for the 
$SFGR input and output buffers. 

• If the wrong format is displayed, check the status of 
the indicators to be certain the status is as you 
expected. If the status of the indicators is incorrect, 
the wrong format may be displayed or a correct 
format may be followed by an additional format that 
overlays and thereby hides the correct format. The 
specification of erase input (columns 31 and 32) or 
override fields (columns 33 and 34) may also cause a 
partial format to be displayed that overlays the 
correct format. 

• Always include a record type for blank records. Blank 
records can occur in one of two ways: (1) if the 
record is the first input record for a display station (in 
most programs the first input record for a display 
station is blank); (2) if N (no) is specified in column 
22 (return input) of the display screen format S 
specification and no data keys were pressed. 

• If the program goes to end of job prematurely, check 
whether all display stations have been released or 
whether Y (yes) was specified in column 35 (suppress 
input) of the S specification. Either situation can 
result in no display stations being allowed to enter 
input, which causes end of file on the WORKSTN 
file. If the program is an NEP and either of the 
preceding conditions is true and if the operator enters 
a STOP SYSTEM command, the WORKSTN file goes 
to end of file. 

• If the COMMAND display unexpectedly follows a 
program display, the program may have gone to end 
of job before any data was entered for the display 
(see the RESTORE parameter of the WORKSTN OCL 
statement in the System Support Reference Manual). 

If RESTORE- NO is specified, a display from the 
program may be on the screen after the program has 
gone to end of job so it appears as if the program is 
still executing. If RESTORE-YES is specified, the 
COMMAND display appears on the screen 
immediately when the program goes to end of job. 



Avoid using multiple formats on the same section of 
the screen until the program logic is debugged. 

During the debugging operations, display a constant 
on the screen for every format. This should help you 
analyze the screen contents. 

Use the DEBUG operation code in selected locations 
to trace the program flow. Suggested locations and 
the resulting debug information are as follows: 



Location 



Debug Information 



As first calculation Shows the contents of the 

specified input record and the 
indicator status for a primary file 



After any READ 
operation 



Before every 
EXCPT operation 



As last detail 
calculation 

After an ACQ 
operation 



After a REL 
operation 



Shows the contents of the 
specified input record and the 
indicator status for a demand 
file 

Shows the status of the 
indicators that control which 
records (formats) are to be 
produced as output 

Shows the indicator status 
before heading and detail output 

Shows the work station ID and 
the indicator off if the operation 
was successful 

Shows the display stations that 
are released from the program 



After every TAG Shows the program flow 
operation 

As first statement Shows the program flow 
in each subroutine 

Conditioned by LR Shows when the program ends 
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• After each WORKSTN output record, define a record 
with the same conditioning indicators and write that 
record to the DEBUG file (see Figure 13-18). The 
record should contain: 

- The format name 

- The work station ID, if used in the program 

- The release status if the display station is released 
in the output specifications 

- SLN (starting line number), if used in the program 

- Data fields as needed 

If the following types of error messages occur, check 
the probable causes listed: 

• Error messages involving program checks to the 
WORKSTN device are probably caused by (1) invalid 
use of erase input fields (columns 31 and 32 of the S 
specification) or (2) clearing all or a portion of the 
screen containing the input fields. 

• Error messages involving invalid WORKSTN IDs are 
probably caused by an earlier release of the display 
station in either calculation or output operations. 
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Use the same file that 
is used for DEBUG 
operations. 



Indicator 02 shows 
release status of 
display station. 



Use the same conditioning indicators for both files. 



Figure 13-18. Writing the WORKSTN Output Record to the DEBUG File 
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Chapter 14. Tables and Arrays 



Tables and arrays are systematic arrangements of data 
items having like characteristics; that is, the same field 
length, data type (alphameric or numeric), and number 
of decimal positions. A table generally contains constant 
data that is used for calculation or printing with variable 
transaction data. Arrays are generally used for variable 
data and totals that are used independently of the 
variable transaction data. Both tables and arrays are 
described on the extension specifications (see 
Chapter 4). 

Important differences exist, however, in defining and 
processing tables and arrays. Tables and arrays are 
defined in terms of when they are loaded for use by the 
program. Tables can be loaded at compile time or 
preexecution time, and arrays can be loaded at compile 
time, preexecution time, or execution time. During the 
processing of a program, tables can be searched one 
item at a time for a specific item of data with a unique 
identifier. Arrays can also be searched for a uniquely 
identified data item. Unlike tables, however, array items 
can also be referenced by their relative position to other 
items. To do this, you must provide an index to a 
specific item in the array. In addition, an entire array 
can be processed sequentially when you specify the 
array name only once in certain calculation operations. 

The following terms are used to describe tables and 
arrays: 

• Compile-time tables and arrays are loaded with the 
source program and become a permanent part of the 
object program. The initial content of a compile-time 
table or array can be changed only when the source 
program is recompiled with the revised table or array. 

• Preexecution-time tables and arrays are loaded with 
the object program before actual execution of the 
RPG II program begins; that is, before any input files 
are read, calculations are performed, or output 
functions are performed. 



• Execution-time arrays are loaded or created by input 
or calculation specifications. The arrays are loaded 
after actual execution of the RPG II program has 
begun; that is, they are read in as input data or 
created during calculations in the program. An 
execution-time array is also described on the 
extension specifications. Tables cannot be specified 
for execution time. 

• Related tables and arrays are two tables or two arrays 
that are used together. The items in the tables or 
arrays are called corresponding items; each item in 
the second table or array gives additional information 
about its corresponding item in the first table or 
array. Tables can be related or arrays can be related; 
however, a table cannot be related to an array or vice 
versa. 

Figure 14-1 shows related tables A (TABA) and B 
(TABB). An item in table A gives a part number, and 
the corresponding item in table B gives the part cost. 
Although all items within one table or array must 
have the same characteristics, corresponding items of 
related tables or arrays can have different 
characteristics. Related tables and arrays do not 
have to have the same number of entries. However, 
unpredictable results can occur if the LOKUP 
operation is used for related tables or arrays with an 
unequal number of entries (see LOKUP with Two 
Tables in Chapter 10, Operation Codes). 

• Short tables and arrays are those in which not all of 
the entries contain data. The unused entries in 
numeric tables and arrays are filled with zeros; the 
unused entries in alphameric tables and arrays are 
filled with blanks. Usually short tables or arrays are 
created if only a few table or array items are available 
when the table or array is built, but more items are to 
be included. Short tables and arrays must have at 
least one entry. 

• Full tables and arrays are those in which all possible 
entries contain data. 

• Entry is one element in a single table or array or > 
corresponding items in related tables or arrays. 
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TABA 
(part number) 



345126 



38A473 



39K143 



40B125 



41C023 
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TABB 
(unit code) 
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1297 
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3998 



87 



349 



679 



898 



47587 



Related tables TABA and TABB can be described as two 
separate table files or as one table file in alternating 
format. 



Records for TABA and TABB when described as two separate table files 
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This record contains TABA entries in positions 1 through 60. 
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This record contains TABB entries in positions 1 through 50. 



Records for TABA and TABB when described as one table file in alternating format 
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entry 


TABB 
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TABB 
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Trvis record contains TABA and TABB entries in alternating format in positions 1 through 110. 
Figure 14-1. Related Tables 
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RULES FOR CREATING TABLE OR ARRAY INPUT 
RECORDS 

Table and array input records must be formatted 
according to certain rules: 

• The first table or array entry for each input record 
must begin in position 1. 

• An entire record need not be filled with entries. If it 
is not, blanks or comments can be included after the 
entries (see Figure 14-2). 

• Each input record except the last must contain the 
same number of entries. A record can contain just 
one entry or as many entries as the record can hold. 

• Each entry must be contained entirely on one input 
record. An entry cannot be split between two 
records; thus, the length of a single entry is limited to 
the maximum record length for the input device. If 
related tables or arrays are used and are described in 
alternating format, corresponding items must be on 
the same input record; together they cannot exceed 
the maximum record length for the device. 

• Related tables or arrays can be described separately 
or in alternating format. Alternating format means 
that, together, the corresponding items are 
considered one table or array entry. 

• The number of table and/or array names or data 
structures used in a program cannot exceed 75. The 
number of compile-time tables and /or arrays cannot 
exceed 70. 



DEFINING TABLES AND ARRAYS 

All tables and arrays must be described on the 
extension specifications sheet. One line describes each 
set of table or array input records. See Chapter 4, 
Extension Specifications, for a complete description of 
the columns on the extension specifications sheet. 

If only one table or array is described, columns 1 1 
through 45 are used. If alternating tables or arrays are 
described on one set of input records, the second table 
or array is described in columns 46 through 57 of the 
same line as the first table or array. If preexecution-time 
tables and arrays are being described, entries in columns 
11 through 18 and 27 through 45 are required. Columns 
19 through 26 are used if the table or array is to be 
written at the end of the job. Columns 11 through 18 
are not used for compile-time tables and arrays or 
execution-time arrays. 

Tables and arrays can be specified in any sequence. 
Compile-time and preexecution-time tables and arrays 
can be mixed. However, the sequence in which tables 
and arrays are specified on the extension specifications 
determines the order in which they must be loaded at 
the start of the job. 



1234512345 Comments can be 

1 23451 2345 anywhere out here 

1234512345 or here 

12 3 4 5 or here (that is, after the last entry position for the longest record). 

12345 1 2345 
12345 12345 
12345 1 234 5 

12 3 4 5 If comments begin here, RPG cannot tell if you intend them as comments or if you 
provided too much data for the table/array. Therefore, it issues a warning message. 



Each of the two tables/arrays contains seven entries, each entry 5 positions long, with two entries per record. 
The last record contains only one entry. The remaining 5 positions in the last record should be left blank, 
because using these positions for comments causes warning message RPG-0333, TABLE/ARRAY FULL OR 
NO TABLES/ARRAYS FOR FOLLOWING DATA. Therefore, comments should begin after the last entry 
position for the longest record; that is, (the number of entries per record x the number of positions 
per entry) + 1. 

Figure 14-2. Table Input Record With Comments 
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Figure 14-3 shows the extension specifications required 
for the three types of arrays: 

• Line 1 specifies a compile-time array, ARC, which 
has a total of eight elements (three elements per 
record). Each element is 12 characters in length, with 
four decimal positions. 

• Line 3 specifies a preexecution-time array, ARE, to 
be read from file DISKIN. ARE has 250 alphameric 
elements (12 elements per record). Each element is 5 
characters long. The elements are arranged in 
ascending sequence. 



• Compile-time tables and arrays must not be in 
packed or binary format. 

• For compile-time arrays, the maximum length of an 
alphameric entry is 96 because the maximum length 
of a record in the source program is 96 characters. 

Figure 14-4 shows the arrangement on disk of the 
RPG II source program when compile-time tables are 
loaded. 



Preexecution-Time Tables and Arrays 



• Line 5 specifies an execution-time array, ARI, to be 
read from input records. ARI has 10 numeric 
elements, each 10 characters long with zero decimal 
positions. 

Any of these specifications can also include entries in 
columns 19 through 26 that define the name of a file to 
which the array is written at end of job and in columns 
46 through 57 that define an alternating array. 



LOADING TABLES AND ARRAYS 

Tables and arrays can be loaded at compilation time or 
preexecution time. Only arrays can be loaded at 
execution time. 



Preexecution-time tables and arrays are not part of the 
source program. They are loaded by the RPG II object 
program similar to other data files. 

Preexecution-time tables or arrays are loaded from the 
disk. The table or array file must have been created 
earlier. OCL statements are used just prior to program 
execution to identify the table or array file of the disk. If 
two or more tables or arrays are to be loaded, they 
must be loaded from different disk files. 

No error is indicated when a sequenced table or array is 
not completely filled at preexecution time, even though 
the unfilled entries are initialized to blank or zero and, 
therefore, create a logical sequence error. 



Compile-Time Tables and Arrays 

Tables and arrays loaded at compilation time are 
compiled along with the RPG II source program and 
become a part of that program. Rules for loading tables 
and arrays at compile time are as follows: 

• Compile-time tables must be entered into the system 
following the RPG II source program. See How RPG 
II Works in Chapter 1 for a description of entering the 
source program. 



Execution-Time Arrays 

To load an array from information in input records, 
describe that information in the input specifications. The 
specifications made depend on whether the array 
information is contained in one or more than one record. 
Any type of array (compile-time, preexecution-time, or 
execution-time) can be referenced in the input 
specifications. Execution-time arrays are not sequence 
checked; however, the array sequence (A or D in column 
45) must be specified if a high or low LOKUP operation 
is used. 



A record with **B in positions 1 through 3 must 
precede the first table or array input record. 

Tables and arrays must be loaded in the same order 
as they are described on the extension specifications. 

A compile-time array must have entries in columns 
33 through 35 of the extension specifications and 
must not have entries in columns 11 through 18 of 
the extension specifications. 
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Array Information In One Record 

If the array information is contained in one record, the 
information can occupy consecutive positions in the 
record or it can be scattered throughout the record. 

If the array elements are consecutive on the input 
record, the array can be loaded with a single input 
specification. Figure 14-5 shows the specifications for 
loading an array, INPARR, of six elements (12 characters 
each) from a single record from the file ARRFILE. 



If the array elements are scattered throughout the 
record, they can be defined and loaded one at a time, 
with one element described on a specification line. 
Figure 14-6 shows the specifications for loading an 
array, ARRX, of six elements with 12 characters each, 
from a single record from file ARRFILE; a blank 
separates each of the elements from the others. 

An array can be located in a data structure only if the 
whole array is contained in the data structure and all 
elements are consecutive. See Data Structure under 
Columns 19-20 in Chapter 7. 



Extension Specifications 





F 






Record Sequence of the Chaining File 


















































43 


.1 
Q 


< 

a, 

45 








Length 

of 

Entry 


I 


1 


< 


























7 8 




To Filename 

19 20 21 22 23 24 25 26 


Table or 
Array Name 

27 28 29 30 31 32 


of 

Entries 
Per 
Record 

33 34 35 


Number 
of 

Entries 
Per Table 
or Array 

36 37 38 39 


Length 

of 

Entry 

40 41 42 


Table or 




Line 

3 4 5 


E 
6 




9 10 


From Filename 

11 12 13 14 15 16 17 18 


Array Name 

(Alternating 
Format! 

46 47 ■" "" " " 


Comments 

co en en <:. c-> *i c/i r.c rsr. ki 6 8 69 70 71 72 73 74 





1 




E 










































A 


R 


C 












3 








8 




1 


2 




4 




- 


- 


Compile-time array 



















2 




E 




































































i i i i i i i i i i i i i i i ij 

























3 




E 










D 


I 


S 


K 


I 


M 






















A 


R 


E 










1 


z 




I 


5 


<L 






5 






A 


Preexecution-time array 

























4 




E 
E 


















































































: ! 1 1 1 1 1 1 1 1 1 ! II i ! 























5 












































A 


R 


I 


















1 







1 


6 




i 


_ 


- 




Execution-time array 















6 




E 












































































1 1 1 


1 1 








I I I I I I 























Figure 14-3. Extension Specifications for Three Types of Arrays 
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Figure 14-4. Arrangement of the RPG II Source Program and 
Nonalternating Compile-Time Table Data 
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Figure 14-5. Defining an Execution-Time Array With Consecutive Elements 
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Figure 14-6. Defining an Execution-Time Array With Scattered Element* 



14-6 Tables and Arrays 



The following input specifications are required for 
loading an array from a single input record: 



Column 
6 

7-42 
43 

44-47 

and 

48-51 

52 
53-58 



59-62 
63-64 



65-74 



Entry 



Blank 

P (packed), B (binary), or blank 
(zoned decimal). 

Field location of either an entire 
array (consecutive elements) or 
individual field locations of single 
elements of the array. 

This column must be left blank. 

The name of the array or the 
name of a single element (array 
name with index). This array 
name must be the same name as 
that used on the extension 
specifications. 

Blank 

Field record relation indicator. 
See Columns 63-64 (Field Record 
Relation) in Chapter 7, Input 
Specifications, for information 
on this entry. 

Blank 



Array Information in More Than One Record 

If the array information is contained in two or more 
records, many methods can be used to load the array. 
The method used is primarily based on the size of the 
array and whether the array elements are consecutive in 
the input records. Figure 14-7 shows the array that 
results when array information is loaded from more than 
one input record. Each record identified by a 1 or 3 in 
column 1 contains 6 items of array information. 
Records identified by a 2 in column 1 do not contain 
array information, although they appear in the same 
input file. Examples of loading and storing array 
information are found in Examples of Using Arrays in 
this chapter. The RPG II program processes one record 
at a time; therefore, the entire array cannot be 
processed until all of the records containing the array 
information are read and the information is moved into 
the array fields. It may, therefore, be necessary to 
suppress calculation and output operations until the 
entire array is read into the system. 



SEARCHING TABLES AND ARRAYS 

The LOKUP operation can be used to search tables and 
arrays. See Lookup Operation in Chapter 10, Operation 
Codes, for a description of how to use LOKUP. 



REFERENCING ARRAYS 

Arrays can be used in input, output, or calculation 
specifications (see Examples of Using Arrays). The 
elements in an array can be referenced individually, or 
the array can be referenced as a whole. Individual 
elements are referenced by an array name plus an index. 
The array name alone references the entire array. 



Array Name and Index 

The array name is specified beginning in column 27 or 
column 46 of the extension specifications and must be a 
valid RPG II name. The array name cannot exceed 6 
characters. 

If the entire array is to be referenced, use the array 
name alone. However, if individual elements of the array 
are to be referenced, the array name requires an index. 
The index can be a numeric field with zero decimal 
positions or an unsigned literal (no plus or minus sign). 
The index must not be zero, negative, or greater than 
the number of elements in the array. The array name 
and index must be separated by a comma (for example, 
AR,IND). The array name with comma and index can 
never be less than 3 characters long. The total length of 
an array name with comma and index usually cannot 
exceed 6 characters. However, if the array name plus 
index is specified only in factor 1 or factor 2 of the 
calculation specifications, the array name plus comma 
and index can be up to 10 characters long. 



Searching Tables and Arrays 14-7 




Resulting Array 



1 GR0UP1 004900610143069104330032 



0049 


\ 


0061 


I 


0143 


\ From 


0691 


/ record 1 


0433 


1 


0032 


J 


0076 


] 


0995 


j 


0189 


\ From 


0249 


( record 3 


0077 


1 


0043 


i 



Figure 14-7. Loading an Array from Input Records 



Some examples of array names with and without an 
index are: 



Valid 

ARAYOL 

B 

AR,1 

X,YY2 

Invalid 



First element of array AR. 
YY2 is a field name. 



BALANCE Array name has more than 6 
characters. 

6TOTAL First character is not alphabetic. 

TOTAL- Name contains special character. 

CR TOT Name contains a blank. 

A1,A1 Array is used as index. 

BAL,XX1 Name including comma has more than 
6 characters. This name is valid 
for factor 1 and factor 2 of the 
calculation specifications only. 

AR,+1 Array has invalid signed index. 



Referencing an Array in Calculations 

An entire array or individual elements in an array can be 
referenced in calculation specifications. Process 
individual elements like normal fields. Remember, if an 
array element is to be used as a result field, the array 
name with the comma and index cannot exceed 6 
characters. 

To reference an entire array, use only the array name, 
which can be used as factor 1, factor 2, or the result 
field. The following operations can be used with an 
array name: ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, 
SORT, MOVE, MOVEL, MOVEA, MLLZO, MLHZO, 
MHLZO, MHHZO, DEBUG, XFOOT, SORTA, and 
LOKUP. 

Several other operations can be used with an array 
element only, not the array name alone. These 
operations are COMP, TESTZ, BITON, BITOF, TESTB, 
KEY, SET, and MVR. 
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When specified with an array name, certain operations 
are repeated for each element in the array. These are 
ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, SQRT, MOVE, 
MOVEL, MLLZO, MLHZO, MHLZO, and MHHZO. The 
following rules apply when these operations are 
specified with an array name: 

• When factors 1 and 2 and the result field are arrays 
with the same number of elements, the operation 
uses the first element from every array, then the 
second element from every array until all elements in 
the arrays are processed. If the arrays do not have 
the same number of entries, the operation ends when 
the last element of the array with the fewest 
elements has been processed. 

• When one of the factors is a field, constant, or 
figurative constant and the other factor and the result 
field are arrays, the operation is performed once for 
every element in the shorter array. The same field, 
constant, or figurative constant is used in all of the 
operations. 

• The result field must always be an array. 

• Resulting indicators (columns 54 through 59) cannot 
be used because of the number of operations being 
performed. 



If every element of ARR1 is added to element ARR2,2 
and the result is placed in ARR2 (the RPG command 
statement-ARR1 ADD ARR2,2 ARR2 is executed), the 
elements of the result array ARR2 are: 



ARR2,1 = 10(2+8) 
ARR2,2= 12(4+8) 



ARR2,3 = 18(6+12) 



The value of ARR2,2 is now 
not 8. The new value will 
be used for the remaining 
calculations. 



MODIFYING CONTENTS OF TABLES AND ARRAYS 

Tables and arrays can be temporarily changed during the 
execution of a job when the table or array name is used 
as a result field in an arithmetic or move operation. 
(Arrays are also changed temporarily when the SORTA 
operation is executed). The appropriate entry in the 
table or array is modified for the duration of the job. 
The next time the job is executed, however, the table or 
array contains the original entries. Temporary changes 
can be made permanent if you change the table input 
records. 

Figure 14-8 shows the specifications for modifying the 
contents of related tables TABFIL and TABLIT. 



• If an operation code uses factor 2 only (such as 
Z-ADD, Z-SUB, or SQRT) and the result field is an 
array, the operation is performed once for every 
element in the array. The same field, constant, or 
figurative constant is used in all of the operations. 

If an array is used as a result field, and an element of 
that array is used as a factor, the value of that element 
becomes altered as a result of the calculation. After this 
occurs, all calculations will use the new value of the 
element. For example, consider two numeric arrays 
having the following element values: 



ARR1,1 = 2 
ARR1,2 = 4 
ARR1,3 = 6 



ARR2,1 = 2 
ARR2,2 = 8 
ARR2,3 = 1 



Adding Entries to Short Tables or Arrays 

Entries can be added to short tables and arrays before 
or during execution of the job. The simplest way to add 
entries to a table or array is to write additional entries 
on the input records before program execution. 
However, entries that are created by calculation 
operations or read from an input record can also be 
added during execution of a program. 

Figure 14-9 shows how entries are added to related 
numeric tables with the LOKUP and MOVE operations. 
Such entries are only temporary unless they are written 
in table input records. If these entries are to become a 
permanent part of the short table, they must be written 
in records and included with the other table file records. 
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TABLE AND ARRAY OUTPUT 



Editing Entire Arrays 



Entire tables and arrays can be written to an output file 
under control of RPG II at end of job when the LR 
indicator is on. To indicate that an entire table or array 
is to be written, specify the name of the output file to 
be used in columns 19 through 26 of the extension 
specifications. 

If an entire array is to be written on an output record 
(via output specifications), describe the array along with 
any normal fields for the record: 

• Columns 32 through 37 of the output specifications 
must contain the same array name used on the 
extension specifications. 



When editing is specified for an entire array, all 
elements of the array are edited. If different editing is 
required for various elements, reference them 
individually. 

When an edit code is specified for an entire array 
(column 38), two blanks are automatically inserted 
between elements in the array, that is, to the left of 
every element in the array except the first. When an 
edit word is specified instead, the blanks are not 
inserted. The edit word must contain all the blanks to 
be inserted. 



• Columns 40 through 43 of the output specifications 
must contain the record position where the last 
element of the array is to end. 

If an output record is to contain only certain elements 
from a table or array, describe the elements in the same 
way as normal fields, using either an array name with an 
index or a table name as the field name. 
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The item in TABFI L that contains 25 is to be changed to 
30. The corresponding item in TABLIT is to be changed 
to 500. The search word is the constant 25. When a 
match is found in the table TABFI L, the item from 
TABFI L and its corresponding item in TABLIT are placed 

Figure 14-8. Changing Table Data With MOVE Operations 



in their respective storage areas. The number 500 is then 
moved into the storage area for TABLIT; the number 30 
is moved into the storage area for TABFI L. The contents 
of the appropriate original table entry are now modified 
to agree with the new entry in the special storage areas. 
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The LOKUP operation is conditioned by indicator 01. 
Indicator 01 is on when a record containing information 
in the fields NEWA and NEWB is read. These fields are to 
be added to the short tables TABA and TABB respectively. 
To get the entry in the correct place in the table, a search 
is made to find the first empty entry. Unfilled entries in 

Figure 14-9. Adding Entries to Short Tables 



short numeric tables are filled with zeros. Thus, the 
search word used is 000. When the first 000 entry is 
found, indicator 35 turns on, and NEWA and NEWB are 
moved into the storage areas of the related tables TABA 
and TABB. They, in turn, become part of the tables. 
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EXAMPLE OF USING TABLES 



Input Specifications 



A payroll job requires two related tables: TABNUM is 
the search table containing employee numbers, and 
TABRAT is the related table containing employee salary 
rates (see Figure 14-10). After an employee's rate is 
found, rate is multiplied by the number of hours worked. 
The result is the amount earned. 

The table input records with eight entries in each record 
are organized in alternating format. Each table has 500 
entries. Therefore, 63 records are required. The first 62 
contain characters in positions 1 through 72 (5-character 
element in TABA plus a 4-character element in TABB, 
times eight entries per record). The last record has only 
four entries and contains characters in positions 1 
through 36. Figure 14-10 shows the RPG II 
specifications needed for the job. The following 
paragraphs explain the entries made. 



File Description Specifications 

The input records are contained in the input file 
TIMECARD, which is designated as a primary file (P in 
column 16). When this file reaches end of file, 
processing ends (E in column 17). This file is read in 
from the disk. 

The related tables are contained in the input table file. 
This file is designated as a table file by the T in column 
16. The file is read in from disk prior to execution time. 
An E is required in column 39 to show that additional 
information about the file is specified in the extension 
specifications. 



Extension Specifications 

The extension specifications complete the definition of 
the file RATETABL The table searched is TABNUM 
(columns 27 through 32), which has eight entries in each 
record (columns 33 through 35) and 500 entries in the 
table (columns 36 through 39). Each table entry is 5 
characters long (columns 40 through 42) with zero 
decimal positions (column 44). The table is organized in 
ascending sequence (column 45). 

The alternating table is TABRAT (columns 46 through 
51). Each entry is 4 characters long (columns 52 
through 54) with two decimal positions (column 56). 



The input file TIMECARD is assigned a sequence of AA 
(columns 15 and 16). Record identifying indicator 01 
turns on whenever an input record is present for 
processing. No record identification codes are specified 
in columns 21 through 41 because there is only one 
record type. Lines 02 and 03 describe the locations of 
the two input fields used by the program. The employee 
number (EMPNUM) is in positions 1 through 5 of the 
input record. The number of hours worked by the 
employee (HRSWKD) is in positions 42 through 44 of 
the input record. 



Calculation Specifications 

On line 01, factor 1 specifies the search word EMPNUM 
(employee number). The LOKUP operation code is 
specified in columns 28 through 32. Factor 2 contains 
the name of the table to be searched, TABNUM. The 
result field contains the name of the related table, 
TABRAT. 

The LOKUP operation causes the employee number 
(EMPNUM) to be used as the search word for the data 
contained in TABNUM. Indicator 03 turns on when an 
entry that is equal to the search word is found in the 
search table. 

The operation in line 02 is performed when indicator 03 
is on. The rate for the employee, taken from the related 
table TABRAT, is multiplied by the number of hours 
worked (HRSWKD). The result is stored in the field 
EARNS, which is 5 characters long with two decimal 
positions. The result is half-adjusted. 

When an equal entry is not found in TABNUM (indicator 
03 is not on), the operation in line 03 is performed. The 
literal 000.00 is then moved to the field EARNS, 
specifying that the employee does not have an entry in 
the table. 
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Figure 14-10. Related Tables Used in Payroll Job 
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EXAMPLES OF USING ARRAYS 



Building an Array Using Field Indexes 

Figure 14-11 illustrates a method of loading an array 
using fields in input records as indexes. The figure 
shows a sample 12-element array, with each element 5 
characters long. The array could be defined with any 
number of elements (to a maximum of 99) without 
additional input specifications. To do this you would 
assign different values to fields X1 through X10 on each 
input record type 03 and to fields X1 and X2 on each 
input record type 04. Succeeding type 03 records can 
then load 10 additional elements into array AR, up to 
the maximum defined in the array; each type 04 record 
can load two additional elements. 

Blanks and other fields can appear on the input records 
because the array elements and their index are identified 
by the from and to entries. 

This method requires a minimum of coding and no 
calculations to set up the array. Extra work, however, is 
required to set up the indexing scheme for the input 
records. 



Building an Array Using Fixed Indexes 

In Figure 14-12 eighteen 5-character elements of array 
AR1 are loaded with only two specification lines. On 
succeeding input specifications, other elements of AR1 
are loaded one after another until the array is full. Each 
additional element is coded on a separate line. Each 
new record requires a separate means of identification. 
For example, if another 03 record followed the first, the 
fields on the second record overlay the fields read in 
from the first record. This method works well for small 
arrays. 



Calculating Totals with Arrays 

The specifications in Figure 14-13 tabulate three levels 
of totals. As they are read from input records, the fields 
FIELDA, FIELDB, FIELDC, and FIELDD are added to the 
first level totals L1A, L1B, L1C, and L1D. These first 
level totals are added at the time of an L1 control break 
to totals L2A, L2B, L2C, and L2D. Similarly, at an L2 
control break the second level totals are added to third 
level totals L3A, L3B, L3C, L3D. In addition, as control 
breaks occur, L1, L2, and L3 total output is performed; 
and total fields are set to zeros after they are written on 
the output device. 



Figure 14-14 shows the same tabulations being 
performed on arrays. Note the reduction in coding 
required to specify the functions. For example, line 5 of 
the calculation specifications performs the same function 
as lines 5 through 8 of the calculation specifications 
shown in Figure 14-13. Similarly, the output 
specifications are reduced from 15 lines to 6. The 
method using arrays results in only two positions 
between array elements. 



Using Arrays to Format Field Output 

Figure 14-15 illustrates the use of three arrays to format 
field output. The arrays are defined as follows: 



Array. 


Number of 


Element 


Name 


Elements 


Length 


ARA 


4 


5 


ARB 


5 


10 



ARC 6 4 

Array ARA is contained in the input records with record 
identifying indicator 01, ARB in the records with record 
identifying indicator 02, and ARC in both types of 
records. Array ARC and the element of array ARA are 
to be included together in an output record as are arrays 
ARC and an element (identified by field X1) of array 
ARB. Every element in array ARC is edited according to 
the edit word 'Ob.bb&CR' (where b represents a 
blank). 

The contents of the arrays in the first two input records 
are: 

Record Array Array Contents 

1 ARA 12345678901234567890 

ARC 01 2345678901 23456789876N 
(note that N equals minus 5) 

2 ARB JOHNbDOEbbJOEbSMITHb 

LEEbMARXbbJIMbKNOTSb 
TIMbTYLERb 

ARC (the same as in record 1) 
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Figure 14-11. Building an Array Using Input Fields as Indexes 
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Figure 14-12. Building an Array Using Fixed Indexes 
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Figure 14-13. Calculating Totals Without Arrays 
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Figure 14-14. Calculating Totals With Arrays 
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Figure 14-15. Using Arrays to Format Field Output 



Examples of Using Arrays 14-19 



In the first output record, the location and contents of 
the arrays are (b represents a blank): 



Array 


Location 


Contents 


ARA 
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12345 


(first 






element) 
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37-84 


b1.23bbb45.67bbb 
89.01 bbb23.45bbb 
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For the second output record assume that the content 
of field X1 is 4; the locations and contents of the arrays 
are: 



Array 


Location 


Contents 
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element) 
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b1.23bbb45.67bbb 
89.01 bbb23.45bbb 
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Printing Array Elements 



One Element Per Line 

Figure 14-16 shows a method of printing one array 
element per line on the printer output device. The 
contents of one element of a 22-element array, AR2, are 
written to the output file ARFILE each time the 
specification in line 3 of the calculation specifications is 
performed. 



More Than One Element Per Line 

Figure 14-17 shows a method of printing more than one 
array element per line on the printer output device. The 
number of elements printed on a line depends on the 
value assigned to the compare on line 10 of the 
calculation specifications sheet. If an edit code is used, 
each array element is separated by two spaces. You 
must take these spaces into consideration when you 
compute the end position for the output specifications. 
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Figure 14-16. Printing One Array Element Per Line 
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Figure 14-17. Printing More Than One Array Element Per Line 
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14-22 Tables and Arrays 



Chapter 15. Auto Report Function 



The RPG II auto report function is a program that 
operates prior to the RPG II compiler. Auto report 
accepts special, simplified specifications and standard 
RPG II source specifications and uses them to generate 
a complete RPG II source program. Special auto report 
statements control the three separate functions of auto 
report, which can be used in any combination: 

• *AUTO page headings provide a simplified method of 
coding page headings. 

• *AUTO output provides a simplified method of coding 
output specifications. 

• /COPY statement provides a method of copying 
cataloged specifications from a library to include 
them in an RPG II source program. 



AUTO REPORT GENERATED SPECIFICATIONS 

Auto report generates a complete RPG II source 
program that is ready to be compiled from the following 
input: 

• Auto rennrt option specifications 

• *AUTO page headings and *AUTO output 
specifications in the source program 

• Standard RPG II specifications in the source program 

• Auto report /COPY statements in the source 
program, with or without modifier statements 

• Standard RPG II specifications, including tables and 
arrays, and *AUTO specifications that are copied 
from the library by the^auto report copy function 

Figure 15-1 shows an example of the RPG II 
specifications that are generated by auto report, and 
Figure 15-2 shows the general method of operation of 
the auto report function. 



Format of the Generated Specifications 

The generated specifications are in the following format: 
Column Contents 



1-4 



6-80 



Sequence number of the specification. 
This number starts as 0010 on the 
RPG II control specification and 
is incremented by 0010 on 
each specification that follows. 
If more than 999 specifications 
are present in the program, 
the sequence is restarted at 0000. 

Code that identifies the 
specification as follows: 

Blank Standard RPG II 

specification present 
in the auto report 
program. 

C Specification copied from 

the library. 

M Specification copied from 

the library and modified. 

E Specification generated 

by auto report. 

Standard RPG II specification. 



Compile-time tables and arrays are not changed by auto 
report; they remain in standard table/array record 
format. 
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From the *AUTO specifications in this example, auto 
report generates the standard RPG II calculation and out- 
put specifications shown in Part 2 of this figure. 

Figure 15-1 (Part 1 of 2). Using *AUTO Specifications, Auto Report Generates Standard RPG II Specifications 
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Figure 15-1 (Part 2 of 2). Using *AUTO Specifications, Auto Report Generates Standard RPG II Specifications 
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nput 

RPG II and 
auto report 
specifications 
in source 
library 



Auto report 
/COPY 
specifications 
in the library 



RPG II Auto Report Function 



• Merges specifications copied 
from the library with 
specifications from the 
source program. 

• Diagnoses auto report 
coding; produces a 
listing. 

• Generates RPG II source 
specifications; places 
generated source program 
in a work file. 



Output 



• Optionally, catalogs the 
generated RPG II source 
program in the library. 

• Calls the RPG II compiler 
if there are no terminal 
errors in the auto report 
coding. 



Auto report listing 

• Merged auto report 
specifications 

• Diagnostic messages 




Generated 
RPG II source 
program in 
work file 




Generated 
RPG II source 
program cataloged 
in the library 



Figure 15-2. Operations of the Auto Report Function 
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Order of Generated Specifications 



Output Specifications 



Auto report generates the specifications in the order 
required by the RPG II compiler. When specifications 
are included by means of a /COPY statement, those 
specifications are initially placed immediately after the 
/COPY statement. After all specifications are copied 
and before auto report generates RPG II specifications 
from the H-*AUTO and D/T-*AUTO specifications, the 
entire auto report source program is sorted into the 
following order: 

1. Control specifications 

2. File description specifications 

3. Extension specifications 

4. Line counter specifications 

5. Telecommunications specifications 

6. Input specifications 

7. Calculation specifications (in the order: detail, LO, 
L1 through L9, LR, and subroutines) 

8. Output specifications 

9. Tables and arrays loaded at compilation time, 
which must be placed last among the input 
statements to auto report 



Calculation Specifications 

Generated RPG II calculation specifications are placed in 
the following order by auto report: 

1 . Detail calculations specified by the programmer 

2. EXSR statement for the generated subroutine 

3. Total calculations generated by auto report, 
grouped in order by level (all LO calculations, then 
all L1 calculations, and so on) 

4. Total calculations specified by the programmer 

5. Subroutines specified by the programmer 

6. Generated RPG II subroutine that accumulates the 
lowest level total 



Output heading specifications generated for H-*AUTO 
specifications appear in the same order they are coded 
on the output specifications in relation to other RPG II 
and *AUTO output specifications for the file. 

Normally, RPG II output specifications generated from a 
D/T-*AUTO specification are in the following order: 

1. Heading specifications generated for column 
headings 

2. Detail specifications 

3. Total specifications, with the lowest level first and 
LR last 

This group of specifications is placed in the same 
relative position in the program as the original 
D/T-*AUTO specification. All other RPG II output 
specifications remain in their original order. 

If, however, the programmer specifies a normal RPG II 
total output specification conditioned by a positive 
control level indicator (no N in column 23) in columns 24 
and 25 for the file that has a D/T-*AUTO specification, 
all output specifications in the program are sorted into 
the following format: 

1. All heading, detail, and exception output 
specifications remain in the same order as they are 
in the generated RPG II source program. Total 
specifications that are not conditioned by a 
positive control level indicator in columns 24 and 
25 remain as they were in the program. 

2. Total specifications, which are conditioned by a 
positive control level indicator in columns 24 and 
25, are sorted into ascending order according to 
the control level indicator in columns 24 and 25, 
with LR last. 

See Examples of Using Auto Report in this chapter and 
Sample Auto Report Program (EXAUT2) in Chapter 19 
for examples of generated specifications. 



Comment Statements 

Comment statements (identified by an asterisk in column 
7) are allowed among the statements read by auto 
report. However, because the sorting of RPG II 
specifications is based on the contents of column 6, 
comments may not occur in the expected order. To 
ensure that comments remain with the correct 
specification, place them after that specification and put 
the same entrv in column 6. 
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Restriction 



OPTION SPECIFICATIONS 



The order of tables and arrays is not altered when the 
source specifications are sorted. Therefore, when tables 
and arrays are included from the library, they may not 
occur in the correct order after the sort. For example, if 
a file translation or alternate collating sequence table is 
present in the auto report source specifications, then 
any compile-time tables or arrays included from a library 
member are out of order. That is, the included tables or 
arrays are placed ahead of the file translation table. 
Compile-time tables and arrays must be loaded in the 
following order: 

1. File translation specifications 

2. Alternate collating sequence specifications 

3. Compile-time tables and arrays in the order 
described on the extension specifications sheet 

A solution to this restriction is to place the file 
translation and alternate collating sequence tables in the 
library and copy them from the library before any other 
compile-time tables and arrays are copied. This 
procedure ensures that the file translation and alternate 
collating sequence tables are the first compile-time 
tables in the generated RPG II source program. 



Specify options for the auto report program on the RPG 
Auto Report Specifications sheet (see Figure 1 5-3). The 
auto report option specifications are not required in the 
auto report program. If present, they must appear as 
the first specifications in the program. If they are not 
present, auto report assumes the options that 
correspond to blank entries (see individual entries for 
the meanings of the blank entries). Option specifications 
cannot be contained in a library member that is copied 
by a /COPY statement, but they can be cataloged with 
statements that are compiled when you use the 
COMPILE OCL statement. 

If RPG II control specifications (H in column 6) are not 
present either in the auto report source program or in a 
copied library member (see /COPY Statement 
Specifications), auto report generates control 
specifications with blank entries. See Chapter 2 for the 
meaning of blank entries for the control specifications. 

The following columns on the auto report specifications 
sheet are used in the same way as corresponding 
columns on standard RPG specifications sheets. See 
Common Entries in Chapter 1 for descriptions of these 
columns: 

• Columns 1-2 (page) 

• Columns 3-5 (line) 

• Columns 75-80 (program identification) 
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Column 6 (Form Type) 

Enter a U in column 6 to identify this line as an auto 
report option specification. 



Column 7 (Source) 

Entry Explanation 

Blank The generated source program 
is not cataloged. 

C The generated source program is 

cataloged in a library on disk. 

Use column 7 to specify whether the generated source 
program is to be cataloged in a library. Whether or not 
the source program is cataloged, the generated source 
program is written to a disk work file from which it is 
immediately compiled. 

Generated source programs that are cataloged become 
permanent library members (RETAIN-P). These 
members can be deleted only by the DELETE function of 
the library maintenance utility program ($MAINT) or by 
the SSP REMOVE procedure. See the System Support 
Reference Manual for information on the $MAINT 
DELETE function and on the REMOVE procedure. A 
library member cataloged by auto report, however, is 
replaced by any other library member cataloged under 
the same name. 

The generated source program is not cataloged when 
terminal errors exist in the auto report specifications. 



If F1 is entered for the library name or the library name 
is not specified, the library name defaults to the member 
name in the system library. If the member name is not 
specified or is specified incorrectly, an error results. 

If the name used by auto report to catalog the 
generated source program is the same as the name of 
an existing permanent member in the library, the old 
member is replaced by the new member. 



Columns 25-26 

Columns 25 and 26 are not used. Leave them blank. 



Column 27 (Date Suppress) 

Entry Explanation 

Blank Page number and date are included 
on the first *AUTO page heading 
line. 

N Date and page number on 

the first *AUTO page heading 
line are suppressed. 

To suppress the generated date and page number from 
printing on the first *AUTO heading line, enter an N in 
column 27. When these fields are suppressed, the page 
title and any other fields specified can occupy the entire 
line. See AUTO Page Heading Specifications for further 
information on the generated date and page numbers. 



Columns 8-24 (Source Member Reference) 

Entry Explanation 

library, Identifies the library member 
member to be cataloged. Specify the 
library name, which can be up 
to 8 characters long, beginning 
in column 8. Use a comma to 
separate the library name and 
the member name, which can also 
be up to 8 characters long. 

Make an entry in columns 8 through 24 if the generated 
source program is to be cataloged in a library (C in 
column 7). The first character of the library name and 
the member name must be alphabetic (any of the letters 
A through Z or one of the 3 special characters #, $, or 
@). The remaining characters can be alphabetic or 
numeric. 



Column 28 (^Suppress) 

Entry Explanation 

Blank Asterisks are generated for total 
output lines. 

N Asterisk indication is suppressed 

from generated total output lines. 

To suppress asterisks from printing beside generated 
totals, enter an N in column 28. See *Al/TO Output 
Specifications for rules used in generating asterisk 
indication. 



Column 29 

Column 29 is not used. Leave it blank. 
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Column 30 (List Options) 

Entry Explanation 

Blank Source program listing, headings, and 
diagnostics are printed, and a source 
program is produced if no severe errors 
are found. 

B The program listing is not 

printed; however, a source program 
is produced. 

P A partial program listing 

is printed, which includes 
appropriate headings and diagnostics. 

Column 30 provides for listing options at the time the 
auto report function is generating RPG II source 
specifications. If any severe errors in auto report 
specifications are found, the listing is completed 
(provided a listing is to be printed) and the system halts. 

The auto report source listing consists of the RPG II 
specifications included in the input to auto report, RPG 
II specifications generated by auto report, and 
specifications copied from the library. 

Use the B entry to produce a source program for which 
you already have a listing, and use the P entry to 
determine whether minor modifications to a previously 
tested program have generated any errors. 



Columns 31-74 

Columns 31 through 74 are not used. Leave them blank. 



Standard RPG II output specifications are divided into 
two general types (see Figure 15-4). 

• Record description specifications (columns 7 through 
31) describe when and where the output line is to be 
printed. One record description specification is 
required for each different type of line to be printed. 
Only the first record description for a file need 
contain a filename in columns 7 through 14. 

• Field description specifications (columns 23 through 
74) following a record description specification tell 
when, where, and how each item of data (field or 
literal) is to be printed on the output record. There 
can be several field description specifications 
following a record description specification. 

Auto report page headings and auto report output 
specifications are also divided into the two general 
categories: record description specifications and field 
description specifications. However, the use of entries 
on these specifications is different from that of entries 
for standard RPG II specifications. 

The following output specifications are not changed 
when they are used with *AUTO. See Common Entries 
in Chapter 1 for descriptions of these entries: 

• Columns 1-2 (page) 

• Columns 3-5 (line) 

• Column 6 (form type) 

• Columns 75-80 (program identification) 

Columns 71 through 74 must always be blank on auto 
report output specifications. 



*AUTO SPECIFICATIONS 

The *AUTO page heading function and the *AUTO 
output function provide simplified methods of describing 
printed output. These functions of auto report are 
requested when the characters *AUTO are present in 
columns 32 through 36 of a record description 
specification on the standard RPG output specifications 
sheet. *AUT0 can be entered on a heading, detail, or 
total specification (H, D, or T in column 15), but not on 
an exception output specification (E in column 15). Use 
*AUTO with only one printer file in the program. 



*AUTO PAGE HEADING SPECIFICATIONS 

The *AUTO page heading specifications provide an easy 
way to produce a page heading at the top of every page 
of a printed report (see Figure 15-5). Up to five *AUTO 
page heading specifications can be used for a 
multiple-line page heading. If both standard RPG II 
heading lines and *AUTO page headings are specified in 
combination for a file, they are printed in the order 
specified by the output specifications. The *AUTO page 
headings can be specified for only one printer file per 
program. 
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The heading line generated by the first *AUTO page 
heading (H-*AUTO) specification contains a date and 
page number. The first heading line can also contain a 
title. (See Field Description Specifications in this section 
for information on entering a title.) The generated date 
is left-justified and prints with slashes as mm/dd/yy 
unless the format is altered by the RPG II date or 
inverted print option (columns 19 through 21 of the 
control specifications). The generated page number is 
right-justified and is preceded by the word PAGE. The 
page number field is four digits long and is zero 
suppressed. Auto report uses one of the unused PAGE 
fields (PAGE, PAGE1 through PAGE7) for page 
numbering. If all PAGE fields are used in the program, 
auto report does not number pages. To suppress the 
date and page number on the first heading line, enter an 
N in column 27 of the auto report option specifications. 



Record Description Specifications 

Each H-*AUTO record description defines a separate 
heading line. The record description entries allow the 
programmer to specify spacing and skipping and the 
conditions under which the line is printed. 



Columns 7-14 (Filename) 

Enter the valid filename of the printer file on which the 
heading is to be printed. 



Column 15 (Type) 

Enter an H in column 15 on each record description 
specification line that defines a page heading line. The 
H and the entry *AUTO in columns 32 through 36 
define this as an H-*AUTO heading specification (see 
Figure 15-5). Up to five H-*AUTO specifications are 
allowed. 



Columns 17-22 (Spacing and Skipping) 

Enter spacing and skipping values in these columns 
according to the rules given under Columns 17-22 
(Spacing and Skipping) in Chapter 9. If these columns 
do not contain spacing and skipping values, auto report 
skips to line 06 before the first line is printed and 
spaces two after the last H-*AUTO line is printed. If 
multiple H-*AUTO lines are used, auto report spaces 
one after each line except the last. For additional 
information on generated spacing and skipping values, 
see Report Format in this chapter. 



Columns 23-31 (Output Indicators) 

On the first H-*AUTO specification, either leave columns 
23 through 31 blank or enter output indicators according 
to the rules given under Columns 23-31 (Output 
Indicators) in Chapter 9. 

If these columns are blank, auto report causes the 
corresponding output line to be printed at first page (1P) 
time in the program cycle and when overflow occurs. 
Thus, the heading is printed at the top of each page of 
the printed report. Indicators can be assigned to 
subsequent H-*AUTO specifications. If columns 23 
through 31 are blank on any H-*AUTO specification 
after the first, that specification is assigned the same 
indicators as the first. 

If an overflow indicator is specified on the file 
description specifications for the printer file, that 
indicator conditions the generated heading 
specifications. Otherwise, auto report defines an 
unused overflow indicator for the printer file and 
conditions the line with that indicator. 

AND and OR lines can be used with H-*AUTO output 
indicators if an output indicator is used with the first 
specification. Standard RPG II rules for AND and OR 
lines apply. 



Column 16 

Column 16 is not used. Leave it blank. 



Columns 32-37 (*AUTO) 

Enter *AUTO in columns 32 through 36. This entry and 
an H in column 15 of the output specifications (see 
Figure 15-5) indicate that this is an auto report heading 
line. 



Columns 38-70 

Columns 38 through 70 are not used on the record 
description line. Leave them blank. 
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Field Description Specifications 



Column 38 (Edit Codes) 



Each H-*AUTO record description specification can be 
followed by one or more field description specifications. 
The field description specifications specify the title to be 
printed on the heading line and describe any other fields 
and literals to be printed on the line. 



Columns 7-31 



An edit code can be entered in column 38 if a numeric 
field, numeric array element, or numeric element is 
named in columns 32 through 37. If an edit code is 
used, columns 45 through 70 must be blank unless 
asterisk protection or a floating currency symbol is 
specified. If column 38 is blank, no editing is done by 
auto report unless an edit word is used. 



Columns 7 through 31 are not used on field description 
specifications. Leave them blank. Output indicators in 
columns 23 through 31 cannot be used- to condition a 
field on an H-*AUTO specification. 



Column 39 (Blank After) 

Enter a B in column 39 to reset a numeric field to zeros 
after it is printed or to reset an alphameric field to 
blanks after it is printed on the heading line. 



Columns 32-37 (Field Name) 

Entry Explanation 

Blank A constant (enclosed in 

apostrophes) must be entered 

in columns 45 through 70. The constant is 

printed on the heading line. 

Field Field defined in the program 
name is printed on the heading line. 

Table A table element is printed on 
name the heading line. 

Indexed An array element is printed 
array on the heading line, 
name 

Use columns 32 through 37 to enter a field name, table 
name, or indexed array name defined elsewhere in the 
program that is to print on the heading line. If a name 
is entered, an edit word, not a constant, can be entered 
in columns 45 through 70. A constant must be entered 
in columns 45 through 70 if columns 32 through 37 are 
blank. 

If output indicators (columns 23 through 31) are left 
blank on the record description specification, auto report 
conditions all fields and table/array elements included 
on the heading line with N1P in columns 23 through 25. 
Therefore, the field or table/array element does not 
print on the first page. (If printed on the first page, the 
field may not contain meaningful data because the first 
record is not read.) N1P is not generated for the 
following RPG II reserved words: PAGE, PAGE1 through 
PAGE7, UDATE, UDAY, UMONTH, UYEAR. 

For information on formatting and centering *AUTO 
heading lines, see Report Format in this chapter. 



Columns 40-44 

Columns 40 through 44 are not used with *AUTO 
heading specifications. Leave them blank. For 
information on the positioning of fields and literals in the 
title line and centering of heading lines in relation to the 
body of the report, see Report Format in this chapter. 



Columns 45-70 (Constant or Edit Word) 

Entry Explanation 

Blank Columns 32 through 37 contain the 

name of a field that either is not 
edited or is edited by an edit code. 

Constant Title or other constant (enclosed 
in apostrophes) that is to 
appear on the printed line. 

Edit word The edit pattern used to edit the 

numeric field named in columns 32 
through 37 of the same field 
description line. 

Use columns 45 through 70 to specify the title and 
other information that is to appear on the output line 
and to edit numeric fields that are to appear on the line. 
Rules for specifying constants and edit words are 
identical to those given under Columns 45-70 (Constant 
or Edit Word) in Chapter 9, except that no end positions 
can be specified. 

For information on the positioning of fields and 
constants in the title line and centering of heading lines 
in relation to the body of the report, see Report Format 
in this chapter. 
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*AUTO OUTPUT SPECIFICATIONS 



Record Description Specifications 



Detail reports (where a line is printed for each individual 
record that is read) and group printed reports (where 
only totals are printed) can be specified by the *AUTO 
output function alone or in combination with standard 
RPG II specifications. The *AUTO output function 
generates totals and formats columns and column 
headings. 

A single detail or total *AUTO record description 
(D/T-*AUTO) specification and its associated field 
description specifications can specify: 

• Up to three lines of column headings to appear above 
a field 

• Accumulation of several levels of totals, including a 
final total (known as total rolling) 

• Generation by auto report of end positions for column 
headings and fields 

• Generation by auto report of the K edit code for 
numeric fields 

• Fields or constants to be printed next to generated 
totals 

Four types of description specifications can be 
associated with the *AUTO record description 
specification. The four types are distinguished by entries 
in column 39. The remaining entries on a field 
description specification have different meanings 
depending on the entry in column 39. 

The valid entries in column 39 of the field description 
specifications and their meanings are: 

• Blank or B: Indicates the associated field or constant 
appears on the detail line. 

• A: Indicates the associated numeric field is printed 
on the detail line and accumulated. A total is printed 
for each control level defined in columns 59 and 60 
of the input specifications for the program. A final 
total is also printed (when the LR indicator is on). 

• C; Indicates the associated constant is printed on the 
second or third line of column headings. 

• 1, 2, 3, 4, 5, 6, 7, 8, 9, R: Indicates the associated 
field or constant appears on the total line generated 
for the respective control level indicator (L1 through 
L9, LR). 

See Group Printing in this chapter for the effect of these 
entries in a group printed report. 

See Examples of Using Auto Report in this chapter for 
examples of the four types of field descriptions. 



An auto report record description specification must 
contain the entry *AUTO in columns 32 through 36. 
*AUTO can appear only on a record description 
specification. This entry indicates that the record 
description and the following field descriptions are 
redefined according to their use by auto report. 



Columns 7-14 (Filename) 

Enter the valid filename of the printer file on which the 
report is to be printed. This must be the same file 
named on H-*AUTO specifications, if any. 



Column 15 (Type) 

Entry Explanation 

D The auto report specifications 

describe a report containing 
detail lines. 

T The auto report specifications 

describe a report containing total 
lines, but no detail lines 
(group printed report). 

Enter a D in column 15 and *AUTO in columns 32 
through 36 for auto report to generate a report that 
contains detail lines. The field description specifications 
associated with the D-*AUTO record description specify: 

• Fields to appear on the detail line 

• Column headings 

• Total rolling 

• Constants to appear on total lines 

See Examples of Using Auto Report in this chapter for 
examples of D-*AUTO specifications. 

Enter a T in column 15 and *AUTO in columns 32 
through 36 for auto report to generate a group printed 
report (see Group Printing in this chapter). 

Only one detail or one total *AUTO (D/T-*AUTO) record 
description specification can be used in a program. 



15-12 Auto Report Function 



Column 16 (Fetch Overflow) 

Enter an F in column 16 to specify fetch overflow. See 
Column 16 (Fetch Overflow) in Chapter 9 for the rules 
on using fetch overflow. 

When used with the *AUTO output function, fetch 
overflow applies only to the detail line. If group printing 
is specified (T in column 15), fetch overflow applies to 
the lowest level total line to be printed. 



Columns 17-22 (Spacing and Skipping) 

Enter spacing and skipping values in columns 17 
through 22 according to the standard RPG II rules. 
Entries specified apply only to the detail line generated 
by a D-*AUTO specification or to the first total line 
generated by a T-*AUTO specification. 

Leave columns 17 through 22 blank to single space after 
each detail line printed or, if group printing is specified, 
after the first total line printed. For information on 
spacing and skipping for generated column heading and 
total lines, see Report Format in this chapter. 



Columns 23-31 (Output Indicators) 

Enter any valid output indicators in columns 23 through 
31 to condition the detail or group print line generated 
by this *AUTO specification. If these columns are left 
blank on a D-*AUTO specification, the generated detail 
line is conditioned by N1P. Therefore, it is not printed at 
first page (1P) time in the RPG II program cycle. If 
these columns are left blank for a T-*AUTO 
specification, the first generated total line is conditioned 
by the lowest control level indicator defined in the 
program. (See Group Printing for additional information 
about the use of this entry with a T-*AUTO 
specification.) 

AND and OR can be used with *AUTO output indicators 
if an output indicator is specified on the first record 
description specification. Standard RPG II rules for AND 
and OR lines apply. 

Indicators specified in columns 23 through 31 of the 
record description specification (and its associated 
AND/OR lines) apply only to the detail line generated by 
a D-*AUTO specification or the group print line (lowest 
level total specification) generated by a T-*AUTO 
specification. 



it column headings are specified in the field description 
specifications that follow this *AUTO record description, 
they are conditioned by one of the following: 

• The same indicators that are specified for the first 
H-*AUTO specification. 

• The first page (1 P) indicator in an OR relationship 
with the overflow indicator specified for the file on 
the file description specifications. If no overflow 
indicator is specified, auto report defines an unused 
overflow indicator and uses it to condition the lines. 

Restriction: If N1P is specified on a D-*AUTO record 
description specification that is followed by field 
description specifications for totaling fields (A in column 
39), the calculations generated for the totaling fields are 
also conditioned by N1P. This causes a terminal 
diagnostic in the RPG II compiler. 



Columns 32-37 (-AUTO) 

To indicate that this is an auto report specification, enter 
*AUTO in columns 32 through 36 on the record 
description line. Column 15 must contain a D or a T to 
indicate a detail or total *AUTO specification. Only one 
D/T-*AUTO specification can be used in a program. 



Columns 38-70 

Columns 38 through 70 are not used on a D/T-*AUTO 
record description specification. Leave them blank. 



Field Description (Blank or B in Column 39) 

D-*AUTO and T-*AUTO field description specifications 
containing a blank or B in column 39 describe: 

• An alphameric field such as an item description 

• A numeric field that is not totaled 

• A constant 

• A field with a literal to be used as a column heading 
(see Figure 15-6) 

A field named on the line (or a constant when no field is 
named) following a D-*AUTO record description 
specification is printed only on the detail report line. If 
the field (or constant when no field is named) on the 
line follows a T-*AUTO record description, it appears 
only on the first total line generated. 



* Auto Output Specifications 1 5-1 3 



Output Specifications 



























3 

I 

& 


~R 












































r. 


































1 1 


Filename 


Space 


Skip 


Output Indicators 


Field Name 




\> 


Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X = Remove 
Plus Sign 

Y = Date 

Field Edit 

Z = Zero 

Suppress 




71 72 73 74 




E 
6 






Line 
3 4 5 


m 


5 


19 20 


< 
21 22 


And And 


u 

(3 o 

si 

38 39 


End 
Position 

Output 
Record 

40 41 42 43 


CC 
44 




Yes 
Yes 
No 
No 


Yes 
No 
Yes 

No 


1 
2 
3 

4 


A 
B 
C 
D 


J 

K 

L 
M 


L) 


E 


L 


2 
23 


24 


25 


2 
26 


27 


28 


29 


30 


31 


"AUTO 
32 33 34 35 36 37 












A 


D 


D 


Constant or Edit Word 

•1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 • 


7 8 9 10 11 12 13 





R 




17 


18 


A 
14 


N 
15 


D 

16 


45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 





1 







s 


a 


A> 


p 


L 


£ 






D 


































ft 

F 


A 
I 


uro 











































































2 



































~ 






















£L21 
















1 


fecLCiyN 


H 


kwiM 


V 



























3 



















































FllL 


D2 







































































4 

















































































1 


\LITERf\L 




i 


/ 







































5 











































































































1 





























6 






































































































































As a result of these specifications, FIELD1 prints on each 
detail line under the heading COLUMN HEADING 1. 
Fl ELD2 and LITERAL 3 print on each detail line without 
a column heading. 

Figure 15-6. Auto Report Field Description Specifications (Blank in Column 39) 



Columns 7-22 



Columns 32-37 (Field Name) 



Columns 7 through 22 are not used on the field 
description lines. Leave them blank. 



Columns 23-31 (Output Indicators) 

Enter any valid RPG II output indicators in columns 23 
through 31 or leave them blank. If these columns are 
left blank, the field (or constant when no field is named 
on the line) is printed on each detail line conditioned by 
the indicator. When group printing is specified 
(T-*AUTO specification), the field (or constant when no 
field is named on the line) is printed each time the 
lowest level total line is printed. If a column heading is 
specified in columns 45 through 70 to appear over a 
field named in columns 32 through 37, the column 
heading is not affected by output indicators entered in 
columns 23 through 31. 



Enter a field name, data structure name, indexed array 
name, table name, or blanks in columns 32 through 37. 
If columns 32 through 37 are blank, a constant must be 
entered in columns 45 through 70 of the same field 
description specification. If a field name, data structure 
name, indexed array name, or table name is entered, the 
value of the field or element is printed on the detail line 
(or on the first total line if group printing is specified). 



Column 38 (Edit Codes) 

Enter a valid RPG II edit code in column 38 if columns 
32 through 37 contain the name of a numeric field, a 
numeric array element, or a numeric table. This column 
must be blank for alphameric fields, data structures, and 
table/array elements, and for literals. If column 38 is 
left blank on a field description line for a numeric field 
or table/array element, the auto report program provides 
a K edit code. The K edit code causes a numeric field 
or element to be printed with commas and a decimal 
point, such as 3,489.13. It also causes zero 
suppression; zero balances are not printed, and negative 
balances are printed with a minus sign on the right. 



15-14 Auto Report Function 



Column 39 (Blank After) 

Entry Explanation 

Blank Field is not to be reset to zeros 
or blank after printing. 

B Numeric field is reset to zeros 

after it is printed; alphameric 
field is reset to blanks. 

Enter a B in column 39 to reset alphameric fields or data 
structures to blanks or to reset numeric fields to zeros 
after they are printed. Blank after cannot be used for 
constants. This entry applies only to the detail line (or 
the first total line if group printing is specified). 



If a constant is entered in these columns along with a 
field name in columns 32 through 37, the constant is 
printed on the first column heading line over the field 
value. When a column heading is used, the length used 
to space the column on the report is the greater of the 
longest column heading length or the field length, 
adjusted for editing. See Report Format in this chapter 
for additional information on how columns and fields are 
centered and spaced by auto report. 

If a constant is entered in columns 45 through 70 and 
field name (columns 32 through 37) is blank, the 
constant is printed each time the detail report line is 
printed. In group printing, the constant is printed each 
time the first generated total line is printed. 



Columns 40-43 (End Position in Output Record) 

Either leave columns 40 through 43 blank or enter the 
print position of the rightmost character of the field (or 
constant if no field is named in columns 32 through 37) 
to be printed. If this column is blank, auto report 
generates end positions for fields, constants, and 
column headings. See Report Format in this chapter for 
additional information and considerations. 



Field Description (A in Column 39) 

Enter an A in column 39 of a field description 
specification following a D/T-*AUTO specification to 
accumulate and print totals for the field named in 
columns 32 through 37 (see Figure 15-7). As many 
levels of totals are printed as are defined in the control 
level entry (columns 59 and 60) on input specifications. 
A final total is also printed when the LR indicator is on. 
(This process is called total rolling.) 



Column 44 

Column 44 is not used because packed and binary data 
cannot be specified. Leave this column blank. 



If group printing is specified and a control level indicator 
higher than the lowest defined control level is specified 
in columns 23 through 31 on the record description 
specification, totals are generated for the indicator 
entered, all higher defined indicators, and LR. 



Columns 45-70 (Constant) 

Enter a constant or blanks in columns 45 through 70 
when column 39 contains a blank. Constants are 
enclosed in apostrophes according to the standard RPG 
II rules for coding constants. If these columns are left 
blank, a field name, data structure name, indexed array 
name, or table name must be entered in columns 32 
through 37. Column heading continuation lines can 
follow this field description line, but the first line of the 
printed column heading will be blank. See Field 
Description (C in Column 39). 



The total output record generated by auto report if you 
have entered an A in column 39 of a field description 
specification is conditioned by the associated control 
level indicator defined in the input specifications. One 
total output record is generated for each control level 
indicator defined in the program. 



*Auto Output Specifications 1 5-1 5 



Output Specifications 




Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X ■= 
Y = 


Remove 
Plus Sign 
Date 


Yes 


Yes 


1 


A 


.1 


Yes 


No 


2 


B 


K 




Field Edit 


No 


Yes 


3 


C 


1 


Z - 


Zero 


No 


No 


4 


D 


M 




Suppress 



Constant or Edit Word 

9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 



45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 ( 



71 72 73 74 



HEAPING' 



The A in column 39 causes the AMOUNT field to be 
accumulated. Totals are printed for each control level 
and a final total is printed. A column heading is specified 
in columns 45 through 70. 

Figure 15-7. Describing a Field That is to be Accumulated 



Generated Total Fields 

When an A is specified in column 39 of a detail or total 
*AUTO field description specification, auto report 
generates and names total fields to be used in 
accumulating the required levels of totals. Auto report 
generates the field names for the total fields. based on 
the name in columns 32 through 37 of the A-type field 
description. Names are generated in the following way: 

• If the specified field name has fewer than 6 
characters, 1 character is added to the name to 
create a name for the total field. The added character 
is 1 through 9 or R, corresponding to the total 
indicators L1 through L9 and LR, respectively. For 
example, if ITEM is the specified field name and all 
nine control levels are defined, the generated field 
names are ITEM1, ITEM2, ... ITEM9, and ITEMR. 

• If the specified field name has 6 characters, the last 
character is replaced by one of the characters, 1 
through 9, or R. For example, if AMOUNT is the 
specified field name and all nine control levels are 
defined, the generated field names are AMOUN1, 
AMOUN2, ... AMOUN9, and AMOUNR. 



Total fields are generated and named for all control level 
indicators defined in the program and for LR. (For an 
exception to this rule, see Figure 15-11 under Group 
Printing.) For example, if L1 and L3 are assigned to 
control fields on the input specifications and the field 
QTY is specified, three total fields, QTY1, QTY3, and 
QTYR are generated and named by auto report. All total 
fields generated for the same level, such as QTY1 and 
AMOUN1, are printed on the same total line, and that 
line is conditioned by the corresponding control level 
indicator. 

Generated total fields are two digits longer than the 
original field. For example, if the field QTY is defined 
with a length of three, QTY1, QTY3, and QTYR all have 
lengths of five. The number of decimal positions 
remains the same in the generated fields. You can 
redefine a field name previously defined in a program 
that is the same as a generated field name, giving that 
field whatever length and number of decimal positions 
you want. If you do this, the generated field is assigned 
the previously defined length and number of decimal 
positions (if the previous field is numeric). 
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Considerations 

Generated field names can be referenced in RPG II 
specifications that are included in the program. The 
programmer must be aware, however, that the use of 
generated fields in this way can interfere with the 
automatic accumulation of totals performed by auto 
report. 

Field names ending in 1 through 9 or R should not be 
used in an auto report program that accumulates totals, 
because auto report generates total fields ending in 
those characters. This is especially important for 
6-character field names because auto report forms total 
field names by replacing the last character with 1 
through 9 or R. No field name can be used more than 
once with an A in column 39. Also, if a 5- or 
6-character field name is specified with an A in column 
39, a second 5- or 6-character field name in which the 
first 5 characters are identical cannot be specified with 
an A in column 39. For example, if the following four 
field names are specified with an A in column 39 in an 
auto report specification, all but the first are invalid: 



FIELD 
FIELDX 



FIELDY 



FIELD 



Invalid because the first 5 
characters duplicate the first 
5 characters of the first field. 

Invalid for the same reason as 
that for FIELDX. 

Invalid because it is a duplicate 
of the first field. 



Columns 7-22 



If a column heading is specified in columns 45 through 
70 to appear over a field named in columns 32 through 
37, the column heading is not affected by output 
indicators entered in these columns. Also, output 
indicators specified when column 39 contains an A do 
not affect the generation of calculations for the field. 

Output indicators specified on an A-type field 
description specification following a D-*AUTO 
specification condition the calculations generated for the 
field. If the A-type field description follows a T-*AUTO 
specification, however, a specified indicator does not 
condition calculations generated for the field. 



Columns 32-37 (Field Name) 

When column 39 contains an A, the name of a numeric 
field that is to be accumulated must be entered in 
columns 32 through 37. These columns cannot identify 
an array, array element, or table. The field named is 
printed on each detail line of the report. If group 
printing is specified, the total field for the lowest control 
level indicator defined (L1, L2, ... L9, LR, in that order) is 
printed on the generated total line. (For an exception to 
this rule, see Figure 15-11 under Group Printing.) 
Totaling for any particular field by means of an A entry 
in column 39 can be specified only once in each 
program. 

To generate calculation and output specifications that 
accumulate and print the various levels of totals 
required, auto report creates and names additional 
totaling fields. Names for the fields are constructed 
based on the field name specified in these positions 
according to a set of rules (see Generated Total Fields). 



Columns 7 through 22 must remain blank on the field 
description lines. 



Columns 23-31 (Output Indicators) 

Enter any valid RPG II output indicators in columns 23 
through 31 or leave them blank. If these columns are 
blank, the field described is printed on each detail line. 
If indicators are entered in columns 23 through 31, the 
field is printed only when the conditions represented by 
those indicators are met. Leave these columns blank for 
group printing. 



Column 38 (Edit Codes) 

Enter an edit code in column 38 or leave it blank. If this 
column is blank, auto report generates a K edit code for 
the field named in columns 32 through 37. This causes 
the field to be edited with commas and a decimal point, 
such as 1,234,567.89. The field is also zero 
suppressed. Zero balances are not printed; negative 
balances are printed with a minus sign on the right. The 
edit code specified, or the generated K edit code, 
applies to all generated total fields as well as to the field 
named in columns 32 through 37. 
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Column 39 



Columns 40-43 (End Position in Output Record) 



Enter an A in column 39 to indicate that totals are to be 
accumulated for the field named in columns 32 through 
37 of this field description. A total is printed for every 
control level indicator defined in the input specifications 
and for the LR indicator. When column 39 contains an 
A, columns 32 through 37 must contain the name of a 
numeric field. Columns 45 through 70 can contain a 
constant to be used as the first line of a column 
heading. (See Generated Specifications for additional 
information.) 

When the lowest control level indicator used for a 
T-*AUTO specification is higher than the lowest control 
level indicator defined in the input specifications, auto 
report generates only the total lines corresponding to 
the lowest control level indicator used for the T-*AUT0 
specification, the higher defined control levels, and LR 
(see Group Printing). 



Resetting Total Fields to Zero: When column 39 
contains an A, the auto report program generates a B 
(blank after) in column 39 of all the detail and total field 
description specifications generated from the field name 
specified. Thus, the value in the specified field and in 
any generated fields is reset to zero after the field value 
is printed. 

If group printing is specified, auto report generates a 
calculation to reset the specified field to zero on each 
cycle. This prevents the same value from being 
accumulated more than once. An unconditioned total 
calculation operation (Z-ADD) sets the field value to 
zero. This calculation is the first total calculation in the 
generated RPG II source program. 



Asterisk Indication: To indicate that a printed line is a 
generated total line, asterisks are printed on the line to 
the right of the highest end position generated from the 
D/T-*AUTO specification. One asterisk is printed to the 
right on the lowest level total line generated. One 
additional asterisk is printed on each higher level line, 
including the final total. 

For example, if L1 and L3 are defined control level 
indicators in a program, one asterisk is printed to the 
right of the L1 line, two asterisks are printed on the L3 
line, and three are printed on the LR line. As many as 
10 asterisks are printed on the LR line if all nine control 
level indicators are defined in the program. 

To suppress the generation of asterisks on total lines, 
enter an N in column 28 of the auto report 
specifications sheet. 



Enter the print position of the rightmost character of the 
field to be printed, or leave these positions blank. If this 
entry is blank, auto report generates end positions for 
fields and column headings. See Report Format in this 
chapter for additional information and considerations. 



Column 44 

Column 44 is not used with auto report because packed 
and binary data cannot be used. Leave these columns 
blank. 



Columns 45-70 (Constant) 

Either leave columns 45 through 70 blank or enter a 
literal. Do not enter an edit word; editing is 
accomplished by an edit code. If a literal is entered 
when column 39 contains an A, the literal becomes the 
first line of the column heading over the accumulated 
field. 

If these columns are left blank, the first line of the 
column heading is blank, but column heading 
continuation lines can specify the second and third lines 
of the column heading. See Field Description (C in 
Column 39). Also see Report Format for information on 
how column heading and fields are centered and spaced 
by auto report. 



Field Description (C in Column 39) 

Enter a C in column 39 of the *AUTO field descriptions 
to specify a second and third column heading line. At 
times you may want more information in a column 
heading than can be contained on one line. Auto report 
enables you to specify the second and third lines of 
column headings by simply specifying the literals to 
appear on those lines. No additional heading output 
lines need be coded; no end position need be 
calculated. The special field description specification 
that allows you to do this is identified by a C in column 
39 (see Figure 15-8). 
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C in column 39 is used to specify second and third column 
heading lines. A maximum of three column heading lines 
(two C-type field descriptions) can be used. 

Figure 15-8. Specifying Second and Third Column Heading Lines 
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Columns 7-38 



Columns 45-70 (Constant) 



Columns 7 through 38 must be blank on a field 
description that has a C in column 39. 



Column 39 

Enter a C in column 39. One or two C-type 
specifications can follow a field description specification 
that has an A, B, or blank in column 39 and an entry in 
columns 32 through 37. The first C-type specification 
causes a second column heading line to be generated. 
The second C-type specification causes a third column 
heading line to be generated (see Figure 15-8). 



Enter a constant, up to 24 positions long including 
blanks, enclosed in apostrophes. The constant becomes 
the second or third line of column headings, depending 
on whether it is on the first or second C-type 
specification. If two or three column heading lines are 
specified, the shorter literals are centered on the 
longest. 



Columns 40-44 

Columns 40 through 44 must be blank on a C-type field 
description specification. 
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Field Description (1-9 or R in Column 39) 

Enter a digit (1 through 9) or R in column 39 of a field 
description to specify a field or constant to be printed 
on a specific total line. 

Auto report allows you to print other information on 
generated total lines in addition to the generated totals 
resulting from A-type field descriptions. The value 
entered in column 39 corresponds to the level of the 
total line on which the information is to be printed (the 
corresponding control level must be defined in columns 
59 and 60 in the input specifications). For example, a 3 
in column 39 indicates that the information is printed on 
the L3 total line; an R indicates that the information 
appears on the final total, or LR, line (see Figure 15-9). 
Fields and constants specified in this way are printed to 
the left of the leftmost generated total on the line. See 
Report Format for exact placement. 



This type of field description can print information such 
as DISTRICT TOTAL, GRAND TOTAL, or other literal 
information. It can also print a field and specify an edit 
word, floating dollar sign, or asterisk protection for the 
field. 

If none of the *AUTO output fields is defined with an A 
in column 39, then 1 through 9 or R cannot be used in 
column 39. In group printing, only specify numbers that 
are higher than the lowest control level indicator used to 
condition the T-*AUTO specification. If the T-*AUTO 
specification is not conditioned by a control level 
indicator, use only numbers that are higher than the 
lowest control level defined in columns 59 and 60 on 
the input specifications. 
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In this example, the literal 'GRAND TOTAL AS OF' 
followed by the current date prints on the left of the 
generated final total line, as shown below. 



AMOUNT 

XXX .XX 

xxx.xx 
x,xxx.xx 

GRAND TOTAL AS OF 1/31/78 74,341.50* 



Figure 15-9. Specifying a Literal and a Field to Print on a Generated Total Line 
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Columns 7-31 



Columns 45-70 (Constant or Edit Word) 



Columns 7 through 31 must be blank on a field 
description line with 1 through 9 or R in column 39. 



Columns 32-37 (Field Name) 

Enter the name of a field, an indexed array name, or a 
table name. The corresponding field or element value 
prints on the total line indicated by the entry in column 
39. If columns 32 through 37 are blank, a constant 
must be entered in columns 45 through 70. 



Column 38 (Edit Code) 

Enter an edit code in column 38 to edit a numeric field 
named in columns 32 through 37, or leave column 38 
blank. If column 38 is left blank, an edit word can be 
entered in columns 45 through 70. If column 38 is 
blank, no edit code is assumed by auto report. 



Column 39 



Leave columns 45 through 70 blank, or enter a constant 
or edit word. If field name (columns 32 through 37) on 
this specification line contains an entry, then columns 45 
through 70 can contain any of the following: 

• Blanks, if no editing is needed for the field or if the 
field is already edited by an edit code in column 38 

• Edit word, if special editing is desired 

• Floating currency symbol or asterisk protection entry 
used with an edit code 

Columns 45 through 70 cannot contain a constant when 
field name contains an entry. However, when field name 
is blank, columns 45 through 70 must contain a 
constant. 



Group Printing 

In group printing, data is summarized for a group of 
input records and only totals are printed on the report. 
Totals can have subtotals with a final total or only a 
final total. 



Enter a digit (1 through 9) or R. These entries 
correspond to the indicators L1, L2, ... L9, and LR. The 
entry identifies a specific total line on which the field or 
literal described is to be printed. The entry in column 39 
must correspond to a control level that is defined by the 
input specifications. In group printing, the entry in this 
column must be higher than the control level of the first 
total line generated. 



Columns 40-43 (End Position in Output Record) 

Do not make an entry in columns 40 through 43 on field 
description specifications with 1 through 9 or R in 
column 39. See Report Format for additional information 
and considerations. 



Column 44 

Leave column 44 blank. 



Specifications 

To specify group printing using auto report, enter a T in 
column 15 and *AUTO in columns 32 through 36. A 
control level indicator can be specified in columns 23 
through 31. When a T-*AUTO specification is used, a 
line is not printed for each individual record that is read, 
but only after a complete control group is read. 

Fields and literals defined by field description 
specifications that have a blank or B in column 39 and 
follow a T-*AUTO record description are printed on the 
lowest level total line. Fields defined with an A in 
column 39 are not printed on the total lines, but the 
total fields created by auto report are. Generated 
calculations are printed on their associated total lines. 
Continued column headings (C in column 39) and 
total-indicated fields (1 through 9 or R in column 39) 
can also be specified by field descriptions following a 
T-*AUTO record description. 

Output indicators can be entered in columns 23 through 
31 of a field description specification following a 
T-*AUTO record description if column 39 of the field 
description specifications contains a blank or a B. If 
output indicators are used in a field description that has 
an A in column 33 following a T-*AUTO specification, 
those indicators are ignored by auto report. Output 
indicators cannot be used in a field description that 
contains C, 1 through 9, or R in column 39. 
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Examples 

Figure 15-10 shows the file description and input 
specifications for the group printed reports shown in 
Figures 15-11 and 15-12. BRANCH and REGION are 
defined as control fields. 

Figure 15-11 shows the output specifications and the 
group printed report showing sales totals for a company. 
Since the T-*AUTO specification is conditioned by L2, 
only the totals for REGION (L2) and for the entire 
company (LR) are printed on the report. The totals for 
BRANCH (L1) are not printed. 

A disk summary file, DISKSUM, is also produced by this 
program. The summary file contains a summary record 
of the sales data for each branch. The output 
specifications for DISKSUM illustrate the use of 
standard RPG II output specifications in the same 
program with *AUTO specifications. The output record 
described is written on the disk file, DISKSUM, when 
there is an L1 control break (BRANCH field changes). 
Since the T-*AUTO specification is conditioned by L2, 
auto report does not generate fields for the L1 control 
level. Therefore, standard RPG II calculation 
specifications must be used to calculate the L1 totals. 
The L1 total fields that are written on the DISKSUM file 
(SOLDQ1, SOLDV1, and VALUED must be defined in 
the calculations. 

Figure 15-12 shows a group printed report similar to the 
one shown in Figure 15-11. However, the T-*AUTO 
specifications are not conditioned by a control level 
indicator, so totals are printed for all defined control 
levels and for LR. 



/COPY STATEMENT SPECIFICATIONS 

The auto report copy function provides a way to include 
cataloged RPG II source specifications in an RPG II 
program. The source specifications that are included 
must reside as a library member on disk. Create the 
library member by using the library maintenance disk 
utility program. Use the copy function to include source 
specifications that are identical or nearly identical in 
several different programs, thereby reducing the need to 
repeatedly code specifications that are used in several 
programs. For example, if file description and input 
specifications for a particular file are similar in different 
programs, these specifications can be placed in the 
library by the library maintenance program or the source 
entry utility (SEU) and included in any program by the 
copy function. 



Auto report specifications and any valid RPG II 
specifications, including tables and arrays, can be copied 
in this manner. The auto report option specifications 
and other copy statements cannot be copied. See 
Examples of Using Auto Report in this chapter for an 
example of using the copy function. 

The specifications included in an auto report program by 
the copy function are initially placed in the program 
immediately following the /COPY statement. When all 
specifications are copied from the library, the entire auto 
report program is sorted into the order required by the 
RPG II compiler (see Order of Generated Specifications in 
this chapter). 

To request the copy function, use the /COPY statement. 
This statement identifies the library and library member 
containing the RPG II specifications to be included in 
the source program generated by auto report. /COPY 
statements must follow the auto report option 
specifications, and they must precede source tables and 
arrays (file translation tables, alternate collating 
sequence tables, and compile-time tables and arrays). 

The format of the /COPY statement is: 

Column Entry 

1-5 Page and line number indicating 

the placement of the statement 
in the sequence of auto report 
source specifications. 

6 This column can contain any entry 

except H or U, or can be blank. 

7-11 Enter the characters /COPY. 

12 Blank. 

13-29 Identifies the library member to 

be included. Specify the library 
name, which can be up to 8 
characters long, beginning in 
column 13. Use a comma 
to separate the library name 
and the member name, which 
can also be up to 8 characters 
long. If an entry is not made 
for the library name or if F1 
is specified, the default is to 
the system library. 

30-49 Blank. 

50-80 Enter any information or comments. 

The contents of these columns are 
not read by auto report. 

Figure 15-13 shows an example of the /COPY 
statement. 
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L1 and L2 are the defined control levels. 
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Figure 15-10. File Description and Input Specifications for the Group Printed Reports Shown in Figures 15-1 1 and 15-12 
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Calculation Specifications 
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T in column 15 with *AUTO in columns 32 through 37 
specifies a group printed report. 



Because l_2 is entered under output indicators, total lines 
are printed only for L2 and LR, although L1 is also a 
defined control level. 




In group printing, the lowest level total lines printed (L2, 
in this case) are single-spaced, like detail lines. 



llVll/78 


SALES FOR ANY COMPANY BY REGION 


PAGE 1 


\ REGION 


NUMBER OF SALES VALUE 


VALUE OF STOCK 
ON HAND 


\l 


23 71,000.00 


19,000.00 * 


3 


30 70,000.00 


29,000.00 * 


COMPANY TOTAL 


53 141,000.00 


48,000.00 ** 


""~~~~ ^^x 



Figure 15-11. Using *AUTO to Produce a Group Printed Report Showing Region and Final Totals 
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Output Specifications 
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When no control level indicators are entered under output 
indicators, a total line is generated for each defined control 
level indicator (L1 and L2, in this case) and for LR. 



SALES FOR ANY COMPANY BY BRANCH AND REGION 



PAGE 



BRANCH NUMBER .OF SALES 



VALUE VALUE OF STOCK 
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29,000.00 

48,000.00 




Figure 15-12. Using *AUTO to Produce a Group Printed Report Showing Branch, Region, and Final Totals 
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Library name. For F1 entry, the default library is the 
system library. 



„Name of member to be copied. 

































































Input Specifications 
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Note: It is convenient to code the /COPY statement on 
the input specifications sheet if input specifications are to 
be modified as they are copied. 

Figure 15-13. Example of the /COPY Auto Report Statement 



Modifying Copied Specifications 

Statements can be included in the auto report 
specifications to modify file description and input field 
specifications as they are copied from the library. No 
other types of specification can be modified. /COPY 
modifier statements from the source program that add, 
change, or delete entries on cataloged input field 
specifications are identified by an X in print position 6 
of the auto report listing. 



Modifying File Description Specifications 

To modify a file description specification that is copied 
from the library, enter the filename in columns 7 through 
14 of a file description specification (F in column 6). 
Then make only those entries on the line that are to 
replace existing entries in the copied specification or 
that are to be included as new entries. Blank entries in 
the modifier statement do not affect the copied 
statement. 



For example, the file description specifications for a 
frequently used file named SALES are to be copied from 
the system library. The original specification contains an 
I in file type (column 15), defining SALES as an input 
file (see Figure 15-14). To update the sales file, change 
column 1 5 to a U by including a modifier file description 
specification in the auto report source program. The 
modifier statement must contain the filename, SALES, 
and the new file type entry, U. As a result of the 
modifier statement, the file type on the copied file 
description specification is changed from I to U. 

To set an entry to blanks, enter an ampersand (&) in the 
first position of that entry on the modifier statement, 
and leave the remaining positions blank. For example, to 
remove the block length entry (columns 20 through 23) 
from the cataloged specification shown in Figure 15-14, 
add an ampersand to the modifier statement in column 
20, as shown in Figure 15-15, and leave columns 21 
through 23 blank. 

Modifier statements for file description specifications do 
not have to be in any particular order in the auto report 
source program, except that they cannot immediately 
follow the /COPY statement if input field specifications 
are also being modified. 
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/COPY statement to copy specifications for 
SALES file from the system library member 
named SALETR 
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File description specification as it is cata- 
loged in the system library 
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Copy function modifier statement 
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File Description Specifications 



Resulting file description specification that 
is included in the RPG II source program 























: ile Type 






Mode of Processing 


a 

39 












r 


Filename 

7 8 9 10 11 12 13 14 


Q 

3 
g 




ile Designation 




28 


Length of Key Field or 


Device 

40 4 1 42 43 44 45 46 


Line 
3 4 5 


£ 
6 


6 
16 














29 30 




17 


r 






1LCUIU "UlllUl VH"= 






1 
31 


Type of File 
Organization 


p 
< 

18 




File Format 




> 

!9 


Block 
Length 

20 21 72 23 


Record 

Length 

24 25 26 27 






3 

32 


Overf 


ow Indicator 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 







2 
3 
4 


- 


F 
F 

F 


SHL 


* 


- 




ii 


P 




- 


F 


I 


P 

A... 
1 


! 'M 


3 




" 






















Z>!JJS 


K 




i 
i 

T 


1 




J_l 
! 1 


























i 








T!" 


















i 




i 








1 
i 



Figure 15-14. Modifying a Copied File Description Specification 
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File Description Specifications 
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Figure 15-15. Setting a Copied File Description Entry to Blank 



Only one file description specification with a particular 
filename is allowed to come from the library entries, and 
a particular filename can be used only once on a 
modifier statement. 

No modifications are allowed to the file description 
continuation specifications that accompany a copied file 
description. To add new continuation specifications, 
place them after a file description modifier statement for 
the file. A maximum of five continuation specifications 
are allowed to follow a file description specification 
(combined total of original and added continuation 
specifications). 



Modifying Input Field Specifications 

Only input field specifications (specifications describing 
individual fields on the input record) can be modified. 
To modify an input field specification copied from the 
library, enter the field name in columns 53 through 58 of 
an input field modifier statement (I in column 6). 
Modifier statements for input field specifications must 
immediately follow the /COPY statement in the auto 
report program that copies those specifications. The 
first specification following the /COPY statement that is 
not an input field specification is considered the end of 
the input field modifier statements for the /COPY 
statement. (A comment statement with an I in position 
6 is not considered the end of the input field modifier 
statements.) 



The fields that can be modified are: 



Column 43 
Columns 44-51 
Column 52 
Columns 59-60 
Columns 61-62 
Columns 63-64 
Columns 65-70 



(packed/binary) 

(field location) 

(decimal positions) 

(control levels) 

(matching or chaining fields) 

(field record relation) 

(field indicators) 



The method of replacing, adding, or blanking entries is 
similar to the method used to modify file description 
specifications. To replace or add entries, code the new 
entry in the proper location in the modifier statement; to 
set an entry to blank, place an ampersand (&) in the first 
position of that entry in the modifier statement. Figure 
15-16 shows examples of modifying input specifications. 

The modifier statement modifies all copied input field 
specifications that have the same field name. If there is 
no input field by the same name, the modifier statement 
is added to the program as a new input field 
specification. Modifier statements with duplicate field 
names are allowed (length and number of decimal 
positions must also be the same), but only the first is 
used to modify a copied specification. Other field 
names are added as new input field specifications. Up 
to 20 input field modifier statements are allowed per 
/COPY statement. 
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Resulting input specifications 
for SALES file showing: 

El Added L1 indicator 

|^ Blanks in place of minus 
field indicator 

O Added field description 



Figure 15-16. Modifying Copied Input Field Specifications 
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For best results, first place those statements that modify 
existing input field specifications; then place those that 
are to be added as new input field specifications. This 
procedure is suggested because input field modifier 
statements that do not fit into the special main storage 
table for modifier statements are added to the RPG II 
source program as new input field specifications. This 
order of specifying modifier statements increases the 
likelihood that excess statements, if any, will be valid 
field descriptions. 



REPORT FORMAT 

One of the advantages of auto report is that it frees the 
programmer from the task of specifying the format of 
his report on the output specifications sheet. Auto 
report can completely format the report by spacing, 
skipping, centering lines, and calculating end positions 
for fields and constants. 



Spacing and Skipping 

Spacing and skipping can be either left to auto report or 
specified by the programmer. Figure 15-17 shows 
spacing and skipping generated by auto report. For the 
specifications used to produce the report, see Auto 
Report Generated Specifications in this chapter. If 
columns 17 through 22 are left blank on an H-*AUTO 
specification, a skip to line 06 is done before the first 
heading line is printed and space-two-after is done for 
the last heading line. If more than one heading line is 
specified, space-one-after is done for the first and all 
succeeding lines except the last. To specify spacing and 
skipping, follow the standard RPG II rules for spacing 
and skipping. 

Column heading lines are spaced like page headings. 
Space-one-after is done for all except the last. 
Space-two-after is done for a single heading line, or for 
the last heading line if more than one is specified. 
Spacing and skipping entries cannot be specified for 
column headings. If spacing and skipping entries are 
made on a D-*AUTO record description specification, 
the entries apply to the detail line generated. The 
entries do not apply to column headings or total lines 
generated by auto report from the D-*AUTO 
specification. Standard RPG II rules for spacing and 
skipping must be followed. Space-one-after is assumed 
for the generated detail line if spacing and skipping 
entries are not made. 



Space-two-after is generated for all total lines produced 
by auto report from a D-*AUTO specification. In 
addition, the lowest level total line and the final total line 
are also generated with a space-one-before. 

If spacing and skipping entries are made on a T-*AUTO 
specification, the entries apply to the lowest level total 
line generated, but not to column headings or higher 
level total lines. If spacing and skipping are not made, 
the lowest level total lines are generated with 
space-one-after; all higher levels are generated with 
space-two-after. Space-one-before is always 
generated for the second-to-the-lowest level total and 
the final total (see Figure 15-12 for an example). 



Placement of Headings and Fields 

Auto report generates end positions for fields and 
constants and centers column headings, columns, and 
report lines (see Figure 15-17 for an example). 
However, if an end position is specified for a field or 
constant on a D/T-*AUTO field description line, that 
end position is used on all column heading, detail, and 
total specifications generated from the field description. 
(The specified end position may be altered slightly by 
auto report when the line is centered or when the 
column heading and field are positioned in relation to 
each other.) If the specified end position causes an 
overlay with a previous field or constant, auto report 
generates a new end position. 

Specify end positions only to eliminate the automatic 
spacing between fields or to spread out or expand a 
report on the page. 



Page Headings 

If the date and page number are printed on the first 
*AUTO page heading line (that is, if they are not 
suppressed by an N in column 27 of the option 
specifications sheet), the date is always printed in 
positions 1 through 8. The page number is printed with 
an end position equal to the highest end position of the 
longest line in the report. When the first *AUTO page 
heading (including date, title, and page number) is the 
longest line in the report, one blank space separates the 
title from the date and the word PAGE from the title. If 
the resulting line exceeds the record length of the 
printer file, the excess information on the right of the 
line is not printed. 
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Skip to line 06 occurs before printing of the first line. 



Highest end position in the report. 



1/15/7* 
REGION 



BRANCH 



17 



22 



25 



ITEM 
NUMBER 

AG7701T 
AG7705S 
AP6545B 



AG7701T 
AG7705S 



AG6545B 
AP6549P 



SALES REPORT FOR ANY CO. 



DESCRIPTION 



2-TON TRUCK 

PICK-UP 

CAMPER 



2-TON TRUCK 
PICK-UP 



CAMPER 

1/4 TON TRUCK 



SALES 



5 

10 

2 



10 
•20 



FINAL TOTALS 



Auto report generates a blank line (space-two-after) 
following the last page heading line (in this case, 
there is only one page heading line) and following the 
last column heading line. 



AMOUNT 



25,000.00 

20,000.00 

8,000.00 

53,000.00 

10,000.00 
8,000.00 

18,000.00 

71,000.00 

40,000.00 
30,000.00 

70,000.00 

70,000.00 

141,000.00 



ON-HAND 



PAGE 
VALUE 



10,000.00 
2,000.00 



12,000.00 * 

5,000.00 
2,000.00 

7,000.00 * 

19,000.00 ** 

20,000.00 
9,000.00 



29,000.00 * 
29,000.00 ** 
48,000.00 *** 



Auto report generates a blank line before the lowest 
level total (in this case, there is only the L1 total) 
and before the final total (space-one-before). 



Auto report generates a blank line following 
each total line (space-two-after). 



Figure 15-17. Report Illustrating Format Generated by the Auto Report 
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If a line generated from a D/T-*AUTO specification is 
the longest report line, that line is printed starting in 
print position 1, and the title portion of the first page 
heading line is centered in relation to that line. 
Additional *AUTO page headings are then centered on 
the first *AUTO page heading line. 

If an *AUTO page heading is the longest line in the 
report and a D/T-*AUTO specification is present, any 
other *AUTO page heading lines and the line generated 
from the D/T-*AUTO specification are centered on the 
longest page heading. 

Fields and constants appear in the order specified in the 
*AUTO output specifications from left to right. Auto 
report provides one blank space before and after fields 
on the heading line. No spacing is provided between 
constants. 



Fields and constants appear from left to right on a line 
in the order they are specified by the output 
specifications. At least two blank spaces appear before 
each field on the line. However, no spaces are provided 
before a constant; the programmer must incorporate 
blanks within constants to provide for additional 
spacing. 

Total indication information (fields and constants 
specified with 1 through 9 or R in column 39) is placed 
to the left of the first total field (A in column 39) on the 
corresponding total line, followed by two spaces. If two 
or more such fields or constants are specified for a total 
line, they appear from left to right in the order specified 
on the left of the first total on the line. Each field is 
preceded and followed by one space. No spacing is 
provided for constants. 



Reformatting *AUTO Page Headings 

You can reformat an *AUTO page heading line if you do 
not want to use the end positions for fields and 
constants that are generated by auto report. If you want 
to find what end positions are generated for page, date, 
and title information, see the listing of the generated 
source program that is produced by the RPG II compiler 
(see Generated Specifications). 

Catalog the generated RPG II source program in a 
library by specifying the C option in column 7 of the 
auto report option specifications, and change the end 
positions on the generated source statements by using 
the library maintenance program or the source entry 
utility. 



Body of the Report 

Placement of column headings above columns depends 
on which is longer, the heading or the associated field 
(including edit characters). If any column heading is 
longer than the associated field, the field is centered 
under the longest column heading constant. If, however, 
the field is longer than the longest column heading 
constant, the column heading is left-justified over an 
alphameric field and right-justified over a numeric field. 
When more than one column heading line is specified, 
shorter column headings are always centered on the 
longest column heading. 



Overflow of the D/T-*AUTO Print Lines 

If the lines generated from a D/T-*AUTO specification 
are longer than the record length specified for the 
printer file, a second print line (overflow line) is 
generated for each column heading line, detail (or group 
print) line, and total line. (Remember, a second print line 
is not generated for *AUTO page heading lines.) The 
excess information is placed on the overflow line in the 
order specified, right-justified. 

Figure 15-18 shows the result of an overflow condition. 

In the output specifications for the report shown in 
Figure 15-18, no spacing or skipping is specified. If 
spacing and skipping were specified, however, auto 
report spaces the report as follows: 

• Column heading lines and total lines are spaced as 
shown in Figure 15-18. 

• The space-before and skip-before entries specified 
are for the original detail (or group print) line. Auto 
report generates space-one-after for this line. 

• The space-after and skip-after entries specified are 
for the overflow line. Auto report generates blanks 
for space-before and skip-before for the overflow 
line. 
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Figure 15-18. Report Illustrating Overflow of D-*AUTO Print Lines 
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GENERATED SPECIFICATIONS 

Standard RPG II specifications are generated by auto 
report and are combined with RPG II specifications 
included in the input to auto report and specifications 
copied from the library to produce the final RPG II 
source program. This section describes the generated 
RPG II specifications and the order of those 
specifications in the RPG II source program. 

Figures 15-19 and 15-20 show auto report specifications 
for a sales report and the resulting RPG II source 
specifications that are generated for the report. 
Numbers are inserted in the figures to identify the auto 
report functions and to show the specifications that are 
generated by each function. 



Generated Calculations 

Calculations are generated to accumulate totals for fields 
named on *AUTO field description specifications that 
have an A in column 39 (see Figure 15-21). 

An RPG II subroutine is generated to accumulate the 
values from these fields into the lowest-level generated 
total fields. The name of the subroutine is always 
A$$SUM. The subroutine specifications are conditioned 
differently, depending on whether detail or group 
printing is specified: 

• If detail printing is specified, as in Figure 15-21, the 
EXSR statement. is conditioned by the same 
indicator(s) that conditions the D-*AUTO specification 
(01 in this example). Each ADD statement in the 
subroutine is conditioned by the field indicator(s) 
specified with the field in its field description 
specification (none in this example). 

• If group printing is specified, the EXSR statement 
and all ADD statements in the subroutine are 
unconditioned. 

Total calculations are generated to roll the total from the 
lowest-level defined total field through the higher-level 
defined total fields and the final total. The total 
calculation to add the total from one level to that of the 
next higher level is conditioned by the control level 
indicator corresponding to the field name of the lower 
level. As shown in Figure 15-21, total calculations to 
accumulate L2 and LR totals are followed by the 
subroutine to accumulate the lowest level total, L1. 



Generated total fields are defined (given length and 
number of decimal positions) when the total field is the 
result field in a generated calculation. In the input 
specifications, SOLDVA and VALUE are numeric fields 
defined with a length of seven and two decimal 
positions. Figure 15-21 shows that the total fields 
generated from SOLDVA and VALUE are defined as 
two positions longer than the original fields, with the 
same number of decimal positions. 

When group printing is specified (T-*AUTO 
specification), auto report generates total calculations to 
reset each of the accumulated fields (A in column 39) on 
the lowest level total line to zero on each cycle. A 
Z-ADD calculation, conditioned by LO, is generated for 
each accumulated field. These calculations are the first 
total calculations in the generated RPG II source 
program. 



Generated Output Specifications 

Figure 15-22 shows the output specifications generated 
by auto report. To identify specifications supplied by 
auto report (column heading specifications, total 
specifications, conditioning indicators, spacing and 
skipping values, end position values, blank after) 
compare the listing with the auto report specifications. 

Auto report generates specifications to reset 
accumulated fields to zero after they are printed. See 
Field Description (A in Column 39) for a discussion of 
resetting fields to zero. In this example, blank after is 
generated for accumulated fields. 
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File description and input specifications for SALETR file Modifier statements follow the /COPY statement to add 

are cataloged in the system library (F1 is specified as the control level indicators. 

library). 



Output Specifications 




Figure 15-19. Auto Report Specifications for a Sales Transaction Report 
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Figure 15-20. RPG II Source Program Generated from Auto Report Specifications 
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Subroutine accumulates the lowest level totals 
(L1, in this example). 



Length and decimal position of generated total fields. 



Note: Placement of the generated calculations in the RPG II source program is shown in Figure 15-20. 
Figure 15-21. Calculations Generated from Auto Report Coding for Sales Transaction Report 
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Auto report gener- 
ates total specifica- 
tions to print ac- 
cumulated totals 
forSOLDVAand 
VALUE fields. 
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Two heading speci- 
fications are gener- 
ated for column 
headings because 
ITEM NUMBER is 
a two-line heading. 



Figure 15-22. Output Specifications Generated from Auto Report Coding for Sales Transaction Report 
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PROGRAMMING AIDS 

The chart shown in Figure 15-23 should be helpful in 
determining valid *AUTO output entries depending on 
the contents of column 39. 

The following programming suggestions may be helpful 
in specific programming situations: 

• One column heading can be printed over two or more 
fields if automatic column spacing is taken into 
consideration. For example, if the heading DATE is to 
print over a month field and a day field as follows: 
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Code the output specifications as follows: 



Output Specifications 



9 10 11 12 13 



Output Indicators 



32 33 34 35 3G 3? 



MONTH 



DfflY 



C> 



Output 
Record 



40 41 42 43 



Commas 


Zero Balances 
to Print 


No Sign 


CR 


1 


X = 


Remove 










Y = 


Plus Sign 
Date 


Yes 


Yes 


1 


A 


,1 


Yes 


No 


2 


B 


K 




Field Edit 


No 


Yes 


3 


C 


1 


i. = 


Zero 


No 


No 


4 


D 


M 




Suppress 



Constant or Edit Word 

2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 16 17 18 19 20 21 22 23 24 



45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 



71 72 73 74 



J 1. 



"fl 



1... 



E 



SSjv 



v 



i 



Li-LLLL 






44- 






Programming Aids 15-39 



» To print a constant on only the first detail line under 
a column heading, move the constant to a field in 
calculation specifications and print that field as 
shown in Figure 15-24. 

• If group printing is being done and more than one 
record type is present in the input file, certain 
precautions must be taken. If a field to be 
accumulated is present in all record types, but only 
one record type is to be processed, the correct total 
is not generated unless additional coding is used. 
The specifications shown in Figure 15-25 give 
incorrect results because the T-*AUTO specification 
causes an unconditioned ADD subroutine to be 
generated if a field is to be added. Therefore, QTY is 
added when indicator 10 is on and when indicator 11 
or 12 is on. Figure 15-26 shows a method of 
obtaining the correct results. 

• Figure 15-27 shows the specifications for counting 
records. This method is especially applicable when 
you want to print a detail list, to take totals by 
control level, or to eliminate 1's from being listed 
down the page. 



39 


7-22 


23-31 


32-37 


38 


40-43 


44 




45-70 


Blank 


Blank 
Blank 


Blank or 
indicators 

Blank or 
indicators 


Field name 
Blank 


Blank or 
edit code 

Blank 


Blank or 
end position 

Blank or 
end position 


Blank 
Blank 


Blank or 
column heading 

Literal 


B 


Blank 


Blank or 
indicators 


Field name 


Blank or 
edit code 


Blank or 
end position 


Blank 


Blank or 
column heading 


A 


Blank 


Blank or 
indicators 


Field name 


Blank or 
edit code 


Blank or 
end position 


Blank 


Blank or 
column heading 


C 


Blank 


Blank 


Blank 


Blank 


Blank 


Blank 


Column heading 


1-9, R 


Blank 
Blank 


Blank 
Blank 


Field name 
Blank 


Blank or 
edit code 

Blank 


Blank 
Blank 


Blank 
Blank 


Blank or 
edit word 

Literal 



Figure 15-23. Valid *AUTO Entries Depending on the Contents of Column 39 
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Assume L1 is defined in columns 59 and 60 on input 
specifications. 
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Figure 15-25. Incorrect *AUTO Specifications for More Than One Record Type 
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Figure 15-26. Correct *AUTO Specifications for More Than One Record Type 
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Calculation Specifications 

Line 01 This instruction is needed only to define the field COUNT for 
accumulation. 

Line 02 This instruction accumulates the total for the first control level. 

Output Specifications 

Line 03 This instruction causes the generation of calculation and output 
specifications for the detail and total lines. The LR conditioning 
indicator prevents the generated detail calculation from occurring. 
It also prevents printing at detail time. 

Note: If no control levels are specified in the program, a 1 is added to COUNTR 
rather than to COUNT1 on the calculation specifications. 

Figure 15-27. Method of Using *AUTO for Counting Records 

EXAMPLES OF USING AUTO REPORT 

Examples 1 through 4 explain how auto report is used 
to generate report page headings and such output 
specifications as column headings, detail lines, and total 
lines. Examples 5 and 6 illustrate the use of the auto 
report copy function to copy specifications from the 
library and to modify copied specifications for a 
particular job. 
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EXAMPLE 1 



*AUTO Page Headings 





Problem 








Produce the sales report shown below using the 
*AUTO page headings and *AUTO output 
functions of auto report. 



■v 



*AUTO Output 



Letters refer to fields 
on the following page. 



Procedure 



\/ 



Code normal RPG II file description and 
input specifications for the job. 

Code *AUTO page headings to produce 
a one-line page heading that includes 
date and page number. 

Code *AUTO output to produce one- 
line column headings, detail report lines, 
and final totals. 
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Examples of Using Auto Report 15-45 



Code RPG II file description and input specifications. 

File Description Specifications 
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Field Name Contents 

ITEMNO Item number 

BRANCH Number of the branch office where the item was sold 

REGION Sales region in which tne branch office is located 

DESC Description of the sales item 

SOLDQY Quantity of the item sold 

SOLDVA Total value of the items sold 

ONHAND Quantity of the item remaining on hand 

VALUE Total value of the items remaining on hand 
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Code *AUTO page heading specifications. 



Enter an H in column 1 5 and *AUTO in columns 
32 through 36 to request an auto report page head- 
ing. Up to five page heading lines can be described. 
The system date is printed on the left and the page 
number on the right of the first heading line on each 
page. To suppress the date and page, enter an N in 
column 27 of the auto report option specifications 
sheet. 



The title information is centered by auto report; do 
not enter end positions in columns 40 through 43. 
Fields and table/array elements can also be used. 
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When space and skip entries (columns 17 through 
22) are left blank, skip to line 06 is assumed for the 
first heading line; single spacing is done between 
heading lines, double spacing after the last heading 
line. (See Example 4 for an example of multiple 
page heading lines.) 



H When output indicators (columns 23 through 311 
are left blank, auto report page headings are printed 
on each page (conditioned by 1P or overflow). If 
no overflow indicator is defined for the printer file, 
auto report assigns an unused overflow indicator to 
the printer line. 
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2-TON TRUCK 




5 


25 


000.00 


2 


10,000.00 


1 


17 


AG7705S 


PICK-UP 




10 


20 


000.00 


1 


2,000.00 


1 


17 


AP6545B 


CAMPER 




2 


8 


000.00 






1 


22 


AG7701T 


2-TON TRUCK 




2 


10 


000.00 


1 


5,000.00 


1 


22 


AG7705S 


PICK-UP 




4 


8 


000.00 


1 


2,000.00 


3 


25 


AG6545B 


CAMPER 




10 


40 


000.00 


5 


20,000.00 


3 


25 


AP6549P 


1/4 TON TRUCK 


20 


30 


000.00 


6 


9,000.00 














141 


000.00 




48,000.00 * 
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Code *AUTO output specifications to produce: 
|g| Detail report lines 
|jj Column headings 
13 Final totals 



Output Specifications 




32 33 34 35 36 37 



¥ 



C> 



Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X = Remove 
Plus Sign 

Y = Date 

Field Edit 

Z = Zero 

Suppress 


Yes 
Yes 

No 
No 


Yes 
No 
Yes 

No 


1 
2 
3 
4 


A 
B 
C 
D 


J 
K 

L 
M 



2 3 4 5 6 7 



Constant or Edit Word 



10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 



49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 



71 72 73 74 



SAUTQ 



ITiEHKO 

SjOLDM 
ONHAND 
ViALUE 



Tin 



Enter D in column 15 and *AUTO in columns 32 
through 36 to describe an auto report with detail 
lines. The record identification indicator 01 condi 
tions printing of the detail lines. 





Column headings are entered on the same line as the 
fields over which they appear in the report. 



Enter an A in column 39 to cause fields 
to be accumulated. Auto report gener- 
ates (1 ) total fields and calculations to 
accumulate the totals and (2) total out- 
put specifications to print the totals. 
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REGION BRANCH ITEM 



SALES REPORT FOR ANY CO. 
DESCRIPTION SALES AMOUNT ON-HAND — 



17 


AG7701T 


2-TON TRUCK 


5 


17 


AG7705S 


PICK-UP 


10 


17 


AP6545B 


CAMPER 


2 


22 


AG7701T 


2-TON TRUCK 


2 


22 


AG7705S 


PICK-UP 


4 


25 


AG6545B 


CAMPER 


10 


25 


AP6549P 


1/4 TON TRUCK 


20 



25,000.00 
20,000.00 

8,000.00 
10,000.00 

8,000.00 
40,000.00 
30,000.00 

141,000.00 



10,000.00 
2,000.00 

5,000.00 

2,000.00 

20,000.00 

9,000.00 



48,000.00 




Auto report formats the report so that column headings 
and data are neatly spaced and centered on each other. 



All numeric fields for which a blank, B, or A is specified 
in column 39 are edited by the K edit code unless a 
different edit code is specified. 



15-48 Auto Report Function 



EXAMPLE 2 



*AUTO Output 





Problem 








Expand sales report from Example 1 to 
include three levels of totals: 

1. Total for each branch 

2. Total for each region 

3. Final total 



Procedure 



Code file description and *AUTO speci- 
fications as in Example 1. 

Add control level indicators to the input 
fields BRANCH and REGION. 



Note: The *AUTO output function can also be used to 
produce a group printed report. See Group Printing in this 
chapter for a discussion and examples of group printing. 
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iput Specificat 


ons 




















































T 




(Si 


z 

i 

E 
z 

17 


O 

O 
18 


.1 
19 20 


Record Identification Codes 


42 


43 


Field Location 


: S Field Name 

.1 

Q 

52 53 54 55 56 57 58 


J 

59 60 


Id 

61 62 


63 64 


Field 
Indicators 


71 72 73 74 


A. 




1 


2 


3 


Line 
3 4 5 


£ 
6 


Filename 




Position 

21 22 23 24 


z 
z 

25 


Q 
O 

26 


5 
27 


Position 
28 29 30 31 


z 
z 

32 


Q 
33 


6 
34 


Position 
35 36 37 38 


z 

z 

39 


g 

N 

o 

40 


6 
41 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 
65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


7 8 9 10 11 12 13 





R 




A 

14 


N 

15 


D 

16 





1 




I 


s 


A 


L 


E 


S 








A 


A 









1 
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7 
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EMNfc 





































3 
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Because two control levels are defined, the SOLDVA and 
VALUE fields (see following page) are accumulated to two 
levels of totals (branch and region) and a final total (LR). 
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As in Example 1, an A in column 39 of the output specifi- 
cation causes SOLDVA and VALUE to be accumulated. 



Output Specifications 



f\ 






£ 












Field Name j ( 












u 


D 2 
c-i 5 55 
Filename — — 

a r 


Space Skip 


Output Indicators 


: > 


Comm/ 


Zero Ba ances ., c . 
. n . . No Sign 
to Print , ■ 


CR 


- 


X - Remove 
Plus Sign 

Y = Date 

Field Edit 

Z - Zero 

Suppress 




71 72 73 74 


Line 

3 4 5 


a 

6 


m < 

EL a 
D D ~ 


< 

21 22 


And And 


End 
c Position 

u Output ^ 
5 Record < 

39 40 41 42 43 4 




/No 
/ No 


Yes 1 1 
No 2 
Yes 3 

No 4 


A 
B 
C 
D 


J 
K 

L 
M 




t- 
A 


| I 

= • ' 
2 ! ; 

: j 

23' 24 25 


! 1 

_i ! 

! i 

26 127128 


1 ^ 
29J30 :31 


a 

*AUT0 •= 
32 33 34 35 36 37 38 




Constant or Edit Word 




7 8 9 10 11 12 13 


R 
AND 

14 15 16 


17 18 19 20 


' /\ 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ' 


4 o/ 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 


o|i| 





PRLTNTERAH 


! 


| 






! | 


mw 


j 


/Mil 


1 


I 






I 


o '2 





1 j ; 






i 






: i i i i 


' i / 


^SA 


LE 
R 


Si REPORT ' i ! 1 i i ! 1 


i 








3 









! 


■i I 


i ! 


1 


■ i ! 




M£Q 


ANY 


CO 


■l ' i ■ ' : 




i 
i ; 






j 


4 









if 




0l 






*AUT0 


/ ' 


! ! I 

1 ; ; 1 


i i I T 
















0:5 





; | i 








?E6J0N 


/ 


'REGJIfflt 
•BRANCH' 


i 


MM!' 










i 


1 6 





i i . 


/ 










JRftHCtt 


/ ' 


i ; ! : ! ! I ! I i ■ i 


! : 


! 


: 7 





! 


I 










ITEMKO 


J : J 


'UB1 
M£E££ 


'i i i i i ! ! ' ; ; ! 1 ' ! 


i i ' 


i ! 1 


8 










/ 










tEStl > 


RIPTIOR' i 1 1 




1 i ! 


9 

1 








1 










SOLDSY 




• SALES'! ! ;T; l ; j ! • \ i : 


| i 






/- 




— - 


— — 




m.DM„ 


A__i__ 


'A^OUNfT 1 i ! i i 1 


i i 


! i ! 


1 1 
1 2 








VALUE 


s" : 


»0M 


-WARD' i i i 


i i i 


1 








'VALUER' ! ; 1 i 


i i ' 


1 3 





, 




i — — . — 














; ' ' ' ; i ' ' : ' ■ ' i ■ I 


! ; i 



Auto report places a blank line after each total line and an 
additional blank line before the lowest level total and before 
the final total. If you enter spacing and skipping values on 
the D-*AUTO specification, they apply to the detail print 
line only. 
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SALE 


REGION 


BRANCH 


ITEV 

numbeV 


DESCRIPTION 


1 


17 


AG7701T 


\2-T0N TRUCK 


1 


17 


AG7705S 


>JCK-UP 


1 


17 


AP6545B 


CAMPER 


1 


22 


AG7701T 


2-TON TN^?=? 


1 


22 


AG7705S 


PICK-UP \ 



SALES REPORT FOR ANY CO 



SALES 




Auto report prints asterisks (*) to the 
right of generated total lines to aid in 
identifying them. If you want to suppress 
the asterisks, enter N in column 28 of the 
auto report option specifications sheet. 



AMOUNT 



PAGE /I 
VALUE 



AG6545B 
AP6549P 



CAMPER 

1/4 TON TRUCK 



JO 



25,000.00 
20,000.00 
.8,000.00 

53,000.00 

10,000.00 
8,000.00 

18,000.00 

71,000.00 

40,000.00 
30,000.00 

70,000.00 

70,000.00 

141,000.00 



10,000.00 
2,000.00) 



12,000.00 



5,000.00 
2,000.00 



7,000.00 
19,000.00 



20,000.00 
9,000.00 



29,000.00 
29,000.00 



48,000.00 




Total fields are always two positions longer with the same 
number of decimal positions as the original fields. 



15-50 Auto Report Function 



EXAMPLE 3 





Problem 








Expand the sales report from 


Examples /and 


2 to contain: 


JjJ Group indication for REGION and 


BRANCH fields 


^J Second column heading line 


|3 Literal (constant) on the final total line 



*AUTO Output 



Procedure 



Code file description and input specifica- 
tions as for Example 2. 

Code *AUTO output with: 

Output indicator on field description 
specifications 

yj C in column 39 and a literal in 
columns 45 through 70. 

13 R in column 39 and a literal in 
columns 45 through 70. 



D 






















File 


Description 


Specifications 






















p 


Filename 

7 8 9 10 11 12 13 14 




File Type 




Mode of Processing 


u 


Device 


Symbolic 
Device 




Name of 
Label Exit 


Extent Exit 
for DAM 




File Addition Unordered 


r 




y 

3 

15 




File Designation 


23 


Length of Key Field or 


< 


Number ot Tracks 


Line 


| 


1 


f H (CI 








or Cylinder Cheiflo.-. 






29 30 




67 




u. 


r 














1 

31 


Type of File 


Storage Index 


63 69 




< 

18 




File Foimjl 




Reumd 


5 
> 


Block 
Length- 


Record 
Lenuth 






2 


Fr.e 
Cona.'.ijn 


32 


Overf 


ow Indicator 


33 34 


Key Field 

Starting 
Location 

35 36 37 3S 


Continuati 


n Lines 




K 


Option 

54 55 56 57 58 5? 


Emu 







2 

4 1 


F 

F 
F 


SALES ...__ 
PRINTERA 


t 




P 




- 
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F 


ii0 


H3 
120 
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...L 


... 












DISK 
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PRINTER 
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— - 









j_ 



































































In 


put Specifications 
























I 

Line 

3 4 5 






- S 

| 1 

i o 

7 18 


19 20 


Record Identification Codes 


42 43 


Field Location 


52 


Field Name 

53 54 55 56 57 58 


a 

59 60 


if 

s 6 

61 62 


63 64 


Field 
Indicators 


71 72 73 74 


i 


2 


3 


Filename 

E 

6 7 8 9 10 11 12 13 




A 
14 


R 

N 
15 


D 

16 1 


Position 
21 22 23 24 


z 

25 


Q 
26 2 


Position z 
7 28 29 30 31 3 


'-- s 

2 33 


6 
34 


Position - 
35 36 37 38 3 


I Q 1 
9 40 41 


From 

44 45 46 47 


To 

43 49 50 51 


Plus 
65 66 


Minus 
67 68 


Blank 
69 70 
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xS 


(\ 
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S 
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A 
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1 1 
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i 7 




ITEMNO 
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1 




















: 


i 
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-"3 


a 
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i 
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; 10 




REGION 
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1 
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DE5C n 
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sotpov 
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Output Specifications 




Commas 


Zero Balances 
to Print 


No Sign 


CR 


= 


X = Remove 
Plus Sign 

Y = Date 

Field Edit 

Z = Zero 

Suppress 


Yes 
Yes 

No 
No 


Yes 1 1 
No 2 
Yes 3 

No J 4 


A 
B 
C 
D 


J 

K 
L 
M 



Output indicators can be used on field description 
specifications. In this example, control level indica- 
tors condition BRANCH and REGION so that they 
are printed only for the first record of the corres- 
ponding control group. This print suppressing of 
common fields (group indication) reduces 
repetitive information. 
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REGION BRANCH/ 

a 17 



22 




One or two additional column heading 
lines can be specified by a C entry in 
column 39 with the heading informa- 
tion in columns 45 through 70. 



SALES RE 
DESCRIPTION 



AG7701T 2-TON TRUCK 
AG7705S PICK-UP 
AP6545B CAMPER 



PORT FOR ANY CO, 
SALES 



AG7701T 
AG7705S 



2-TON TRUCK 
PICK-UP 



l/>,000. 
8,000. 



25 AG6545B CAMPER 

AP6549P 1/4 TON TRUCK 




The literal FINAL TOTALS makes 
that line easy to find. To specify 
information to appear on the final . 
total line, enter R in column 39 
with a literal in columns 45 
through 70 or a field name/table 
name/indexed array name in 
columns 32 through 37. The 
information is printed two spaces 
to the left of the leftmost total 
on the line. If more than one 
such specification is used, the 
literals and fields are printed 
from left to right in the order 
they are specified in the program. 



FINAL TOTALS 



18,000.00 

71,000.00 

40,000.00 
30,000.00 

70,000.00 

70,000.00 

141,000.00 



9,000.00 
29,000.00 
29,000.00 

48,000.00 




15-52 Auto Report Function 



EXAMPLE 4 





Problem 








Expand the sales report from Examples 1, 2, 
and 3 to include a cross-totals column and: 

^J A new report page for each region 

ftjgfl Two heading lines on each page 

|g A field in a page heading line 

jij Identification of branch and region totals 



*AUTO Page Headings 

\S 



Procedure 



*AUTO Output 



Code file description and input specifica- 
tions as in Example 3; add an overflow 
indicator to the printer file. 

Code RPG II calculation specifications 
for cross-total. 

Code *AUTO specifications: 
^S Output indicators on page heading 
specifications 

ff3 Two heading lines per page 

B3 Use of a field in an *AUTO page 
heading specification 

|j| Fields and literals on L1 through L9 
total lines (1 through 9 in column 39) 
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SALES REPORT FOR ANY 


CO. 






PAGE 1 








— 


REGION 1~* . 


-@ 




y 




BRANCH 


ITEM 
NUMBER 


DESCRIPTION 


SALES 
QUANTITY 


SALES VALUE 


ON 
HAND 


ON-HAND VALUE 


■ \ 


TOTAL 


17 


AG7701T 


2-TON TRUCK 


5 


25,000.00 


2 


10,000.00 


35 


000.00 




AG7705S 


PICK-UP 


10 


20,000.00 


1 


2,000.00 


22 


000.00 




AP6545B 


CAMPER 


2 


8,000.00 






8 


000.00 






Q BRANCH 


17 TOTALS 


53,000.00 




12,000.00 


65 


000.00 '* 


22 


AG7701T 


2-TON TRUCK 


2 


10,000.00 


1 


5,000.00 


15 


000.00 




AG7705S 


PICK-UP 


4 


8,000.00 


1 


2,000.00 


10 


000.00 






BRANCH 


22 TOTALS 


18,000.00 
71,000.00 




7,000.00 
19,000.00 


25 
90 


000.00 * 
000.00 ** 


|£| REGION 


1 TOTALS 


















£3 
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SALES REPORT FOR ANY 


CO. 






PAGE 2 










REGION 3 




' 






BRANCH 


ITEM 
NUMBER 


DESCRIPTION 


SALES 
QUANTITY 


SALES VALUE 


ON 
HAND 


ON-HAND VALUE 




TOTAL 


25 


AG6545B 


CAMPER 


10 


40,000.00 


5 


20,000.00 


60 


000.00 




AP6549P 


1/4 TON TRUCK 


20 


30,000.00 


6 


9,000.00 


39 


000.00 






BRANCH 


25 TOTALS 


70,000.00 




29,000.00 


99 


000.00 * 






REGION 


3 TOTALS 


70,000.00 




29,000.00 


99., 


000.00 ** 






COMPANY TOTALS 


141,000.00 




48,000.00 


189, 


000.00 *** 



Note: Compare matching letters ( I»J ) on this and the following pages to see the auto report coding to obtain this report. 



Examples of Using Auto Report 15-53 



01 



Calculation Specification 



18 19 20 21 22 23 24 25 26 27 



SOLDI/A 



Operation 



28 29 30 31 32 



SEE 



f 



33 34 35 36 37 38 39 40 41 42 



VALUE 



43 44 45 46 47 48 



TOIVAL 



Length 



82 



RPG II calculations can be among 
the input statements for auto 
report. This specification calcu- 
lates a cross-total of the sales and 
on-hand values. (The placement 
of the calculation in relation to 
- calculations generated by auto 
report is described under 
Generated Specifications. ) 



The headings are printed on a new 
page when the region number 
changes (L2) or when overflow 
occurs (OF). (OF must be defined 
for the printer file in file descrip- 
tion specifications 



Output Specifications 




[I !l II 01 i 1 1 9 i 



15-54 Auto Report Function 



EXAMPLE 5 



COPY 





Problem 








Use the copy function to obtain specifications 
for the sales report below (same as in 
Example 1). 



Procedure 



Catalog the file description and input 
specifications for the SALES file in a 
library. 

Code the /COPY statement in the specifi- 
cations for auto report. 
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SALES REPORT 


FOR ANY 


CO. 






PAGE 1 


REGION 


BRANCH 


ITEM 


DESCRIPTION 


SALES 




AMOUNT 


ON-HAND 


VALUE 


1 


17 


AG7701T 


2-TON TRUCK 


5 


25 


000.00 


2 


10,000.00 


1 


17 


AG7705S 


PICK-UP 


10 


20 


000.00 


1 


2,000.00 


1 


17 


AP6545B 


CAMPER 


2 


8 


000.00 






1 


22 


AG7701T 


2-TON TRUCK 


2 


10 


000.00 


1 


5,000.00 


1 


22 


AG7705S 


PICK-UP 


4 


8 


000.00 


1 


2,000.00 


3 


25 


AG6545B 


CAMPER 


10 


40 


000.00 


5 


20,000.00 


3 


25 


AP6549P 


1/4 TON TRUCK 


20 


30 
141 


000.00 
000.00 


6 


9,000.00 
48,000.00 * 



Examples of Using Auto Report 15-55 



Catalog specifications for the SALES file in a library using the library maintenance utility program. 

File Description Specifications 




These specifications could be replaced by a single statement 
as shown on the following page if they were cataloged in a 
library. 
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Output Specifications 
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Code the /COPY statement to include the file description 
and input specifications. (For a detailed description of the 
copy function, see /COPY Statement Specifications.) 



File Description Specifications 



a 9 10 11 I? 13 



Block 
Ungth 



Record 
Length 



Mode of Processing 



Length of Key Field or 
of Record Address Field 



Record Address Type 



Type of File 
Organization 
„or Additional Are. 



Key Field 
Starling 



5W 



Symbolic 
Device 



4R 40 50 51 52 



Name of 
Label Exit 



Extent Exit 
for DAM 



Storage Index 



Continuation Line: 



Entry 
60 61 62 63 I 



File Addition/Unordered 



Number of Tracks 
for Cylinder Overdo 



Tape 
Rewind 



Conditic 
U1-U8 
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Input Specifications 
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Field Location 
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Field 
Indicators 


71 72 73 74 
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Line 
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Filename 
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Position 

35 36 37 38 


39 


Q 
U 

40 


u 

41 


From 

44 45 46 47 


To 

48 40 50 51 


Plus 

65 66 


Minus 
67 68 


Zero 

Blank 

69 70 


7 8 9 10 11 12 13 
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Column 6 of a /COPY statement 
must not contain a U or an h 



The source member 



The /COPY statement copies file description and 
input specifications for the SA LES file from the 
library member named SALETR. 



The /COPY statement can appear anywhere among 
the auto report specifications following the auto 
report option statement and preceding table and 
array input records. It is convenient to code the 
/COPY on the input sheet when you want to override 
copied input specificaitons, as in Example 6. After 
specifications are copied, all specifications are sorted 
into the order required by the RPG II compiler. 
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EXAMPLE 6 



COPY 





Problem 








Override copied input specifications to produce 
a report (below) that includes subtotals for 
branch and region. 

— - — 



Procedure 



Catalog specifications for the SALES file, 
as in Example 5. 

Code the /COPY statement. 

Code /COPY modifier statements to add 
control level indicators to BRANCH and 
REGION fields on copied specifications. 



10/26/78 






SALES REPORT 


FOR ANY 


CO. 




PAGE 


1 


REGION 


BRANCH 


ITEM 
NUMBER 


DESCRIPTION 


SALES 


AMOUNT 


ON-HAND 


VALUE 




1 


17 


AG7701T 
AG7705S 
AP6545B 


2-TON TRUCK 

PICK-UP 

CAMPER 


5 

10 

2 


25,000.00 

20,000.00 

8,000.00 

53,000.00 


2 

1 


10,000.00 
2,000.00 

12,000.00 * 






22 


AG7701T 
AG7705S 


2-TON TRUCK 
PICK-UP 


2 
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10,000.00 
8,000.00 

18,000.00 


1 
1 


5,000.00 
2,000.00 

7,000.00 * 














71,000.00 




19,000.00 ** 


3 


25 


AG6545B 
AG6549P 


CAMPER 

1/4 TON TRUCK 


10 
20 


40,000.00 
30,000.00 


5 
6 


20,000.00 
9,000.00 





Cataloged input specifications for the SALES file. 



To produce a report that has subtotals for branch and 
region, L1 must be assigned to BRANCH and L2 to 
REGION as the specifications are copied from the library. 
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15-58 Auto Report Function 



and gjj Code /COPY and modifier statements. As a result of the modifier statements, three levels 
of totals are accumulated for the SOLDVA and VALUE fields (L1, L2, and LR). 

File Description Specifications 



PRINTER; 



File Designation 



Recoid 
Length 



Mode of Processing 



Length ot Key Field c 
of Record Address Fu 



Recoid Address Type 



Type of Fil 
Organizatio 



Key Fie 
Startin. 
Locatic 



Symbolic 
Device 



Name of 
Label Exit 



Extent Exit 
for DAM 



Storage Index 



54 5556 57 S3 



6? 63 64 65 



File Addition/Unordered 



Number of Tracks 
for Cylinder Oveiflou 



Number of Extents 



Cond.tinr 
LM-U8 



ERBHCEH 



Entries on the modifier statements override the corre- 
sponding entries in the copied specifications. 



The field names, BRANCH and REGION, identify the 
input field specifications that are to be modified. 
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Output Specifications 



7 8 9 10 11 12 13 



Output Indicators 
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HSOT 



32 33 34 35 36 37 



^> 



Output 
Record 



40 41 42 43 
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to Print 


No Sign 


CR 
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Cataloged file description or input specifications are 
overridden as follows (see /COPY Statement Specifica- 
tions for examples): 

• Entries in a modifier statement override correspond- 
ing entries in a copied file description or input field 
specification. 

• Blank entries in a modifier statement remain un- 
changed in a copied specification. 



• Ampersand (&) in the leftmost position of an entry in 
the modifier statement sets the entry to blanks in the 
copied specification. 

• New fields can be added to input specifications by new 
input field specifications added as modifier statements. 

• Modifier statements do not change the cataloged specifi- 
cations. The modification is only for the program into 
which the specifications are copied. 
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Chapter 16. Programming Considerations 



STORAGE SAVING TECHNIQUES 

When a program is too large to fit into the execution 
storage size (specified in columns 12 through 14 of the 
control specifications), some storage saving techniques 
can be used to help reduce the program size. Before 
you can use these techniques effectively, however, you 
need to understand: (1) how the RPG II compiler 
creates overlays to make a program fit into the storage 
area available for execution and (2) how the compiler 
determines when a program is too large to fit into the 
storage available for execution. The following text 
discusses the overlay process and provides some 
suggestions for saving storage. 



Creating the Overlays 

To create overlays, the compiler first determines which 
routines go into the overlay area and which routines go 
into the suboverlay area. Then it calculates the size of 
the largest overlay and the size of the largest 
suboverlay. The compiler rounds off these sizes upward 
in increments of 256 bytes (1 sector) and then adds the 
sizes of the root segment, the largest overlay, and the 
largest suboverlay. If the sum is larger than the 
available storage, the program is too large and storage 
saving techniques must be used if the program is to be 
run in the available execution storage size. 



Note: The maximum object program size before the 
overlay structure is created is 64K. 



Overlay Process 

When a program exceeds the storage size available for 
program execution, the compiler places some RPG II 
object program routines on disk. These routines are 
then called into main storage as they are needed by the 
program. This is known as the overlay process. 

When the overlay process is used, main storage is 
divided into two main parts: the root segment and the 
overlay area. The root segment contains constants and 
data used more than once during the program execution. 
For this reason, the root segment always remains in 
main storage. The root segment can be used by 
routines in the overlay area and can call a routine in the 
overlay area by using a branch instruction. The overlay 
area contains the major routines of the RPG II object 
program. Routines in this area can be called by the root 
segment or by other routines in the same overlay area. 



Root segment 



Overlay fetch routine 



Overlay area 



Suboverlay area 



Secondary root segment 



Region 



Figure 16-1. RPG II Storage Map 



Some large programs require that storage be divided 
into two additional parts: the secondary root segment 
and the suboverlay area. The secondary root segment 
supplements the root segment. If the root segment and 
the overlay area fill main storage, the secondary root 
segment is not created. The suboverlay area, created by 
the RPG II compiler, contains subroutines and other 
RPG II code needed to support a routine in the overlay 
area. Figure 16-1 shows the location of the main 
storage areas. 



Storage Saving Techniques 16-1 



Special Open/Close 

The compiler uses a special open /close when the 
overlay requirements for open and close exceed the 
overlay requirements for the rest of the program. 
Special open /close can be easily identified because 
overlay $##002 is the first overlay identified in the main 
storage usage map (see Figure 16-2). 

The initial load of the program brings in the code 
specified in the main storage usage map between and 
including the root segment and the overlay fetch area. 
Open is completely self-contained and does not need 
any of the nonoverlay code. When open is complete, 
overlay code is loaded. 

Overlay code consists of all code that is identified as 
nonoverlay and was not loaded during the first load. 
(Overlay code is also identified as overlay $##002 in the 
overlay map following the storage usage map. The 
other overlay numbers correspond to their respective 
overlay numbers as they appear in the storage usage 
map shown in Figure 16-2.) The program then executes 
as a normal overlay program until close is needed. At 
this time, close is brought into main storage starting at 
the overlay fetch area and using as much main storage 
as is needed. To find the overlay fetch area size for the 
rest of the program, subtract the start of the overlay 
fetch area from the lowest start address of the 
nonoverlay code that was not included in the first load. 
For example, in Figure 16-2 the input control routine 
starts at hex 2340 so hex 2340 minus hex 2340 equals 
hex 0000-therefore, in this example there is no overlay 
fetch area. 

After identifying the root segment and the largest 
overlay and suboverlay, you can determine whether they 
contain routines that can be manipulated to reduce the 
overlay size. Remove routines that can be manipulated 
from the largest overlay and place them in the smaller 
overlay. When the root segment, largest overlay, and 
largest suboverlay are calculated, the storage area 
needed is less. Storage saving techniques can be used 
to control the following routines: 

• Input records 

• Detail calculations 

• Total calculations 

• Detail output 

• Total output 

The following storage saving techniques can be used for 
these routines; however, they might not work for all 
programs. 



Input Records: You can process one or more of the 
input or update files as a demand or chained file using 
the READ or CHAIN operation code. With a demand or 
chained file, the instructions to read the file can be 
moved into the total or detail calculation routines. 
Remember that total calculations are not done on the 
first cycle. 



Defa/7 or Total Calculations: 
techniques: 



Use the following 



• Use subroutine calculations. In some instances using 
subroutines can increase, rather than decrease, the 
storage required because of the nature of the existing 
calculation routines. However, it can reduce the 
overall storage requirements. If one subroutine calls 
another subroutine, both subroutines must be in 
storage at the same time. This can increase the size 
of the suboverlay area and the total storage required. 
To ensure the smallest requirement, do not call a 
subroutine from another subroutine. 

• Eliminate exception output if possible. This moves 
the logic for those output operations to either total or 
detail output routines. 

• Eliminate READ and/or CHAIN operations by using 
matching records and consecutive processing. This 
moves the logic to input records routine. 

• Move part of the detail calculations to total 
calculations (or total calculation logic to detail 
calculations). Total calculations are not done on the 
first cycle. 



Detail or Total Output: Use the foNowing techniques: 

• Use exception output. This moves part of the output 
logic to detail or total calculation routines. 

• Do some of the output at total (or detail) output time. 
This moves logic to the total (or detail) output 
routine. 

• Do not specify blank after for fields; instead, clear 
them at the beginning of detail or total calculations. 
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MAIN STORAGE USAGE OF RPG II CODE 



START 


NAME IF 


CODE 


NAME 


ADDR 


OVERLAY 


LENGTH 




OOOO 




226E 


RGROOT 


226E 




00D2 


RGSUBS 


23*0 




0600 


RGSUBS 


23B2 




009C 


RGMAIN 


244E 




OOBB 


RGSUBS 


2509 




0026 


RGSUBS 


2340 




006A 


RGSUBS 


23AA 




0008 


RGSUBS 


252F 




OOOC 


3PGDM 


253B 




01F5 


RGMAIN 


27B3 




0043 


3PGRI 


2730 




0083 


3PGCI 


2955 




0B2C 


RGMAIN 


28BD 




0071 


RGSUBS 


292E 




0027 


RGSUBS 


27F6 




00A3 


RGSUBS 


4172 




00A9 


9PGAA 


28A1 




0008 


RGSUBS 


3789 




0093 


RGSUBS 


409C 




006A 


3PGMC 


381C 




005A 


RGSUBS 


3876 




0161 


RGSUBS 


28A9 




0008 


RGSUBS 


36D3 




00B6 


RGSUBS 


3907 




003C 


RGSUBS 


3A13 




0078 


RGSUBS 


3C05 




0106 


RGSUBS 


3D0B 




0103 


RGSUBS 


3*81 




00D2 


RGSUBS 


3E46 




005B 


RGSUBS 


3E0E 




0038 


RGSUBS 


28B1 




OOOC 


RGSUBS 


35A0 




002C 


RGSUBS 


2899 




0008 


RGSUBS 


3EA1 




OOBE 


RGSUBS 


35CC 




005C 


RGSUBS 


3553 




0040 


RGSUBS 


3A8B 




017A 


RGSUBS 


4106 




006C 


3PGIC 


3F5F 




0130 


3PGMA 


3628 




OOAB 


RGSUBS 


4227 




01F2 


RGMAIN 


421B 




OOOC 


RGSUBS 


4*19 




007C 


3PGC0 


4*95 




OOOB 


RGMAIN 


44A0 




0024 


RGMAIN 


2340 


$Stf002 


0002 


RGMAIN 


2412 


*£«002 


0021 


RGSUBS 


2568 


$«tf003 


002E 


RGMAIN 


286F 


S««003 


0016 


RGSUBS 


23EF 


%tiH003 


0152 


RGSUBS 


2340 


SS0OO3 


00A3 


RGSUBS 


2541 


$.','«00 3 


0027 


RGSUBS 


2596 


$3^003 


02CD 


RGSUBS 


23E3 


S2«O03 


OOOC 


RGSUBS 


2863 


$««003 


OOOC 


3PGDM 



TITLE 

ROOT 

OVERLAY FETCH ROUTINE 

OVERLAY FETCH AREA 

INPUT MAINLINE 

RECORD IDENTIFICATION 

CONTROL FIELDS 

INPUT CONTROL ROUTINE 

INPUT HOOK 

DATA MANAGEMENT CALL 

INPUT FIELDS 

RESET RESULTING INDICATOR 

UNPACK 

DETAIL CALCULATIONS 

CONSTANTS 

CONSTANTS 

OUTPUT CONTROL ROUTINE 

TAG FETCH 

INPUT HOOK 

SUBSEG 

MULTIPLY 

SUBSEG 

SUBSEG 

INPUT HOOK 

CHAIN CODE 

SUBSEG 

SUBSEG 

SUBSEG 

SUBSEG 

EXCEPTION 

SUBSEG 

SUBSEG 

OUTPUT HOOK 

FETCH OVERFLOW 

INPUT HOOK 

SUBSEG 

CHAIN CODE 

OVERFLOW SUBSEGMENT 

SUBSEG 

DIVIDE 

MOVEA 

CHAIN CODE 

DETAIL OUTPUT 

OUTPUT HOOK 

PACK 

TOTAL OUTPUT 

LR I OVERFLOW PROCESSING 

OPEN MAINLINE 

TRANSFER VECTOR 

CLOSE MAINLINE 

TRANSFER VECTOR 

CONSTANTS 

OUTPUT CONTROL ROUTINE 

CONSTANTS 

LR OUTPUT 

OUTPUT HOOK 

DATA MANAGEMENT CALL 



OVERLAY 

NAME 
$««001 

tt'riiOOZ 

%Vii003 

^library 

^LIBRARY 



17728 MNL035 MAIN STORAGE REQUIRED TO EXECUTE. 

18705 MNL035 MAIN STORAGE REQUIRED TO EXECUTE WITHOUT OVERLAYS. 
RELATIVE START NUMBER OF STARTING MAIN 

DISK ADDRESS TEXT SECTORS STORAGE ADDRESS 

0025 22 2340 

0040 01 2340 

004F 06 2340 

SOURCE MEMBER INPUT LIBRARY. 
LOAD MEMBER OUTPUT LIBRARY. 



Figure 16-2. Main Storage Usage Map 
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Influencing the Overlay Structure 

You can influence the overlay structure that is created 
for a particular program if you have subroutines in the 
detail calculations. 

As the calculation subroutines are generated, the 
compiler assigns a priority to each subroutine for going 
into the overlay. The priorities are assigned from 1 to 6 
with the first subroutine in the calculations being 
assigned priority 1. The remaining subroutines in the 
calculations are assigned priority 2 through 6 as they are 
encountered. All subroutines after the sixth are also 
assigned priority 6. The subroutines are placed into the 
overlay, if required, according to the assigned priority. 
Priority 6 subroutines go into the overlay first, and the 
priority 1 subroutine goes in last. You should place the 
most frequently used subroutine first in your calculations 
and the least frequently used one last. This may reduce 
the number of overlay or suboverlay loads. 



General Storage Saving Techniques 

When the compiler finds that a program is too large for 
the storage available for execution, an error message is 
written. You can reduce the main storage needed for 
your program either by using some general storage 
saving techniques or by reducing the size of the 
overlays. 

You can use some of the following techniques: 

• Divide the program into separate tasks, creating a 
separate program for each task. For example, if you 
want to update a file and print a listing of the 
updated file, you can save storage by updating the 
file with one program and printing the listing with 
another program. 

• Eliminate unreferenced indicators. Eliminating 
unreferenced indicators can eliminate the instructions 
required to set the indicators on and off. 



Elii ..mate unnecessary conditioning indicators. Two 
possible forms of unnecessary indicator tests are as 
follows: 

- If only one type of input record is to be processed, 
the indicator associated with that record is always 
on except during the first detail output time. It is, 
therefore, not necessary for any calculation to be 
conditioned with this indicator. 

- When two subsequent operations on the same 
result field are conditioned on opposite indicator 
conditions, one of the conditions is not necessary. 
For instance, the N09 conditioning is not required 
in this example: 



N09 Z-ADD FLD 



FLDB 



09 Z-ADD FLDC FLDB 

This technique might not work for certain operations 
if the same field is used as the result field and as 
factor 1 or factor 2. 

Reuse calculation work areas and temporary hold 
areas. Once the data stored in these areas is used 
for the last time in a given cycle, the area is available. 
Reusing these areas can eliminate the need for two 
or more additional areas to be defined. However, the 
areas must be used for the same type of data. 

Reuse input field names. You can reuse input field 
areas by using the same name for fields in two or 
more files. This can be done only if the fields have 
the same attributes (length, alphameric/numeric, 
packed/binary) and each field is used only in the 
cycle in which the record is processed. Both files 
cannot be used in the same cycle. 

Reduce calculation result field sizes. Be sure that no 
result field is defined any larger than is necessary. 
Reducing the result field size can cause a warning 
that the result field may not be large enough. If you 
know that the largest possible number fits into the 
result field specified, you can continue compiling the 
program. 

Include the necessary intervening blanks when 
describing alphameric fields and constants for output. 
This makes the fields adjacent. The output 
optimization phase moves all adjacent fields and 
constants with one instruction instead of using one 
instruction to move each line: 



Not Optimized 

5' DAILY' 



Optimized 

18' DAILY TRANSACTION b' 



17'TRANSACTION' 26'REGISTER' 
26'REGISTER' 
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• Use data structures to define the same internal 
storage area for multiple record types and to reduce 
the use of MOVE and MOVEL operations. 

• Design files to contain record lengths that are an 
even multiple of 256 bytes or that divide into 256 
bytes an even number of times. 

• Design files so that match fields and control fields 
are assigned the same position within all record 
types. 

• Do not designate a field as numeric unless the field is 
used in an arithmetic operation in the program. This 
saves on the amount of storage required to store the 
field and allows the input and output fields' transfer 
routine to be optimized. 

• Use the shared input/output access method (SIAM) 
to process disk files. This may reduce the storage 
required for programs using input disk files; however, 
using SIAM can decrease program throughput. 

• Group calculation statements that are conditioned by 
the same indicators. When a large number of 
indicators are required, try to use GOTO or EXSR to 
reduce the number of indicator tests required on each 
statement. 

• Use the actual bit pattern in factor 2 when using 
TESTB, BITON, or BITOF. 

• Do not use half adjust unless absolutely necessary. 

• Try to use either factor 1 or factor 2 as the result 
field whenever possible. 

• Try to use numeric fields of the same length and with 
the same number of decimal positions. If the fields 
cannot be the same length, try to have the number of 
decimal positions the same. 

• Do not sequence check your records unless 
absolutely necessary. 

• Use OR lines rather than multiple record lines 
because OR lines require less code. 

• Specify the fields in a record in ascending order by 
record position. 

• Do not use halt indicators unless absolutely 
necessary. 



Reduce the Overlay Size 

To reduce the size of the overlay, you can reduce the 
size of the root segment or the overlay areas. First, 
however, you must identify the contents of the root 
segment and the largest overlays in main storage. Then 
you can determine whether the contents of these areas 
can be reduced to fit into the storage available for 
execution. 

Use the program listing to find the contents of the root 
segment, overlay area, and suboverlay area. The root 
segment contains the data and routines that are not 
given an overlay name in the main storage usage of the 
RPG II code section of the program listing (see Figure 
16-3). 

Two sections of the program listing determine the 
contents of the overlay and suboverlay areas. The 
section shown in Figure 16-4 gives the: 

• Overlay name 

• Number of sectors in the overlay 

• Start address of the overlay 

The start address separates overlays and suboverlays. 
Two start addresses appear in the start address column. 
The lower address (1868 in Figure 16-4) identifies an 
overlay; the higher address (1B68 in Figure 16-4) 
identifies a suboverlay. 

The text sectors column indicates the largest overlays. 
In Figure 16-4, overlay 002 is the largest suboverlay; 
overlay 004 is the largest overlay. 

Relate the name given in the overlay name columns 
shown in Figure 16-4 to the main storage usage of RPG 
II code section shown in Figure 16-5. The name and 
title columns in this section identify the routines or 
subroutines in the overlay. 

Note: If overlay 001 does not appear in the overlay 
name column, a special open/close overlay construction 
took place. When this occurs, overlay 001 is not treated 
as an overlay, but remains in main storage. 
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MAIN STORAGE USAGE OF RPG II CODE 



Root- 



START 

ADDR 

OOOO 

1743 

1868 

1EBB 

1FCB 

1F54 

1FA5 

1E68 

1B68 

1B68 

1B70 

1868 

1990 

1940 

1FE1 

1868 

IB31 

1A41 

1935 

1941 

1AF8 

1910 

1929 

IB74 

1ABC 

1B24 

1978 

1868 

1935 

1929 

1A98 

191D 

IA1C 

1FE3 

19A8 

1868 

1929 

196C 

191D 

19CC 

19D9 

19A1 

1A06 

1868 

195E 

1929 

19CF 

1910 

19FA 

19A8 

1ABB 

1965 

1868 

1929 

1910 

1AAF 

1AA2 



NAME IF 
OVERLAY 



$00001 
$00002 
$00002 
$00003 
$00004 
$00004 

$3 0004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00005 
$00005 
$00005 
$00005 
$00005 
$00005 
$00005 

$00006 
$00006 
$00006 
$00006 
$00006 
$00006 
$00006 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00008 
$00008 
$00008 
$00003 
$00008 
$00008 
$00008 
$00008 



CODE NAME TITLE 

LENGTH 

1743 RGROOT ROOT 

0125 RGSUBS OVERLAY FETCH ROUTINE 

0600 RGSUBS OVERLAY FETCH AREA 

0099 RGMAIN INPUT MAINLINE 

0016 RGSUBS TRANSFER VECTOR 

0051 RGSUBS RECORD IDENTIFICATION 

0026 RGSUBS CONTROL FIELDS 

0053 RGSUBS INPUT CONTROL ROUTINE 

01FC 3PGTA CONSOLE - IDE DATA MANAGEMENT 

0008 RGSUBS INPUT HOOK 

OlFC 3PGTA CONSOLE - IDE DATA MANAGEMENT 

0049 RGMAIN INPUT FIELDS 

00B1 RGMAIN DETAIL CALCULATIONS 

0043 RGSUBS CONSTANTS 

0002 RGSUBS CONSTANTS 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 3PGRI RESET RESULTING INDICATOR 

007B RGSUBS EXCEPTION 

OOOC RGSUBS OUTPUT HOOK 

OOOC RGSUBS OUTPUT HOOK 

002C RGSUBS FETCH OVERFLOW 

OOOC RGSUBS OUTPUT HOOK 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

003C RGSUBS OVERFLOW SUBSEGMENT 

OOOD RGSUBS SUBSEG 

00A4 RGMAIN DETAIL OUTPUT 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

OOOC RGSUBS OUTPUT HQOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOOC RGSUBS OUTPUT HOOK 

007C 3PGC0 PACK 

OOOB RGMAIN TOTAL OUTPUT 

0024 RGMAIN LR £ OVERFLOW PROCESSING 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

003C RGSUBS OVERFLOW SUBSEGMENT 

OOOC RGSUBS OUTPUT HOOK 

OOOD RGSUBS SUBSEG 

OOOC 3PGDM DATA MANAGEMENT CALL 

002E RGMAIN CLOSE MAINLINE 

0016 RGSUBS TRANSFER VECTOR 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

0035 RGSUBS CONSTANTS 

002B RGSUBS LR OUTPUT 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOFA RGMAIN OPEN MAINLINE 

0021 RGSUBS TRANSFER VECTOR 

0043 RGSUBS CONSTANTS 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

003C RGSUBS CONSTANTS 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOOD RGSUBS SUBSEG 



Figure 16-3. Overlay Usage Map 



08171 RPF148 MAIN STORAGE REQUIRED TO EXECUTE. 

08492 RPF148 MAIN STORAGE REQUIRED TO EXECUTE WITHOUT OVERLAYS. 

0LI8RARY SOURCE MEMBER INPUT LIBRARY. 

0LIBRARY LOAD MEMBER OUTPUT LIBRARY. 
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OVERLAY 


RELATIVE START 


NUMBER OF 


NAME . 

$00001 Lar 9 est 


DISK ADDRESS 
0021 


TEXT 


SECTORS 
02 


$00002-*- Suboverlay 


0024 




03 


$00003 , 




0028 




01 


$00004— Largest 




002A 




04 


$00005 Overlay 




002F 




03 


$00006 




0033 




02 


$00007 




0036 




02 


$00008 




0039 




03 



Suboverlays jj, 



STARTING MAIN 
STORAGE ADDRESS 
B68 
LB68 
1868 
1868 
1868 

Overlays \ i868 

1868 
1868 



Figure 16-4. Overlay Identification Area 



MAIN STORAGE USAGE OF RPG II CODE 



Suboverlay 001 
Suboverlay 002 
Overlay 003 



Overlay 004 



Overlay 005 



Overlay 006 



Overlay 007 



Overlay 008 



START 
ADDR 
0000 
1743 
1868 
1EBB 
1FCB 
1F54 
1FA5 
1E68 
IB68 
I1B68 
|1B70 
1868 
I 1990 
1 194D 
IFE1 
1868 
1B31 
1A41 
1935 
1941 
1AF8 
191D 
1929 
1B74 
1ABC 
1B24 
1978 
,1868 
'1935 
1929 
llA98 
1910 
IA1C 
1FE3 
19A8 
1868 
1929 
196C 
191D 
19CC 
19D9 
19A1 
1A06 
1868 
195E 
1929 
19CF 
1910 
19FA 
19A8 
1ABB 
1965 
1868 
1929 
191D 
1AAF 
1AA2 



NAME IF 
OVERLAY 



$00001 
$00002 
$00002 
$00003 
$00004 
$00004 

$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00004 
$00005 
$00005 
$00005 
$00005 
$00005 
$00005 
$00005 

$00006 
$00006 
$00006 
$00006 
$00006 
$00006 
$00006 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00007 
$00008 
$00008 
$00008 
$00008 
$00008 
$00008 
$00008 
$00008 



CODE NAME TITLE 

LENGTH 

1743 RGROOT ROOT 

0125 RGSUBS OVERLAY FETCH ROUTINE 

0600 RGSUBS OVERLAY FETCH AREA 

0099 RGMAIN INPUT MAINLINE 

0016 RGSUBS TRANSFER VECTOR 

0051 RGSUBS RECORD IDENTIFICATION 

0026 RGSUBS CONTROL FIELDS 

0053 RGSUBS INPUT CONTROL ROUTINE 

01FC 3PGTA CONSOLE - IDE DATA MANAGEMENT 

0008 RGSUBS INPUT HOOK 

01FC 3PGTA CONSOLE - IDE DATA MANAGEMENT 

0049 RGMAIN INPUT FIELDS 

00B1 RGMAIN DETAIL CALCULATIONS 

0043 RGSUBS CONSTANTS 

0002 RGSUBS CONSTANTS 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 3PGRI RESET RESULTING INDICATOR 

007B RGSUBS EXCEPTION 

OOOC RGSUBS OUTPUT HOOK 

OOOC RGSUBS OUTPUT HOOK 

002C RGSUBS FETCH OVERFLOW 

OOOC RGSUBS OUTPUT HOOK 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

003C RGSUBS OVERFLOW SUBSEGMENT 

OOOD RGSUBS SUBSEG 

00A4 RGMAIN DETAIL OUTPUT 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOOC RGSUBS OUTPUT HOOK 

007C 3PGC0 PACK 

OOOB RGMAIN TOTAL OUTPUT 

0024 RGMAIN LR E OVERFLOW PROCESSING 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

003C RGSUBS OVERFLOW SUBSEGMENT 

OOOC RGSUBS OUTPUT HOOK 

OOOD RGSUBS SUBSEG 

OOOC 3PGDM DATA MANAGEMENT CALL 

002E RGMAIN CLOSE MAINLINE 

0016 RGSUBS TRANSFER VECTOR 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

0043 RGSUBS CONSTANTS 

0035 RGSUBS CONSTANTS 

002B RGSUBS LR OUTPUT 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOFA RGMAIN OPEN MAINLINE 

0021 RGSUBS TRANSFER VECTOR 

0043 RGSUBS CONSTANTS 

00B5 RGSUBS OUTPUT CONTROL ROUTINE 

003C RGSUBS CONSTANTS 

OOOC RGSUBS OUTPUT HOOK 

OOOC 3PGDM DATA MANAGEMENT CALL 

OOOD RGSUBS SUBSEG 



Figure 16-5. Overlay Usage Map 



0G171 

08492 

0LI8RARY 

0LIBRARY 



RPF143 nAIN STORAGE REQUIRED TO EXECUTE* 

RPF148 MAIN STORAGE REQUIRED TO EXECUTE WITHOUT OVERLAYS. 

SOURCE MEMBER INPUT LIBRARY. 

LOAD MEMBER OUTPUT LIBRARY. 
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PERFORMANCE IMPROVEMENT TECHNIQUES 

Some relatively simple program changes can make 
significant improvements in a program's performance. 
However, these performance techniques do not improve 
performance in all programs. Therefore, study these 
techniques and determine whether they can improve 
your program's performance. The performance 
improvement techniques are: 

• Unblock all randomly processed indexed files. 
Blocking is not necessary because each record has its 
own index entry with the direct address of the 
record. 

• Block all sequentially processed indexed files. 

• Use the storage index. For a minimum cost in main 
storage, this allows the system to read the single 
track of indexes it needs rather than reading the 
entire index to look for an entry. 

• Reduce or eliminate blocking of consecutive files and 
double the buffer instead. For example, instead of 
using a block of 1,600 bytes with 80-byte records, 
use a block of 800 bytes and a double buffer. 



CODING TECHNIQUES FOR CALCULATION 
OPERATIONS 

This section contains the number of bytes of object 
code generated for RPG II operation codes. When used 
with the preceding information in this chapter, this 
information helps you determine the amount of storage 
that you can save by using certain coding practices. For 
example, one storage saving technique is to use numeric 
fields of the same length and with the same number of 
decimal positions. If the fields cannot be the same 
length, try to have the number of decimal positions the 
same. 

For example. Figure 16-6 shows that if the decimal 
positions of factor 1, factor 2, and the result field are all 
different, an ADD operation generates 27 bytes. 
However, if all the fields are defined as having the same 
number of decimal positions, the same ADD operation 
generates only 15 bytes. Uniformity of fields saves main 
storage not only for ADD and SUB, but also for most of 
the other arithmetic operations as well. 



Calculation Specifications 
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Figure 16-6. Bytes of Code Generated for ADD Operation 



16-8 Programming Considerations 



Abbreviations and symbols used in the following text 
are: 

F1 Factor 1 

F2 Factor 2 

RF Result field 

L1 Total length of factor 1 

L2 Total length of factor 2 

LR Total length of result field 

D1 Number of decimal positions in factor 1 

D2 Number of decimal positions in factor 2 

DR Number of decimal positions in result field 

H/A Half adjust 

RAF Record address file 

= Equal 

?<£ Not equal 
Minus 



> Greater than 




< Less than 




+ Plus 




Operation 


Bytes 


SETON (each indicator set on) 


3 


SETOF (each indicator set off) 


3 


BITON 


4 


BITOF 


4 


TESTB 




Test bit off 


10 


Test bit mixed 


17 


Test bit on 


10 


Test bit off and mixed 


23 


Test bit off and on 


23 


Test bit mixed and on 


23 


Test bit off, mixed, and on 


29 


SUB 




F1 = RF and D1 = D2 = DR and L1 > L2 


6 


F1 # RF and D1 = D2 = DR 


15 


F1 * RF and D2 = DR 


23 


F1 # RF and D2 = DR H/A 


27 


All other combinations 


31 


All other combinations H/A 


39 


Z-SUB 




D2 = DR 


14 


D2 ± DR 


18 


D2 * DR H/A 


22 



Operation 

ADD 

F1 = RF and D1 = D2 = DR 

F2 = RF and D1 = D2 = DR 

F1 5* F2 * RF and D1 = D2 = DR 

F1 = RF and D2 > DR 

F2 = RFand D1 > DR 

F1 = RFand D2 > DR H/A 

F2 = RF and D1 > DR H/A 

F1 = RF and D2 < DR 

F2 = RF and D1 < DR 

D1 = D2 < DR 

F1 = RF and L2-D2 > L1-D1 

F2 = RF and L1-D1 > L2-D2 

F1 = RF and L2-D2 > L1-D1 H/A 

F2 = RF and L1-D1 > L2-D2 H/A 

All other combinations 

All other combinations H/A 
Z-ADD 

D2 = DR 

D2 > DR 

D2 > DR H/A 

D2 < DR 
COMP 

F1 and F2 are numeric and D1 = D2 

F1 and F2 are numeric and D1 ^ D2 

F1 and F2 are alphameric and L1 = L2 

F1 and F2 are alphameric and L1 # L2 

F1 and F2 are alphameric and F1 is a table 

Alternate collating sequence (add these 

bytes to the appropriate COMP listed 

previously) 
TESTZ 

RF is a field 

RF is a table 
MULT 

with H/A 
DIV 

D1 - D2 = DR 

D1 - D2 jt DR 

D1 - D2 = DR + 1 H/A 

D1 - D2 # DR + 1 H/A 



Bytes 

6 

6 

15 

14 

14 

18 

18 

18 

18 

23 

27 

27 

35 

35 

27 

35 

6 

14 
18 
18 

10 

18 

6 

22 

26 

10 



9 

20 
23 
27 

23 
27 
31 
35 
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Operation Bytes 

MVR 

D2 = DR 5 

D2 ± DR 9 

XFOOT 

D2 = DR 9 

D2 ,t DR 13 

FORCE 

with external indicator 13 + 7 = 20 

Conditioning indicators (does not apply to CHAIN, 

FORCE, LOKUP, and READ) 

each indicator 3 

each AND type 3 

Resulting indicators (does not apply to 5 
CHAIN, FORCE, LOKUP, and READ) 

with each resulting indicator 3 

CHAIN (base = 16) 

With external indicator 6 

When F1 has a variable index 1 1 

When key is not packed 14 

When key is packed 23 

When key is packed and F1 is a table 6 

element 

When key is a record number 8 

When key is a record number and F1 is a 6 

table element 

When record-not-found indicator is given 1 

When record-not-found indicator not given 16 

READ (base = 29) 

With external indicator 6 

With EOF indicator with BSCA 6 

With EOF indicator without BSCA 12 

With BSCA without EOF indicator 6 

Without BSCA without EOF indicator 19 

With RAF limits 6 

LOKUP (base = 15) 

When F1 is a table 6 

When F1 is a variable 1 1 

With each resulting indicator 12 

SORTA 

Inline calculation code 7 

Subroutine 428 



Operation 

KEYnn (base = 27) 

When RF is a variable indexed array 
When RF is numeric, and a table element 

with each resulting indicator 
When RF is alphameric, and 

with resulting indicator and field 
length > 1 
length = 1 
When F1 is numeric and with resulting 
indicator and field 
length > 1 
length = 1 
SETnn (base = 27) 
With ERASE function 
When F1 is numeric and with resulting 
indicators and field 
length > 1 
length = 1 
SETnn /KEYnn combination (base = 27) 
See KEYnn operation for code in 
addition to base. If F1 code appears 
on both SET and KEY instructions, 
both counts should be included. 
SETLL(base= 18) 

When key is packed 
EXSR 
GOTO 
TIME 

Time only 

Time and system date 
ACQ 

Inline calculation code 
Subroutine 
REL 

Inline calculation code 
Subroutine 
NEXT 

Inline calculation code 
Subroutine 
POST 

Inline calculation code 
Subroutine 



Bytes 

11 
6 
14 


23 

7 



12 

4 

4 

21 

21 

12 
350 

12 
402 

12 
231 

8 
437 



16-10 Programming Considerations 



Operation 

SHTDN 
MOVEA 

Inline calculation code 

Subroutine 

MOVE, MOVEL, MHHZO, 
MHLZO, MLHZO, MLLZO 



Bytes 
22 

14 
367 

The number of bytes 
specified includes all 
array control code 
lengths (see Figure 16-7). 



Array control code (initialization and processing) is 
generated for all calculations except LOKUP, CHAIN, 
READ, and FORCE. 



Array initialization 




F1 or F2 is an array 


6 bytes 


F1 or F2 is a table 


4 bytes 


F1 or F2 is an array with variable 


11 bytes 


index 




Array processing 




F1, F2, RF are arrays 


28 bytes 


F1 and RF, F2 and RF arrays 


22 bytes 


RF arrays 


16 bytes 



If a SUB operation code is specified and has the 
following conditions: 

F1 = RF 

D1 = D2 = DR 

F1 and RF = full array 

F2 = table 

the length of object code generated is as follows: 

Array initialization 

F1 is an array 6 bytes 

F2 is a table 4 bytes 

RF is an array 6 bytes 

SUB 6 bytes 

Array processing 

F1 and RF are arrays • 22 bytes 

Thus, the total bytes of code generated for a SUB 
operation code is 44 bytes. 

Whenever an array with a variable index is specified in a 
program (except with a MOVEA operation), the following 
are also generated: 



Inline code 
Subroutine 



11 bytes 
173 bytes 
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Field to Field 

Array to Array 

Field to Array 

Table to Array 

Array, Variable 
Index to Array 

Array, Variable 
Index to Array, 
Variable Index 

Field to Array, 
Variable Index 

Table to Array, 
Variable Index 

Array, Variable 
Index to Table 

Field to Table 

Table to Table 

Array, Variable 
Index to Field ' 

Table to Field 




42 



29 



35 



40 



28 



17 



20 



20 



15 



17 



55 



43 



53 



66 



57 



34 



52 



46 



23 



41 



40 



29 



45 



32 



38 



43 



38 



27 



33 



27 



16 



22 



21 



13 



42 



42 



42 



42 



42 



29 



29 



29 



29 



29 



35 



40 



35 



35 



41 



40 



52 



40 



40 



5? 



28 



35 



35 



35 



35 



17 



17 



24 



24 



31 



20 



24 



30 



30 



24 



20 



30 



24 



24 



24 



13 



13 



15 



19 



19 



19 



19 



17 



24 



17 



31 



24 



13 



13 



42 



29 



40 



52 



47 



24 



36 



36 



13 



25 



36 



13 



42 



29 



35 



40 



42 



31 



20 



20 



15 



31 



Figure 16-7. Bytes of Code Generated for MOVE Operations 
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Chapter 17. Detailed RPG II Program Logic 



For each record that is processed, the RPG II object 
program goes through the same general cycle of 
operations. Within each program cycle, calculation and 
output operations can be performed at two different 
times: total time and detail time. First, total calculation 
and total output operations (those conditioned by control 
level indicators) are performed. Second, all detail 
calculation and detail output operations are performed. 
(Detail calculation and output operations are those not 
conditioned by control level indicators in columns 7 and 
8 of the calculation specifications or a T in column 1 5 of 
the output specifications.) Total calculation and total 
output operations are performed on data accumulated 
for a control group. Detail calculation and detail output 
operations are performed for individual records as they 
are read, provided conditioning indicators are satisfied. 
See RPG II Program Cycle in Chapter 1, Introduction, for 
a general description of the logic flow. 

The specific steps taken in one program cycle are 
shown in Figure 17-1. The item numbers in the 
following description refer to the numbers in the figure. 
The program cycle, which occurs for each record read, 
begins with step 3 and continues through step 26. 

1. The system reads in the external indicators and 
the display station local data area, if specified, and 
opens all data files to be used by the RPG II object 
program; that is, the files are prepared to be 
processed by the object program. Data structures 
are blanked, and preexecution-time tables and 
arrays are loaded before the first program cycle. 

2. The object program performs all output 
conditioned by the 1 P (first page) indicator. This 
output is performed only once per job and does 
not fall within the program cycle (steps 3 through 
26). 

3. The object program performs all specified heading 
and detail output operations whose conditions are 
satisfied. This includes specifications that are 
conditioned by the overflow indicator if the 
overflow routine has been fetched. 

4. The object program tests to determine whether the 
overflow line was encountered during detail 
calculations in the previous cycle or when heading 
and detail records were written in the current 
cycle. If so, the overflow indicator is set on. 
Otherwise, the indicator is set off unless the 
overflow routine was fetched in step 3. 



10. 



11. 



The object program tests the halt indicators. If the 
halt indicators are off, the program branches to 
step 6. 

a. The execution of the program is stopped once 
for each halt indicator that is on. The operator 
selects one of three options: continue, 
controlled cancel, or immediate cancel. 

b. If the operator selects the option to continue 
the job, the program returns to step 5 to test 
for other halt indicators. If the operator selects 
one of the cancel options, the program 
branches to step 35. 

All record identifying indicators and indicators 1P, 
L1 through L9, and H1 through H9 are set off. 

The program tests to determine whether the LR 
indicator is on. If it is, the program branches to 
step 27. 

The program tests to determine whether the 
KEYBORD is the primary file or if no primary file is 
specified. For either condition, the program 
branches to step 18. 

The program reads (and translates, if necessary) 
the next input record. At the beginning of 
processing, one record from each input file (except 
forced files and demand files) is read. If the file 
has look-ahead fields, the file is read only on the 
first cycle. After that, records with look-ahead 
fields are identified only. If this is a WORKSTN 
file and the SAVDS and/or IND option is 
specified, the common SAVDS and/or IND area is 
moved to the active display station's SAVDS 
and /or IND hold area. The next record is 
accepted, and the current display station's SAVDS 
and /or IND area is moved from its hold area to 
the common SAVDS and/or IND area. 

The program tests to determine whether the 
record is an end-of-file record. If an end-of-file 
condition has occurred, the program branches to 
step 12. 

If end of file has not occurred, a test determines 
whether the input records are in the sequence 
specified on the input specifications sheet. If the 
sequence is incorrect, the program branches to 
step 33. The program also branches to step 33 if 
nonsequential input records are specified and the 
record cannot be identified. 
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12. If end-of-job conditions have been met, the 
program branches to step 27. All files for which 
an E is specified in column 17 of the file 
description specifications must be at end of file. 

13. When multiple input files are used, the program 
must select the next record to process, so it 
branches to step 28. 

14. If there is only one input file, no record selection is 
needed. A test determines whether sequence 
checking is requested. If so, the program branches 
to step 31. 

1 5. The record identifying indicator specified for the 
current record type is set on. Data from the 
current record type is not available for processing 
until step 25. 

1 6. If the record contains control fields, the object 
program tests to determine whether a control 
break has occurred (the contents of the control 
field are not equal to the contents of the 
previously stored control field). If a control break 
has not occurred or control fields are not 
specified, the program branches to step 18. 

17. If a control break has occurred, the control level 
indicator reflecting the condition is set on. All 
lower level indicators also are set on. 

18. A test is made to determine whether the total time 
calculations and total time output should be 
performed. If no control levels are specified on the 
input specifications, the totals are bypassed only 
on the first cycle. If control levels are specified on 
the input specifications, totals are bypassed until 
after the first record containing control fields is 
processed. Totals are always processed when the 
LR indicator is on. 

19. All calculations conditioned by control level 
indicators (columns 7 and 8 of calculation 
specifications) are performed, and resulting 
indicators are set on or off as specified. If the LR 
indicator is on, calculations conditioned by LR are 
done after other total calculations. File translation, 
if specified, is done for exception output and 
CHAIN and READ operations. Fetch overflow is 
performed if it is required by exception output. If 
the overflow line has been reached because of the 
exception output, the overflow indicator is set on. 



20. All total output that is not conditioned by an 
overflow indicator is performed. The program 
tests to determine whether an overflow condition 
has occurred. If an overflow condition has 
occurred at any time during this cycle, the 
overflow indicator is set on. If the LR indicator is 
on, output conditioned by LR is done after other 
total output. File translation, if specified, is done 
for total output. Fetch overflow is performed if 
required. 

21. The program tests to determine whether the LR 
indicator is on. If the indicator is on, the program 
branches to step 38. 

22. The program tests to determine whether any 
overflow indicators are on. If no overflow 
indicators are on, the program branches to step 
24. 

23. All output operations conditioned by a positive 
overflow indicator (no N preceding the indicator) 
are performed. File translation, if specified, is 
done for overflow output. 

24. The MR indicator is set on if this is a multifile job 
and the record to be processed is a matching 
record. Otherwise, the MR indicator is set off. 

25. Field indicators are set on or off as specified. 
Data from the last record read and from specified 
look-ahead fields is made available for processing. 
Command key indicators (KA through KN, KP 
through KY), for a WORKSTN file only, are set off, 
and if a command key is pressed for the 
WORKSTN file being processed, that command 
key indicator is set on. 

26. Any calculations not conditioned by control level 
indicators (columns 7 and 8 of the calculation 
specifications) are performed, and resulting 
indicators are set on or off as specified. File 
translation, if specified, is done for exception 
output and CHAIN and READ operations. Fetch 
overflow is performed if it is required by exception 
output. If the overflow line is reached because of 
the exception output, the overflow indicator is set 
on. Processing continues with step 3. 

27. The LR indicator and all control level indicators (L1 
through L9) are set on and processing continues 
with step 19. 

28. If a file was forced or if NEXT was specified, the 
next record in that file is selected for processing 
and the program branches to step 1 5. 
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29. If a record with no match fields is found in a 
normal input file that is not at end of file, the 
record is selected for processing. 

30. When match fields are specified, the normal file 
with the highest priority matching record field is 
selected. If two or more files have equal and 
highest priority matching record fields, the highest 
priority file is selected. (The primary file has the 
highest file priority, the first specified secondary 
file is next, and so forth.) 

31. The match field value is compared to the match 
field value of the last record. If it is in sequence, 
the record is accepted, and processing continues 
with step 15. 

32. The execution of the program stops because a file 
with match fields is out of sequence. The 
operator's options, indicated in step 34, are to 
bypass (read the next record from the same file) or 
cancel the job. 

33. The execution of the program stops because of a 
record type sequence error or an unidentified 
record. 

34. The program tests the operator's decision either to 
bypass the record that caused the error condition 
(branch to step 4) or to cancel the job. 

35. If the operator elects to terminate the job by 
means of a controlled cancel, steps 36 through 40 
are performed. If the operator selects an 
immediate cancel, the job is terminated. 

36 and 37. All operations conditioned by the LR 
indicator are done. 

38. The program writes any tables or arrays for which 
a filename entry is specified on the extension 
specifications (columns 19 through 26). Output 
tables or arrays are translated, if necessary. 

39. All files used by the program are closed (final 
termination functions are done). The external 
indicators and display station local data area, if 
specified, are written out. 

40. End of job occurs. 
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Get external indicators and display 
station local data area, if specified 

Open all files 

Load preexecution-time tables and 
arrays 




Perform first page 
(1P) output 



Perform heading, detail, and 
fetched overflow output 
Set overflow indicator on if 
overflow line is reached 




o 

< 



Set off overflow indicators if per- 
formed last cycle, leave on if fetched 
during detail calculations of previous 
cycle or during detail output of 
current cycle 



Set on LR, L1-L9 



Halt (operator option) 





Set off record identifying indicators 
and 1P, L1-L9, H1-H9 indicators 




Perform L0-L9 and LR calcula- 
tions, also EXCPT, CHAIN. KEY, 
and READ, if requested 
Set on or off resulting indicators 

Set overflow indicator on if over- 
flow line is reached as a result 
of exception output 

Perform fetch overflow if required 
by exception output 




CD Note: For WORKSTN file input processing, see Figure 13-2 
in Chapter 13, WORKSTN File Considerations and Sample 
Programs. 




o 



o 




• Close files 

• Output external indicators and 
display station local data area if 
specified 



END OF JOB 






Choose highest priority record 
by matching field content 








ndicator on ^^~ 


23 




jYes 


/ 


Perform 


overflow output / 


24 







Set MR indicator on or off 



Set field indicators on or off 

Make data available from last 
record selected 



*DETC 



Perform detail calculation, also 
EXCPT, CHAIN, READ, KEY, 
and FORCE, if required 

Set resulting indicators on or off 
Set overflow indicator on if over- 
flow line is reached as a result 
of exception output 

Perform fetch overflow if required 
by exception output 
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Chapter 18. Compiling and Executing RPG II Programs 



COMPILING THE RPG II SOURCE PROGRAM 



RPG Command Statement 

To compile an RPG II source program, the RPG II 
compiler must be loaded into main storage. To do this, 
the operator enters a command statement that executes 
an IBM -supplied library procedure named RPG. The 
operator can place the job on the input job queue either 
by specifying the appropriate option on the command 
statement (see the special options parameter) or by 
using the job queue command. (For information on the 
job queue command, see the System Operator's Guide.) 
The RPG command statement is: 

nop „„„„.„„, „„„,„ ["source file sizel Twork file size! 
Hr(j program name, I „ I.I I 

L?o J L.29 J * 



NOSTOP 
REPLACE 
NO HALT 
HALT 



pource program library name 
L#LIBRARY_ 



]■ 



[object program library nameH Tmrtmax value 
#LIBRARY J »Lo 



]• 



[3 •[=!•[ 



|_ GEN J 



special options 
00 



] 



where: 



program name is the name of the source 
program to be compiled. If this parameter is 
not specified and no other parameters are 
specified, the system displays a menu 
requesting the name of the source program and 
listing the default values for all the parameters. 
The default values can be overridden at this 
time. If this parameter is not specified but 
other parameters are specified, the system 
displays a menu requesting the name of the 
source program and listing the user- specified 
parameter values and the defaults for all 
unspecified parameters. These values can be 
overridden at this time. If the RPG procedure is 
placed on the input job queue, the program 
name must us spGCiiiGu. ogg tuG description Oi 
the special options parameter for an explanation 
of how to direct the RPG procedure to place 
the job on the input job queue after you enter 
values into the menu. 



source file size is the number of blocks (each 
block is 2,560 bytes) for the $SOURCE file. If 
this is not specified, the default is 20 blocks. 

work file size is the number of blocks for the 
$WORK file. If this is not specified, the default 
is 20 blocks. If the compiler is assigned a 
region size greater than or equal to 48K, a 
minimum of 30 blocks must be specified for the 
$W0RK file for any size program. 

HALT, the default for this parameter, specifies 
that the system halts for terminal diagnostics. 

NOHALT specifies that the system does not 
halt for terminal diagnostics. REPLACE 
specifies that the system replaces an existing 
library member with the newly compiled object 
that has the same name. The replace is done 
automatically; no message is issued. NOSTOP 
combines the functions of NOHALT and 
REPLACE. The system replaces an existing 
library member with the newly compiled object 
that has the same name. The system does not 
halt for terminal diagnostics. 

source program library name specifies the name 
of the library that contains the source program. 
If it is not specified, the system library, 
#LIBRARY, is assumed. 

object program library name specifies the name 
of the library that will contain the compiled 
object program. If it is not specified, the 
system library, ^LIBRARY, is assumed. 
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mrtmax value specifies the maximum number of 
active, requesting display stations that can be 
attached to the program. The mrtmax value can 
be a decimal number from through 99. If the 
mrtmax value is or if it is not specified, the 
object program is not an MRT program. If the 
value specified here is equal to or greater than 
1, it can be overridden by an ATTR statement 
when the object program is executed. 

Note: The mrtmax value must be less than or 
equal to the value specified for the NUM option 
on the file description specifications. If the 
mrtmax value equals the NUM value, the ATTR 
statement cannot increase the maximum 
number of allowable requestors unless the 
NUM value is also increased. 



special options (00) specifies which of the 
following special compile options are chosen: 

On: The job is not placed on the input job 
queue. 

1n: The job is placed on the input job 
queue. 

nO: A cross-reference listing of symbols is 
not provided. 

n1 : A cross-reference listing of symbols is 
provided. 

If special options are not specified, the default 
is 00. 



YES/NO specifies whether the object program 
is an NEP (never-ending program). YES 
specifies that the program is an NEP. If NO is 
specified or if the parameter is not used, the 
program is not executed as an NEP. The NEP 
attribute can be overridden by an ATTR 
statement when the object program is executed. 

NOGEN specifies that the RPG II format 
generator will not be executed, and GEN960 
specifies that the screen formats generated for 
the CONSOLE file will be for a 12-line, 
960-character screen. If neither NOGEN nor 
GEN960 is specified, the RPG II format 
generator is executed to generate source input 
to the $SFGR utility program, which provides 
display screen formats for the CONSOLE file for 
a 24-line, 1920-character screen. The source 
specifications for the $SFGR utility are not 
saved when the RPG II format generator is 
executed by the RPG procedure. To save the 
source specifications for the 24-line, 
1920-character displays, specify NOGEN on the 
RPG command statement and use the RPGR 
command statement. 



For a complete description of the MRTMAX (xx) and 
NEP (yes/no) parameters, see the System Support 
Reference Manual. 

Note: The RPG procedure reserves bytes 201 through 
256 of the display station local data area for its use. 
Therefore, any user data in these bytes will be 
destroyed. 

The RPG procedure exists in RPG's library #RPGLIB and 
is called by the RPG procedure that exists in the system 
library. Figure 18-1 shows the OCL statements included 
in the library procedure named RPG. 
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THIS PROCEDURE SHOULD EXIST ONLY I» 



S726-RGI COPYRIGHT 1I1M CORP I T r 

LICENSED MATERIAL - PROPERTY OF I UK 

REFER IO IBM CUPlfHICHr 1 NS I HUC T I 0N5 FI)H« N 

RPG PGNAME . *SOURCE • SWUHKiNCJHAl. T • I NL IO.OUTLIO. 



120-2031 

1 
AX. ..r.P.NOGEN.SPCLDPT 



THIS PROCEDURE LXt-CUIES I HE HPO COMPILED AM) C'INIII IMNALIY 
EXECUTES THE CONSOLE SCREEN FORMAT GENERATOR KHOM THE RPG Llh> 
■ WRPGL I 0' . 

THE POSITIONAL PARAMETERS AS INPUT AHL THE FIILL.JW I Nu- 
IST - PHOGRAM NAME* IREUUIREUI. 

2ND - « ULOCKS FOR tSOURCE FILE. DEFAULT- 20. 
3RD - • ULOCKS Fill! ««0«K FILE. DEFAULT- 20. 
ATM - HALT OPTIONS. TERMINAL DIAGS ANO/OR DUP MEMi 
STM - INPUT LIBRARY. DEFAULT- «LIl!«A^Y. 
6TH - OUTPUT LIBRARY. DEFAULT- *LIURARY. 

JTM - (MHTI MAX » OF ACTIVt RFQUESTING WORKSTATIONS, OEFAULf 
UTH - NEP ATTRIBUTE. DEFAULT- NO. 

>TH - GENERATE CONSOLL SCREEN FORMATS. DEFAULT- YES. 
10TH - SPECIAL OPTIONS CHOICES. DEFAULT- 00000000 I NONE I 



DEFAULT-HAL I 



ARE RESERVING 



rTES 201 



2b') OF THE LOCAL 



££««£&«««« £?£««£«&£»$ 



LOCAL AREA USAGE 



S4«t«S*C«»*«« 



20J 

204 

20b 

206-21 J 

214-221 

222 



232-242 
UYTES 24J 
243 



OEFINI T ION 
E USED I1Y THE KPG AN 

- HALT ON TEHMINAI 

1 - DCINT HALT ON II 

- CALL SCREEN FOR 

1 - DON'T CALL FORM 

2 - GENERATE CUNSOLi 
I - TERMINAL ERRORS 



AUIO P'UJCS IN «RPGLIU. 

ERRORS DURING COMPILE. 
RMINAL ERRORS. 

AT -.ENERATOR FOR CONSOLE FILE 
T GENERATOR, 

FORMATS FOR '(60 CHAR SCRtEN. 
IN PROGRAM > SET t)Y JRPKA. 



1 - REPLACE DUPLICATE MEMBERS WITHOUT 
O'S - NOT USED 

- MEMBER NAME OF SOURCE PROGRAM. 

- INPUT LIBRARY NAME. 

I - SUfJMIT JOB TO HATCH JOB QUEUE, 

- RUN JOB FROM WORKSTATION. 

1 - CALL CROSS REFERENCE PROGRAM. 

- DON'T RUN CROSS REFERENCE. 

1 - FOR AUTJ REPORT. RUN AUTO ONLY 

- FOR AUTO REPORT. RUN AUTO AND RPG 

- RESERVED FOR 'SPECIAL OPTIONS'. 
JO - JOB SUUMITTEO TO JOtl OUEUE. 

WS - WORKSTATION 10. 
ULANK - NOT USEO 
•256 ARE USED OY THE HP&R PHOC IN «RPGLIt). 

1 - MSG RPG-1024. 
1 - MSG HPG-1023 

1 - MSG RPG-1022 
1 - MSG RPG- 102 1 
NUMBER OF CONSOLE FORM* 
SOURCE MEMOEH NAME SET 



"ESSA 



SCSSSSSSt 






TAG PROMPT 

IFF ?1?/ GOTO NAMEP 

PROMPT FOHMAT-RPG. SCREEN FORMAT 

IF OSPLY-IGC MEMBER-»RPtHELP 

ELSE MEMUER-WRPJHELP 

TAG NAMEP 

IFF ?!?/ GOTO NAMPRES 

S 1016 

GOTO PROMPT 

TAG NAMPRES 

INITIALIZE BYTES 201-256 OF LOCAL AREA 



PUT POSITIONAL PARMETERS IN THE LOCAL 



//■ IF ?4?/N0HALT LOCAL OFFSE T-201 .DAT A- • 

// IF ?4?/NOSTOP LOCAL OFFSET-20 I .OAT A-' 

S/ IF T47/NOSTOP LOCAL OFFSfc T-204 .DATA- • 

// IF ?4T/REPLACE LOCAL OFF SE T-204 . DAT A- 

// IF ?g?/NOGEN LOCAL OFFSE T-202 . OATA-' 1 

//• IF T9T/GEN960 LOCAL OFFSET-202 .OAT A- • 

// LOCAL 0FFSF.T-206.0ATA-'?!?' 

//■ LOCAL OFFSET-2l4,OATA-'?S' .-LIBRARY'?' 

// LOCAL OFFSET-222.DATA-'?lO'00000000' ? 



NOHALT (TERMINAL ERRORS! 

NOSTOP (TERMINAL ERRORS! 

REPLACE I DUPLICATE MFMftR) 

REPLACEI OUPL ICATE ME«"URI 

NOGFN 

GEN160 

PGM NAME 

INPUT LIOWARY 

SPECIAL PARAMETERS 



// IFF ?L'222.1'?/l LOCAL OFF SE T-222 . DATA- • • 
// ELSE JOBQ ORPGLIB.RPG. ?l ?.?2?. TJ?. ?4?. ?5?. 1 

• / IF ?L'222.1'?/I RETURN 

// IF JOUO-NO IF EVOKEO-NO » 1017 

//■ LOAD »HPG 

// FILE NAME-ISOURCE.HETA IN-S. ULOCKS- ?2'20' ? 

•/ FILE NAML-tWORK. RETAIN-S. BLOCKS-? J'20' » 

y/ PRINTER NAME-RPGPO INT 

• / MEMBER PROGRAMl-#RP»CPLl 

• / MEMBER PR0&HAM2-*RP*CPL2 

• / COMPILE INLIU-?ST.OUTL IF>-?6 ■ »L I MRARY' ? . M-IT * 
•/ SOURCE-?l? 

// RUN 



•0?L'223. T 



* IF 



CROSS REFERENCE LISTING WAS REUUESTEJ. INITIATE T'lE XhEF PROGRAM 
?L'20J.I'?/I IF ?L'22J. 1 •?/! INCLUDE RPGX ?!?.???. ?5? 



IF CONSOLE WAS IN THE PROGRAM AND •NDGfcN' WAS NOT RE.1UESTFD CALL 
THE SCHElN FORMAT GENERATOR. PHASE «HPKA SET LOCAL BYTE 202 TO A 
Nil CONSOLE FILL WAS IN TH£ PHUGRA" OR TERMINAL ERR-JHS OCCUKf). 

?L' 2 0' . 1 •?/! GOT J EXIT 

?4?/NJSTOP INCLUDE RPGR ? 1 ? • ? 2? .NOS AVif • » 5 ? • ?'>? . ?'»? . HEPL ACE 
ELSE IF '47/HEPLACL INCLUDE RPGH ? I ?. ?2 ?. NOSAVE . ?5 ?.?•>?. *<» ?, ?4 ? 
ELSE INCLUDE RPGR ? I » . ?2? . NOSAVE . ?5T . ?G? . ?'>? 
FAG LXIT 



Figure 18-1. IBM-Supplied Library Procedure (RPG) for Compiling an RPG II Source Program 
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RPGX Command Statement 



RPGR Command Statement 



The special compile options parameter (ab) on the RPG 
command statement allows you to specify that a 
cross-reference listing of symbols be provided for the 
program being compiled. The RPGX command 
statement allows you to request this cross-reference 
listing for a program that has already been successfully 
compiled. The RPGX command statement is: 

Tsource and symbol file sizeH 
RPGX program name, I 2Q I , 

f source program library nameH 
#LIBRARY J 

where: 

program name is the name of the RPG source 
program. This parameter is required. If it is not 
specified, a prompt requests the name of the 
source program. 

source and symbol file size is the number of 
blocks (each block is 2,560 bytes) for the files 
used by the cross-reference programs. If the 
file size is not specified, the default is 20. You 
should specify the same value for this file size 
that you specified when the program was 
compiled. 

source program library name specifies the name 
of the library containing the RPG II source 
program. If the library name is not specified, the 
system library, #LIBRARY, is assumed. 

Note: No diagnostic checking is provided with the RPGX 
procedure. Therefore, you should use this command 
only for RPG II source programs that have been 
successfully compiled and for which object programs 
have been produced. Unpredictable or confusing results 
may occur if auto report source statements or RPG II 
source statements containing terminal errors are used as 
input to the RPGX procedure. 

The RPGX procedure exists in RPG's library #RPGLIB 
and is called by the RPGX procedure that exists in the 
system library. Figure 1 8-2 shows the OCL statements 
included in the library procedure named RPGX. 



If the NOG EN parameter is specified for the RPG 
procedure and the program contains a CONSOLE 
device, you can use the RPGR procedure to execute the 
RPG II format generator. The RPG II format generator 
produces and saves source input for the $SFGR utility 
program of the system support program product. The 
$SFGR utility program then produces the display screen 
formats for a CONSOLE file. The command statement 
for the RPGR procedure is: 



RPGR program name 



r soi 

' L 20 



source and format file 



size] 

J' 



pMOSAVE 
I SAVE 



]•[: 



source program 
#LIBRARY 



library name 



] 



[load module library namel fGEN96fjl H,™, A «,TI 
^LIBRARY J ' [gEN J ' L REPLACE J 



where: 



program name is the name of the RPG II source 
program. This parameter is required. If it is not 
specified, a prompt requests the name of the 
source program. 

source and format file size is the number of 
blocks (each block is 2,560 bytes) for the 
source file and SFGR file. If the file size is not 
specified, the default is 20. 

NOSAVE specifies that the source statements 
for the $SFGR utility are not to be saved. If 
NOSAVE is not specified, the source 
statements are saved in the library specified as 
the source library and are assigned the program 
name plus FM. 

source program library name specifies the name 
of the library that contains the RPG II source 
program. If it is not specified, the system 
library, #LIBRARY, is assumed. 



Note: The RPGX procedure is not valid for auto report 
source. Auto report must be executed, producing RPG 
specifications, before the RPGX procedure can be 
executed. 



18-4 Compiling and Executing RPG II Programs 



load module library name specifies the name of 
the library that will contain the load module 
created by the $SFGR utility program. If it is 
not specified, the system library, ^LIBRARY, is 
assumed. 

GEN960 specifies that the screen formats 
generated for the CONSOLE file will be for a 
12-line, 960-character screen. If GEN960 is 
not specified, the screen format defaults to a 
24-line, 1920-character screen. 

REPLACE specifies that the system replaces an 
existing library member with the newly compiled 
object that has the same name. The replace is 
done automatically; no message is issued. 

Note: The RPGR procedure reserves bytes 201 through 
256 of the display station local data area for its use. 
Therefore, any user data in these bytes will be 
destroyed. 

The RPGR procedure exists in RPG's library #RPGLIB 
and is called by the RPGR procedure that exists in the 
system library. Figure 18-3 shows the OCL statements 
included in the library procedure named RPGR. 
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*SC= THIS PROCEDURE SHOULD EXIST ONLY IN *RPGLI8 AS •HPCX* 

* RPGX PGNAME.SSOURCE. INLIB 

« THIS PROCEDURE EXECUTES THE RPG CROSS REFERENCE PROGRAM 

« THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING- 

* 1ST - PROGRAM NAME. (REQUIRED). 

» 2N0 - » BLOCKS FOR *SOURCE FILE. DEFAULT- 20. 

* 3RD - INPUT HORARY. DEFAULT- *LIBHARY, 

// MEMBER USEHI-tRP»CPLl 

* IF PROGRAM NAME *AS NOT SPECIFIED. IT WILL BE PROMPTED FOR. 
// LIBRARY NAME-»RPGLIB 

/• TAG PROMPT 

/V IFF ?l?/ GOTO NAMEP 

// PROMPT FORMAT-RPGX. 

// IF DSPLY-IGC MEMBER-»RPtHELP 

// ELSE MEMBER-»RPSHELP 

// TAG NAMEP 

// IFF 71?/ GOTO NAMPRES 

// » 1016 

// GOTO PROMPT 

// TAG NAMPRES 

// IF JOBO-NO IF EVOKED-NO * 1025 

// LIBRARY NAME-0 

// LOAD »FBLD 

// RUN 

// FILE LABEL-SYM8FLE.ATTRI B- I . RECL-24 . BLOCKS -? 2 • 20 • ? ,LOC A T I ON- A I . 

// RETAIN-J. POSIT ION-1 .LENGTH-14 

// END 

» IF PROGRAM NAME IS llllllll THEN THE SOURCE IS IN IW0RK2 

// IF ?1 ?/ II I 1 1 ; t 1 GOTO SKIP 

// LOAD SMAINT 

// FILE NAMf-$»ORK2.UNIT-Fl , BLOCK S- ?2 • 20 • ? .RETAIN-J 

// RUN 

// COPY FROH-73' *LIBRARY» ?. TO-D I SK .LI BR AR Y-S. F I LE - **0RK2 . HECL-96. 

// NAME-T1? 

// END 

// TAG SKIP 

// LIBRARY NAME-»RPGLIB 

// LOAD *RPRF1 

// FILE NAME-SSOURCE.L AOEL-1KORK2 

// FILE NAME-SYMBFLE 

// RUN 

// LIBRARY NAME-0 

// LOAD »GSOHT 

// FILE NAME-INPUT. LAJEL-SY MBFLE . ULOCKS-72 ? .SET A I N- J 

// FILE NAME-OUTPUT ,L ABEL-S YMBF LE . BLOCKS-72J. RE FA IN-J 

// RUN 

HSORTH 14A 3 24 

FNC 1 10 TYPE OF SYMBOL 

FNC IS 18 STMT NUMBER 

FOC II l» REFES REFERENCE OF SYMOOL 

FOC IJ 24 SYMB.JL INFORMATION 

// END 

// LIBRARY NAME-«RPGL1H 
// LOAD «RP-<F2 

// FILE NAME-SYMBFLE. RETAIN-S 
// RUN 

Figure 18-2. IBM-Supplied Library Procedure (RPGX) for Producing a Cross-Reference Listing 
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*i* THIS PROCEDURE SHOULD EXIST ONLY IN »RPGLIB AS RPCH 

* RPGR PCNAHE. SOURCE. •NOSAVE 1 . INLIIl.OUTL 113. GEN960 

S THIS PROCEOURE EXECUTES THE CONSOLE SCREEN FORMAT GENERATOR 

* TO PRODUCE SFGR SOURCE STATEMENTS DESCRIBING THE SCREEN FORMAT 

* FOR THE CONSOLE FILE. 

* THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOHING- 

* 1ST - PROGRAM NAME. IREOUIREDI. 

» 2NU - » ULOCKS FOR SOURCE FILE. DEFAULT- 20. 

« 3RD - OON'T SAVE SFGR SOURCE. DEFAULT- SAVE. 

» 4TH - INPUT LIUMARY. DEFAULT- «LIURARY. 

* 5TH - OUTPUT LIBRARY. DEFAULT- (LH3RAHY. 

e bTH - SCREEN FORMAT SIZE. DEFAULT- GEN — >1920 

S 7TH - AUTOMATICALLY REPLACE DUPLICATE MEMOERS. DEFAULT- NO 



* INITIALIZE UYTES 202-205 AND 243-256 OF LOCAL AREA. 
S 

// LOCAL OFFSET-243.DATA-'000000 • 

// IFF TIT/ GOTO NAMPRES WAS SOURCE NAME SPECIFIEO 

// TAG PROMPT 

// PROMPT FORMAT-RPGR. SCREEN FORMAT 

// IF DSPLY-IGC MEMUER-KRPSHELP 

// ELSE MEMUER-*RP»HELP 

// IFF TIT/ GOTO NAMPRES 

// e 1016 

// GOTO PROMPT 

// TAG NAMPRES SOURCE NAME HAS SPECIFIEO 

// IF 76T/GEN960 LOCAL OFF SET-202 .DAT A- • 2 • TELL GENERATOR 960 SCREEN SIZE 

// ELSE LOCAL OFFSET-202.DATA- , # TELL GENERATOR 1920 SCREEN SIZE 

* IF PROGRAM NAME IS 111 II 11 I THEN THE SOURCE IS IN IWORK2 

// IF TIT/11111111 GOTO SKIP 

// LOAD SMAINT 

// FILE NAME-SXORK2. RETAIN-J. UNIT-F 1 . BLOCKS-T 2" 20 • T 

// RUN 

// COPY FR0M-T4 , r»LIBRARY»T.TO-0lSK.LI8RARY-S.FILE-Srf0HK2.RECL-96.NAME-TIT 

// END 

// TAG SKIP 

// LOAD #RPGEN 

// FILE NAME-SOURCE. RETAIN-J. UNIT-F t .LABEL-SW0RK2 

// FILE NAME-WORK. RETAIN-J. UN I T-F I . LABEL- IW0RK2 . OLOCK S- T2 • 20» T 

// FILE NAME-SFGR. RETAIN-J. UN I T-F 1 . BLOCKS-T2' 20 • T 

// RUN 

// IF TL»246.1'T/1 i 'RPG-1021* 

// IF TL'246.I>T/1 4 1021 

// IF TL'245.1«T/i S «RPG-I022' 

// IF TL'245.I'T/I i 1022 

// IF TL"244,1"T/1 * •RPG-1023 1 

// IF TL*244.1«T/I S 1023 

// IF TL # 24J. !• !/l » 'RPG-1024' 

// IF TL«243.l»T/l * 1024 

// IFF TL«243.4"T/0000 PAUSE 

// IFF TL' 244.3'T/OOO RETURN 

// LOAD SMAINT 

// FILE NAME- SFGR. RETAIN- J. UN I T-F 1 

// RUN 

// IF T7T/REPLACE COPY FROM-O I SK . TO-T4 • »L I BIMRY « T . F ILE-SFGR .RE TA I N-R 

// ELSE COPY FR0M-DISK.T0-T4»#LIURARY«T.FILE-SFGR 

// END 

// LOAD *SFGR 

// RUN 

// IF T7T/REPLACE LOAOMBR NAME-TL '249 .8 • T . REPLACE-YES 

// ELSE LOADMBR NAME-TL • 249 . 8 • T 

// INOUT INLia-T4"#LI8RARY» T . OUTL I B-T5" »L I BMARY • T . PRINT-YES 

// CREATE S0URCE-TL'249.8«T. NUMBER- TL'247,2»T 

// END 

// IFF T3T/NOSAVE RETURN 

// LOAD SMAINT 

// RUN 

// DELETE NAME-TL"249.8»T.LIBRARY-S.LIBRNAME-T4T 

// ENO 



Figure 18-3. IBM-Supplied Library Procedure (RPGR) for Executing the RPG II Format Generator 



Compiling the RPG II Source Program 18-7 



COMPILING THE AUTO REPORT SOURCE 
PROGRAM 



AUTO Command Statement 

To compile an RPG II source program that includes auto 
report specifications, the auto report program must be 
loaded into main storage. To load the auto report 
program, the operator enters the following command 
statement that executes an IBM-supplied library 
procedure named AUTO: 



AUTO program name, 



["source file size 



L?0 



j. 



[work file size! 
20 J ' 



NOSTOP 
REPLACE 
NOHALT 
HALT 



[source program library name" 
#LIBRARY 



]• 



Tobject program library nameH Tmrtmax value! 
1 #LIBRARY J ' L°- J ' 



rvEsi r NoGEN " 

LNgJ'[ GEN96 ° 



GEN 



["special options"! 

' LP-22 J 



where: 



the positional parameters are the same as for 
the RPG procedure. The last positional 
parameter, special options, has an additional 
option for auto report. If the third special 
options position contains a zero (the default), 
the RPG compiler is called after the auto report 
specifications are generated. If the third special 
options postion contains a one, the RPG 
compiler is not called after the auto report 
specifications are generated. The AUTO 
procedure exists in RPG's library #RPGLIB and 
is called by the AUTO procedure that exists in 
the system library. 



If the source program name is not specified and no 
other parameters are specified, the system displays a 
menu requesting the name of the source program and 
listing the default values for all the parameters. The 
default values can be overridden at this time. If the 
source program name is not specified but other 
parameters are specified, the system displays a menu 
requesting the name of the source program and listing 
the user-specified parameter values and the defaults for 
all unspecified parameters. These values can be 
overridden at this time. If the AUTO procedure is placed 
on the input job queue, the program name must be 
specified. See the description of the special options 
parameter for the RPG procedure for an explanation of 
how to direct the AUTO procedure to place the job on 
the input job queue after you enter values into the 
menu. 

If the default block size of 20 is not going to be used in 
the command statement, determine the blocks required 
as follows: 



Blocks = 



Number of specifications 



25 



For the number of specifications, use the greater of: the 
number of specifications read by auto report or the 
estimated number of specifications in the generated 
source program. The calculated number of blocks 
should be used for both $SOURCE and $WORK. If the 
compiler is assigned a region size greater than or equal 
to 48K, a minimum of 30 blocks must be specified for 
the $WORK file for any size program. 

The AUTO procedure builds a source file for processing 
by RPG and RPGR, and provides a cross-reference 
listing, if requested. This intermediate source is saved if 
you specify in the option specifications that the 
intermediate source is to be cataloged. If the RPGR or 
RPGX procedures were requested from the AUTO 
procedure and you did not specify that the intermediate 
source is to be cataloged, the intermediate source is 
saved in a work file named $WORK2. $WORK2 is a job 
file and is deleted at the end of the AUTO procedure 
execution. 

Note: If the catalog option is not specified in the option 
specifications, the library name printed by the compiler 
is where the auto report source originated. Otherwise, 
the library name printed is the library name specified in 
the catalog option. 
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Figure 18-4 shows the OCL statements included in the 
library procedure named AUTO. 

Note: The AUTO procedure reserves bytes 201 through 
256 of the display station local data area for its use. 
Therefore, any user data in these bytes will be 
destroyed. 

ft*ft THIS PROCEDURE SHOULD EXIST ONLY IN *HPGL 10 AS •AUTO' 

ft 

ft S726-RG1 COPYRIGHT I DM CORP 1977 

ft LICENSED MATERIAL - PROPERTY OF IIJM 

* REFER TO IDM COPYRIGHT INSTRUCTIONS FORM NO. G120-2083 

ft AUTO PGNAME.SSOURCE.SWORK.NOHALT.INLIB.OUTLIB.MRTMAX.NEP.NOGEN.SPCLOPT 

ft 

* THIS PROCEDURE EXECUTES THE AUTO REPORT FUNCTION AND CONDITIONALLY 

* EXECUTES THE CONSOLE SCREEN FORMAT GENERATOR FROM THE RPG LIBRARY 
ft ••RPGLIB'. 

ft 

ft THE POSITIONAL PARAMETERS AS INPUT ARE THE rOLLOWING- 

ft 1ST - PROGRAM NAME. (REQUIRED!. 

ft 2ND - » CLOCKS FOR tSOUHCE FILE. DEFAULT- 20. 

ft 3RD - » CLOCKS FOR SWORK FILE. DEFAULT- 20. 

ft 4TH - HALT OPTIONS. TERMINAL OIAGS ANO/OR OUP MEMBERS. DFFAULT- HALT 

ft STH - INPUT LIBRARY. DEFAULT- »LI0RARY. 

ft 6TH - OUTPUT LIBRARY. DEFAULT- »L1BRARY. 

ft 7TH - (MRTI MAX * OF ACTIVE REQUESTING WORKSTATIONS. DEFAULT- 0. 

ft 8TH - NEP ATTRIBUTE. DEFAULT- NO. 

ft 9IH - GENERATE CONSOLE SCREEN FORMATS. DEFAULT- YES. 

ft I0TH - SPECIAL OPTIONS CHOICES. DEFAULT- 00000000 (NONE I 

ft 

ING BYTES 201 - 256 OF THE LOCAL AREA 

ft MEMBER USERI-*RP*CPL1 



// TAG PROMPT 

// IFF 71 ?• GOTO NAMEP 

// PROMPT FORMAT-AUTO. SCREEN FORMAT 

/■/ IF DSPLY-IGC MEMBER-#RP*HELP 

// ELSE MEMOER-»RPSHELP 

f/ TAG NAMEP 

// IFF ?!?/■ GOTO NAMPRES 

/•/ * 1016 

// GOTO PROMPT 

// TAG NAMPRES 

ft 

* INITIALIZE BYTES 201-256 OF LOCAL AREA 



* PUT POSITIONAL PARMETERS IN THE LOCAL AREA 
ft 

/• IF 747/NOHALT LOCAL OFFSET-201 . DA TA- • I • NOHAL T (TERM ERRORS) 

/• IF 747/-NOSTOP LOCAL OFFSET-20 1 .O AT A- • 1 • NOSTOP (TERM ERRORS) 

// IF 747/NOSTOP LOCAL OFFSET -204 .DAT A- • I • NOSTOP I DUP MEMBERS) 

/V IF 747/REPLACE LOCAL OFF SE T-204. DATA- • I • REPLACE! DUP MEMOERSI 

/J IF 797/NOGEN LOCAL OFFSET-202 . DATA- • I • NOGEN 

/S IF 797/GEN960 LOCAL OFFSET-202 .DAT A- "2 • GEN960 

/• LOCAL OFFSET-206.DATA-'? I?" PGM NAME 

// LOCAL OFFSET-214.DATA-"?5" *LIBRARY'?« INPUT LIBRARY 

SS LOCAL OFFSET-222.DATA--7 tO'00000000'7' SPECIAL PARAMETERS 

ft IF THE COMPILE WAS DIRECTEO TO THE JOBO VIA THE MENU OR DIRECTLY. 

* PLACE THE PROCEDURE ON THE JOBO AND RETURN TO THE CALLER 

S* IFF ?L"222.1"?/I LOCAL OFFSE T-222, DA TA- • 0" 

/S ELSE JOBO *RPGLIB. AUTO. 71 ?. 727. 737, 74? , 7b7.?67. 777.7(17, 79?, 0?L»2? J. 7»T 

SS IF ?L»222. !"?•» RETURN 

• • IF JOtiO-NO IF EVOKED-NO ft 1018 

// IF JOOO-YES LOCAL OFFSET-230 .DAT A- • JO- 

/S ELSE LOCAL OFF SET-230 . DA TA- • 7 WS? • 

// LOAD (AUTO 

/■/■ FILE NAMe-lSOURCE.RETAIN-S.BLOCKS-72'20'? 

//■ FILE NAME-tWORK.RETAIN-S.BLOCKS-73'20'7 

// FILE NAME-»WORK2.RETAIN-J.BLOCKS-?2 , 20'? 

• /" PRINTER NAME-RPGPR1NT 
/f MEMBER PROGRAMl-«RP«CPLI 

• /" MEMBER PROGRAM2-*RP#CPL2 

// COMPILE INLIU-757.0UTL Ifl-7 6 • *L I BRARY • 7 . MRT MAX- ?7 • • ? , NEP- ?B • NO • ? . 
/•/• SOURCE- 71 7 
/f RUN 

ft IF A CROSS REFERENCE LISTING WAS REQUESTED. INITIATE THE XHEF PROGRAM 

ft 

/f IFF ?L«203. I • ?/■! IF ?L'22J.I»?/1 INCLUDE RPGX ?L • 2 06 , H • 7 , ?2? . ?L • 2 1 4 . «• ? 

ft IF CONSOLE WAS IN THE PROGRAM UNO •NUCEN* WAS NOT REJUESTED CALL 
ft THE SCREEN FORMAT GENERATOR. PHASE »RPKA SET LOCAL I3YTE 202 TO A 1 
ft IF NQ CONSOLE FILE WAS IN THE PROGRAM OR TERMINAL ERROHS OCCUREO. 

/•/• IF ?L>202. I •?/'! RETURN 

// IF ?4?/NOST0P INCLUDE RPGR ?L • 206. 8« ? . ?2? . NHSA VE . 7L • 2 1 4 . 8 • 7 . ?<> 7 . ?9? .REPL ACE 

/f ELSE IF 747/REPLACE INCLUDE RPGR ?L • 206 . H" ?. ?2 7 . NOSAVE . ?L • 21 4 . rt • 7 . ?6? . 79 ?, ?4? 

" ELSE INCLUDE RPGR ?L • 206 . 8 • 7 . 7 2? ,NOS AVE . ?L • P. 14 . 1 > 7 . ? 6? . ?q? 

Figure 18-4. IBM-Supplied Library Procedure (AUTO) for Compiling an Auto Report Source Program 
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Auto Report Halts 



Listing Format 



Auto report does not diagnose all error conditions in the 
source program. Diagnostics that are performed by the 
RPG II compiler are not duplicated by auto report. If a 
program cannot be successfully generated because of 
errors in the auto report specifications, auto report halts. 
Only option 3 (immediate cancel) is available following 
this halt. 

If an RPG II source program is successfully generated, 
auto report calls the RPG II compiler without halting. 
Normal RPG II compilation halts can occur after 
compilation has begun. 



CROSS-REFERENCE LISTING 

The cross-reference option in the special compile 
options parameter (the ab parameter) of the RPG and 
AUTO command statements provides a cross-reference 
listing of the symbols defined and referenced in the 
respective RPG II and auto report source programs. The 
execution of the cross-reference listing step in the RPG 
or AUTO procedure depends upon the following: 

• The listing is provided only when specified by the 
special options parameter (the ab parameter) of the 
RPG or AUTO command statement. The default is no 
cross-reference listing. 

• The listing is not provided if terminal errors occur in 
the RPG or auto report compilation. 

• The Sort utility program product is required to sort 
the symbol entries and provide a cross-reference 
listing. 

The symbols used in an RPG II or auto report program 
are sorted and placed in the following categories in the 
cross-reference listing: 

Filenames 

Indicators 

Tables and arrays 

Fields and data structures 

Labels 



The format of the cross-reference listing is as follows: 

SYMBOL LNG TYPE DEC DEFN REFERENCES 

x »-x nnnn xx— »-x n nnnn nnnn nnnn nnnn* 

where: 

SYMBOL is from 1 to 8 characters in length 
and defines the filenames, indicators, 
tables/arrays, data structures, fields, and labels 
used in the RPG II or auto report program. 
Alphameric and numeric literals are not 
processed by the cross-reference listing option. 

LNG is four positions long and defines the 
length of the field or data structure, the length 
of an element in a table or array, or the record 
length for the file named. LNG is not used for 
indicators or labels. 

TYPE is 2 to 7 positions in length and defines 
the type of file named (by using columns 15 
and 16 from the file description specifications) 
or the type of label being defined and 
referenced. TYPE is used only for filenames or 
labels. 

DEC is one position long and defines the 
number of decimal positions in a numeric field. 
DEC is not used for filenames, alphameric 
fields, indicators, data structures, or labels. 

DEFN is four positions long and defines the 
statement number in which the symbol is 
defined. If the symbol is defined multiple times 
in the program, the first definition is assumed. 
The use of a field in a data structure is 
considered to be the definition of that field; all 
other uses of that field are considered to be 
references. The definition of an array is 
considered to be in the extension specification 
specifying the array even if the array is also 
specified in a data structure. 
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REFERENCES are four positions long and define 
the statement number in which the symbol is 
referenced. The number of entries under 
REFERENCES depends on the number of times 
the symbol is used in the program. If the 
symbol is unreferenced, there are no entries. If 
the symbol is referenced multiple times, 
multiple lines of references could be printed for 
the related symbol. An asterisk (*) printed 
beside a reference indicates that the contents 
of the symbol are, or could be, altered in this 
statement. An asterisk indicates that a field is 
used as a calculation result field, or that an 
indicator is specified in positions 59 through 70 
of the input specifications or in positions 54 
through 59 of the calculation specifications. 

Figure 18-5 shows an example of the information that is 
printed in the cross-reference listing for each symbol 
type. 



RUNNING THE OBJECT PROGRAM 

To load and run an RPG II object program, the operator 
must enter certain OCL statements, enter the name of a 
user-written procedure, or place the job on the input job 
queue. 



RPG II HALT PROCEDURES 

Error conditions found in the RPG II program result in a 
halt during execution or compilation of the program. If 
the RPG II job is run from the input job queue, the halts 
go to the system operator. If the job is run from a 
display station (and not placed on the input job queue), 
the halts go to the display station operator. 

Options available to the operator following each halt are 
also given. The options are: 

0-Cont'mue: Control is returned to the program, and 
processing continues. 

1 -Bypass: The remainder of the program cycle is 
bypassed, and the next record is read. 

2-Controlled Cancel: End-of-job operations specified 
by the program are done, tables are dumped, and file 
labels are cataloged. 

3-lmmediate Cancel: The job is canceled, but control 
is not returned to the RPG II program. New data 
entered for this job is not preserved. 

A complete discussion of the halts and the necessary 
operator procedures appears in the Displayed Messages 
Guide. 



LOAD and RUN OCL statements are required. If the 
program uses disk files, a FILE statement is required for 
each disk file. A SWITCH statement can be included in 
the OCL stream to set any external indicators used by 
the program. A display station can also be attached to 
an RPG II program that uses the WORKSTN device by 
the WORKSTN OCL statement. For a complete 
description of the OCL statements and their parameters 
and on how to write a procedure, see the System 
Support Reference Manual. For information on how to 
place the job on the input job queue, see the System 
Operator's Guide. 

As an example, the following OCL statements load and 
run an RPG II object program named PROG1 that uses 
an input disk file named INPUT and an output disk file 
named OUTPUT: 

//b LOAD t» PROG 1 

//bFILEb NAME-IN PUT 

//bFILEbNAME-OUTPUT,BLOCKS-10,RETAIN-P 

//bRUN 
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«* FILENAME LEGEND ** 
SYM30L LNG TYPE DEFN REFERENCES 



CONTROL 0030 UC 00C1 0005 0021 0045 
WORKSTN 0C3C CP C002 00C9 0043 



** INDICATOR LEGEND *=: 
SYMBOL 
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03 
20 
21 
99 
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0020 
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00 3 5* 00 4 5 
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0041* 0047 


0021 


0028 0029 



** TABLE AND ARRAY LEGEND ** 
SYMBOL LNG DEC DEFN REFERENCES 



AOS 0005 0003 CC23* 0023 0024 0027* 0027 0027 
ARY 0C15 0004 0024* 0026* 



** FIELD AND DATA STRUCTURE LEGEND-** 
SYMBOL LNG DEC DEFN REFERENCES 



CENTS 


0G02 
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0015 








COST 


0007 
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0018 


CCC7 


0C39* 


0039 


DESC 


0018 




0019 


0008 


00 33* 




DOLLAR 


0C0 5 
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CO 14 








INVDTA 


*DS* 




CO 12 


0010 


0046 


004 8 


IX 


0G01 
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0022 


0C23 


0023 


0C24 


NAME 


0008 




CO 16 








PARTNO 


000 5 
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0013 


0006 


0C21 




STOCK 


0C1C 




C017 









** LABEL LEGEND ** 
SYMBOL TYPE D C FN REFERENCES 



ADORCD BEGSR C031 0028 
FfO TAG CO 30 2 

UPDRCD ^EGSR C037 CC29 



Figure 18-5. Symbol Information Provided by the Cross-Reference Listing 



18-12 Compiling the Auto Report Source Program 



Chapter 19. Sample Programs 



The sample programs contained in this chapter are 
designed to illustrate some of the functions of RPG II. 
Although they are relatively simple programs, they are 
complete jobs that can be run on any System /34. For 
additional sample programs that use the WORKSTN file, 
see Chapter 13. 



SAMPLE PROGRAM 1 (SAMPL1) 

SAMPL1 loads an indexed disk file that consists of 100 
data records created by calculation operations. (Each 
record contains two fields: COUNT and RECNBR.) The 
program only requires the operator to enter a blank data 
record at the beginning of the job and press command 
key 12, that is, the Cmd and = (equal) keys, to end the 
job when the first prompt appears for the field EOF. 
SAMPL1 should be followed by SAMPL2, which prints 
the indexed file loaded in SAMPL1 to verify that the file 
was loaded properly. Figure 19-1 shows the 
specification sheets required for SAMPL1. 



Control Specifications 

Control specifications (see Figure 19-1, Part 1) should 
be present for every program. They are the first record 
in the source program and identify the program. 



File Description Specifications 

All files used in SAMPL1 are first described on the file 
description specifications sheet (see Figure 19-1, Part 
1). The primary input file, INPUT, is assigned to the 
device CONSOLE. The E in column 17 ensures that the 
program does not end until after the last record is read 
from INPUT. At the end of the job, the indexed output 
file, DISKOUT, consists of 128-position records with a 
6-position key field starting in the first record position. 
Messages indicating that the job was completed 
successfully are written to the printer output file, 
OUTPUT, at the end of job. 



Input Specifications 

The input file, INPUT, is further described on the input 
specifications sheet (see Figure 19-1, Part 1). The input 
record contains a 1 -position blank field called NODATA 
(blank in position 1) describing the record identification 
code. The field NODATA is not prompted. A 1 -position 
field called EOF will be prompted and is described for 
position 2 of the input record. When the prompt for 
EOF is made and command key 12 (the Cmd and = 
keys) is pressed (end of file for CONSOLE file), the LR 
indicator turns on. 



Calculation Specifications 

All calculations (see Figure 19-1, Part 2) are conditioned 
by the LR indicator; therefore, they are executed at LR 
calculation time (see Chapter 17, Detailed RPG II 
Program Logic). The record number field (RECNBR) 
keeps track of the number of records written to 
DISKOUT. The COUNT field accumulates in increments 
of five to provide a unique key field for each record 
written to DISKOUT. The EXCPT operation code and 
exception output (E in column 15 of the output 
specifications) are used to write the records to disk. 
These calculations are part of the REPEAT loop and are 
executed 100 times, until COUNT equals 505 and 100 
disk records have been created. At the end of the loop, 
one is subtracted from RECNBR to indicate the actual 
number of records that have been loaded. 



Output Specifications 

The output specifications (see Figure 19-1, Part 2) 
conditioned by LR cause a message to be written to the 
OUTPUT file, providing the following information: 

• Job completion 

• Number of records loaded 

• File and key field descriptions 

• Brief description of the function of- program SAMPL2 
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Figure 19-1 (Part 2 of 2). Sample Program 1 (SAMPL1) 
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SAMPLE PROGRAM 2 (SAMPL2) 



Output Specifications 



SAMPL2 must be preceded by sample program 1 
(SAMPL1). SAMPL2 reads the indexed file created by 
SAMPL1 and prints fields from each record read. Thus, 
SAMPL2 allows you to verify that SAMPL1 loaded the 
indexed file properly. The specifications required for 
SAMPL2 are shown in Figure 19-2. 



Control Specifications 

Control specifications (see Figure 19-2, Part 1) should 
be present in every program. They are the first record in 
the source program and identify the program. 



In the output specifications (see Figure 19-2, Part 2) the 
1P and OF indicators, specified in an OR relationship, 
cause a heading line to be printed on the first output 
page and on each succeeding page. Conditioned by 
indicator 01, the disk record just read is printed. 

The next record is read from DISKOUT, and the same 
calculation and output operations are repeated until 
there are no more records in the disk file. When end of 
file is reached on DISKOUT, the LR indicator turns on. 

Conditioned by LR, a total line is printed indicating how 
many records are read from DISKOUT. If the number 
printed (COUNT) is 100, SAMPL1 and SAMPL2 were 
executed properly. 



File Description Specifications 

The files in SAMPL2 are described on the file 
description specifications sheet (see Figure 19-2, Part 1). 
The indexed file, DISKOUT, loaded in SAMPL1 is 
defined as the primary input file for SAMPL2. The E in 
column 17 ensures that SAMPL2 does not end until end 
of file is reached on DISKOUT. The records read from 
DISKOUT are printed on the output file, OUTPUT. An 
overflow indicator is specified in columns 33 and 34 so 
that subsequent operations can be conditioned on 
overflow. 



Input Specifications 

The primary input file, DISKOUT, is further described on 
the input specifications sheet (see Figure 19-2, Part 2). 
DISKOUT records are 128 positions long and are 
identified by a zero in position 1 . When an input record 
containing a zero in position 1 is read, indicator 01 turns 
on. 



Calculation Specifications 

The calculation specifications (see Figure 19-2, Part 2) 
add one to COUNT when indicator 01 is on. The 
COUNT field keeps track of the number of records read 
from the DISKOUT file. 



SAMPLE PROGRAM 3 (SAMPL3) 

The programs SAMPL3, SAMPL4, and SAMPL5 are 
designed to be run in sequence. 

SAMPL3 loads master records into an indexed file and 
creates a consecutive file of transactions. The 
transaction file is processed against the master file in 
SAMPL4. SAM PL4 should follow SAM PL3. Figure 19-3 
shows the completed specifications for SAMPL3. 



Control Specifications 

Control specifications should be present in every 
program. They are the first record in the source 
program and identify the program. 



File Description Specifications 

The file description specifications describe the files used 
in the program. The input record file, INPUT, is read 
from CONSOLE. An E in column 17 indicates that the 
program ends when the last data record keyed in is 
processed. The indexed output file, MASTER, consists 
of 26-position records with a 5-position key field 
starting in the second record position. 

A consecutive output file, TRANS, with a 10-position 
record length is specified by the file description 
specifications. A printer output file, PRINT, with a 
record length of 78 is also defined by the file description 
specifications. 
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the input record turns on record identifying indicator 01, 
indicating a master record. An A, B, or C in position 1 
of the input record turns on record identifying indicator 
02, 03, or 04, respectively, indicating transaction record 
type A, B, or C. No sequence checking occurs for 
either type of record (AA and AB in columns 15 and 
16). 

Figure 19-4 shows the display screen for record type M 
before any data is entered. The top line of the display 
screen shows the record identification code and the 
record identifying indicator for the record being 
prompted. Also shown are the record identifying 
indicators for the record types that can be selected 
before any data is entered for this record and for the 
record types that can be selected after data is entered 
for this record. You can select any of these record 
types by pressing the Cmd key and the digit key 
corresponding to the record type you want. 

The fields in the record are displayed in the order they 
are specified on the input specifications. (Notice that 
the entire record is displayed.) The type of field 
(alphameric or numeric) and the field length as well as 
the field name are displayed. The cursor indicates the 
position to be entered next. 

Figure 19-5 shows the display screen for record type M 
after the first four fields have been entered. 

When you want to stop entering input data, press 
command key 12 (the Cmd and = keys). 

Calculation Specifications 



Four different output records are described in these 
specifications: one detail record for the master file, 
MASTER; one detail record for the transaction file, 
TRANS; and two total records for the printer file, 
PRINT. 

The detail records for MASTER are conditioned by 
record identifying indicator 01 . The detail records for 
TRANS are conditioned by record identifying indicators 
02, 03, and 04. Both total lines for PRINT are printed 
when the last record identifying indicator is turned on 
(LR in columns 23 through 25). The first total line is for 
total transactions loaded. The printer skips to line 4 
before the printing of the first total line, and double 
spacing occurs before the printing of the second total 
line. The second total line is for total masters loaded. 



SAMPLE PROGRAM 4 (SAMPL4) 

SAMPL4 must be preceded by SAMPL3. SAMPL4 
reads from the transaction file, TRANS, created by 
SAMPL3 and accumulates totals for A, B, and C 
records. SAMPL4 also retrieves corresponding master 
records for transaction records and prints an error 
message if a corresponding master record is not found. 
Figure 19-6 shows the completed specifications for 
SAMPL4. 



Control Specifications 

Control specifications should be present in every 
program. They are the first record in the program and 
identify the program. 



The field name TOTMAS is incremented by one when 
record identifying indicator 01 is on. This maintains a 
running total of the master records that have been read 
from INPUT and transferred to disk. The field TOTTRN 
is incremented by one when record identifying indicator 
02, 03, or 04 is on, maintaining a running total of the 
transaction records that are read from INPUT and 
transferred to disk. 



File Description Specifications 

The input file for SAMPL4, TRANS (the output 
transaction file for SAMPL3), is read from disk. An E in 
column 17 indicates that the program ends when the 
last data record in the input file is processed. The 
output file, PRINT, consists of 72-position records. 

An overflow indicator (OF in columns 33 and 34) 
conditions printing of records in the file. The indexed 
file, MASTER, is a chained update file to be processed 
by keys. It consists of 26-position records with a 
5-position key field starting in the second record 
position. 



19-10 Sample Programs 



Record identification 
code for record being 
prompted (columns 21 
through 27) 



Prompted field 
names (columns 53 
through 58) 



Record identifying 
indicator for record 
being prompted 
(columns 19 and 20) 



Record identifying 
indicators for other 
record types that can 
be selected before data 
is entered using current 
format (columns 19 
and 20) 




— T' 

1,2,3,4 



Record identifying 
indicators for other 
record types that can 
be selected after data 
is entered in current 
.format 



Type of field- 
alphameric (A) or 
numeric (N) 
(column 52) 



Field length (columns 
44 through 51) 



Cursor indicates position 
to be entered next 



Figure 19-4. Display Screen Before Record Type M is Entered 



Sample Program 4 (S AMP L4) 19-11 



Record identification 
code for record being 
prompted (columns 21 
through 27 




Record identifying 
indicator for record 
being prompted 



Fields that have 
been entered up' 
to now 



Field currently being 
prompted 



{M 1 
KEY A . 5 123 
DESC A 8 DRESS 
VALUEA N 4.0 30 
VALUEB N 4.0 50 
VALUEC N 4.0 40 



1,2,3,4 



Record identifying 
indicators for other 
record types that can 
be selected after data 
is entered in current 
format 



1,2,3,4 




Type of field— numeric Field length Position to be entered next 

Figure 19-5. Display Screen When Record Type M is Partially Entered 
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Figure 19-6 (Part 1 of 4). Specifications for SAMPL4 
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Figure 19-6 (Part 2 of 4). Specifications for SAMPL4 
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Figure 19-6 (Part 3 of 4). Specifications for SAMPL4 
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Figure 19-6 (Part 4 of 4). Specifications for SAMPL4 



19-16 Sample Programs 



Input Specifications 



SAMPLE PROGRAM 5 (SAMPL5) 



Two types of files are specified by the input 
specifications: transaction and master. An A, B, or C in 
position 1 of the input record turns on record identifying 
indicator 01, 02, or 03, respectively. An M in position 1 
of the update record turns on record identifying indicator 
04, indicating an update record. No sequence checking 
occurs for either type (AA and AB in columns 15 and 
16). 



SAMPL5 must be preceded by SAMPL4. SAMPL5 
reads from the indexed file, MASTER, and performs the 
following calculation: value A + value B - value C. If 
the result is negative, a message is printed. Figure 19-7 
shows the completed specification sheets for SAMPL5. 



Control Specifications 



Calculation Specifications 

When indicator 01, 02, or 03 is on, two operations 
occur: 

1 . A matching master record is retrieved for a 
transaction record (lines 02, 03, and 04 of the 
calculation specifications). 

2. The AMT field of the transaction record is added 
to the appropriate value (VALUEA, VALUEB, or 
VALUEC) on the master record depending on the 
type of record (record identifying indicator 01, 02, 
or 03). 



Control specifications should be present in every 
program. They are the first record in the source 
program and identify the program. 



File Description Specifications 

The input file for SAMPL5, MASTER, is an indexed file 
(I in column 32). An E in column 17 indicates that the 
program ends when the last data record in the input file 
is processed. The file consists of 26- position records 
with a 5-position key field starting in the second record 
position. A printer output file, PRINT, with a record 
length of 78 is also defined by the file description 
specifications. 



If no matching record is found, indicator 10 turns on. 



Input Specifications 



Output Specifications 

Nine printer output lines are described in these 
specifications. Four header lines conditioned by the first 
page indicator (1P in columns 23 through 25) or an 
overflow indicator (OF in columns 23 through 25) are 
printed. They are printed at the top of each page of the 
listing. 

Four detail lines are also printed. A detail line is printed 
for each transaction record with no matching master 
record. For each type of transaction record, A, B, or C, 
the accumulative value is printed (detail lines conditioned 
by indicators 01, 02, or 03, and not 10). These detail 
lines are single spaced. 



An M in position 1 of the input record turns on record 
identifying indicator 01. 



Calculation Specifications 

Record identifying indicator 01 conditions all 
calculations. Values A, B, and C are accumulated (lines 
03 through 05). The calculation, value A + value B - 
value C, is performed and accumulated (lines 01, 02, 
and 06). If the calculation is negative, resulting indicator 
22 is set on to condition the printing of a message; 



Output Specifications 



A total line is printed if no transaction records were 
entered. 

A detail record is written on disk for the indexed update 
file, MASTER, when indicator 04 is on and indicator 10 
is off. Indicator 04 turns on for an update record, and 
indicator 10 turns on if no matching record is found. 



These specifications print four header lines, each 
conditioned by the first page (1P) indicator or an 
overflow indicator (OF). 

One detail line is printed for each program cycle. One 
total line is also printed when the last record indicator, 
LR, is on. 
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Figure 19-7 (Part 1 of 4). Specifications for SAMP L5 
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Figure 19-7 (Part 3 of 4). Specifications for SAMPL5 
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Figure 19-7 (Part 4 of 4). Specifications for SAMPL5 
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SAMPLE AUTO REPORT PROGRAM (EXAUT2) 

This job prepares a cash receipts register using RPG II 
with the auto report function. The *AUTO page heading 
function and the *AUTO output function generate the 
RPG II output specifications for the report and the 
calculation specifications to accumulate final totals for 
several fields on the report. RPG II calculation 
specifications that cannot be generated by auto report 
are included in the auto report program to verify the 
discount taken by each customer and to calculate the 
balance due. 

The file description specifications for the cash receipts 
register printer file, CSHRECRG, and the file description 
and input specifications for the input file, CASHRC, are 
cataloged as separate members in the library (see Figure 
19-8). The cataloged specifications are included in the 
program by the auto report copy function. 

The input data for the file CASHRC in EXAUT2 is 
generated by the program EXAUT1 (see Figure 19-9). 
Figure 19-10 shows the input data. 



Control Specifications 

The RPG II control specifications shown in Figure 19-11 
should be included in the auto report program because 
they are not present in the cataloged specifications (see 
Figure 19-8). None of the control specification options 
are required in this program, so the specification need 
contain only an H in column 6 and the program 
identification, EXAUT2, in columns 75 through 80. This 
program identification is placed in columns 75 through 
80 of all specifications in the generated RPG II source 
program. 



/COPY Statements 

The /COPY statements shown in Figure 19-11 copy the 
file description and input specifications for the job from 
the system library. The first statement copies the file 
description specifications for the printer file from the 
library member named EXAUT3. The second statement 
copies the file description and input specifications for 
the disk file, CASHRC, from the library member named 
EXAUT4. A modifier statement adds an input field 
definition for the REGION field. As a result of these 
/COPY statements, the file description and input 
specifications shown in Figure 19-8 are included in the 
RPG II source program generated by auto report. 



Sample Auto Report Program (EXAUT2) 19-21 



The file description for the printer file is in the library 
member, EXAUT3. 



ffl The file description and input specifications for the 
disk file, CASHRC, are in the library member named 
EXAUT4. 
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Figure 19-8. File Description and Input Specifications that are Cataloged in the Library Members EXAUT3 and EXAUT4 



19-22 Sample Programs 



IBM SYSTEM/34 RPGII AUTO REPORT 

0001 01010H 008 

0002 0102 FKEYIN IP 

0003 0103 FCASHRC 

0004 0104 FPRINTER 

0005 0203 C 

0006 0204 C 

0007 0205 C 02 

0008 0301 OPRINTER T 

0009 0302 

0010 030210 

0011 0303 T 
0C12 0304 

0013 0305 

0014 0306 

0015 0307 T 

0016 0308 

0017 0309 

0018 0310 

0019 0311 T 

0020 0312 

0021 0313 

0022 0314 

0023 0401 T 

0024 0402 

0025 0403 

0026 0404 

0027 0405 T 

0028 0406 

0029 0407 

0030 0408 

0031 0409 T 

0032 0410 

0033 0411 

0034 0412 

0035 0413 T 

0036 0414 

0037 0415 

0038 0416 

0039 0501 T 

0040 0502 

0041 0503 

0042 0504 

0043 0505 T 

0044 0506 

0045 0507 

0046 0508 

0047 0509 T 

0048 0510 

0049 0511 

0050 0512 

0051 0513 T 

0052 ' 0514 

0053 0515 

0054 0516 

0055 0517 T 

0056 0518 

0057 0519 

0058 0520 



F 100 100 


KEYBORD 


F1020 68 


DISK 




F 120 120 


PRINTER 


SETOF 




02 


SETON 




LR 


KEY01 


DUMMY 1 


01 LR 








54 


DATA FOR SAMPLE PROGRAM* 


02DUMMY 


56 




LR 








24 


11243J0NES HARDWARE * 




48 


» 27541123199 2375CASH • 




68 


47 47 2328123199' 


LR 








24 


11352NU-STYLE CLOTHIERS • 




48 


27987123199 8707CASH • 




68 


174 4000123199* 


LR 








24 


11986MIDI FASHIONS INC * 




48 


» 15771123199 10722CASH • 




68 


214 214 10508123199' 


LR 








24 


12874UL00K INTERIORS ' 




48 


25622123199 6795CASH • 




68 


136 6795123199' 


LR 








24 


18274STREAMLINE PAPER IN' 




48 


C29703123199 27403 ' 




68 


548 238 17055123199' 


LR 








24 


23347RITE-BEST PENS CO ' 




48 


20842123199 1580 ' 




68 


31 1000123199' 


LR 








24 


25521IMP0RTS OF NM ' 




48 


29273123199 79740 1' 




68 


593 1193 58547123199' 


LR 








24 


26723ALRIGHT CLEANERS • 




48 


19473123199 46200CASH • 




68 


924 46200123199' 


LR 








24 ' 


28622NORTH CENTRAL SUPPL' 




48 


Y17816123199 7597CASH • 




68 


152 7597123199' 


LR 








24 ' 


29871FERGUS0N DEALERS ' 




48 


27229123199 6191CASH • 




68 


124 6191123199' 


LR 








24 


30755FASTWAY AIRLINES ' 




48 


26158123199 74272CASH 1' 




68 


495 1685 72587123199' 


LR 








24 


31275ENVIRONMENT CONCERN' 




48 


S20451123199 2943 ' 




68 


59 • 1500123199* 



Figure 19-9 (Part 1 of 3). EXAUT1 Program 



Sample Auto Report Program ; (EXAUT2) 19-23 



0059 


0601 





0060 


0602 





006 1 


0603 


G 


0062 


0604 





0063 


0605 





0064 


0606 





0065 


0607 


a 


0066 


0603 





0067 


0609 





0068 ■ 


0610 





0069 


0611 





0070 


0612 





C071 


0613 


OCASHRC 


0072 


0704 





0073 


0705 





0074 


0706 





0075 


0707 





0076 


0708 





0077 


0709 





0078 


0710 





0079 


0711 


G 


0080 


0712 





008 1 


0713 





0082 


0714 


a 


0083 


0801 





0084 


0802 





0085 


0803 





0086 


0804 





0087 


0805 





0088 


0806 





0089 


0807 





0090 


0808 





0091 


0809 





0092 


0810 





0093 


0811 





0094 


0812 





0095 


0813 





0096 


0814 





0097 


0815 


a 


0098 


0816 





0099 


0901 





0100 


0902 





0101 


0903 





0102 


0904 





0103 


0905 





0104 


0906 





0105 


0907 





0106 


0908 





0107 


0909 


G 


0108 


0910 





0109 


0911 





0110 


0912 





01 11 


0913 





0112 


0914 





0113 


0915 





0114 


0916 





0115 


09 17 





0116 


0918 





0117 


0919 






LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



LR 



24 

48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 

48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 
68 

24 
48 



32457B SOLE SILOS 

27425123199 11005CASH 
220 11005123199" 

37945H0FFTA BREAKS INC 
18276123199 4723CASH 
94 4723123199* 

42622EASTLAKE GRAVEL CO 
16429123199 2937CASH 
53 2937123199* 

11243J0NES HARDWARE 
27541123199 2375CASH 
47 47 2328123199' 

11352NU-STYLE CLOTHIERS 

27987123199 8707CASH 
174 4000123199' 

11886MI0I FASHIONS INC 
15771123199 10722CASH 
214 214 10508123199' 

12874UL00K INTERIORS 

25622123199 6795CASH 
136 6795123199' 

18274STREAMLINE PAPER IN 
C29703123199 27403 
548 238 17055123199' 

23347RITE-BEST PENS CO 

20842123199 1580 
31 1000123199' 

25521IMP0RTS OF NM 

29273123199 79740 1 
593 1193 58547123199' 

26723ALRIGHT CLEANERS 

19473123199 46200CASH 
924 46200123199' 

28622N0RTH CENTRAL SUPPL 
Y17816123199 7597CASH 
152 7597123199' 

29871FERGUS0N DEALERS 

27229123199 6191CASH 
124 6191123199' 

30755FASTWAY AIRLINES 

26158123199 74272CASH 1 
495 1685 72587123199' 

31275ENVIRONMENT CONCERN 
S20451123199 2943 



Figure 19-9 (Part 2 of 3). EXAUT1 Program 



19-24 Sample Programs 



0118 


092C 





01 10 


1001 





01 20 


1002 


n 


0121 


100 3 


Li 


0122 


1004 


n 


01 23 


IOCS 


t'i 


01 24 


1 U 5 





0125 


1C07 





0125 


1008 


o 


ul27 


1009 





u 1 2 fi 


1010 





0129 


101 I 


C) 


0130 


1012 






L« 



LP. 



L.R 



68 

24 
48 

6 8 

24 
4 8 
6 3 

24 
43 
68 



SQ 



1500123199' 



32457B SOLE SILOS 

27425123199 11005CASH 
2 20 11005 123199' 

37945H0FFTA RPEAKS IMC 
18276123199 4723CASH 
94 4723123199' 

42622EASTLAKE GRAVEL CD 
16429123199 2937CASH 
5 8 29 37 123199' 



Figure 19-9 (Part 3 of 3). EXAUT1 Program 



DATA FOR SAMPLE PROGRAM 

U243JUIMES HARDWARE 27541123199 2375CASH 47 47 2328123199 

11352NU-STYLE CLOTHIERS 27987123199 8707CASH 174 4000123199 

11886MIDI FASHIONS INC 15771123199 10722CASH 214 214 10508123199 

12874UL00K INTERIORS 25622123199 6795CASH 136 6795123199 

\8274STRPAMLINE PAPER I NC 29703 1 2 3 199 27403 548 238 17055123199 

23347RITE-BEST PENS CO 20342123199 1530 31 1000123199 

25521IMPORTS OF NM 29273123199 79740 1593 1193 58547123199 

26723ALRIGHT CLEANERS 19473123199 46200CASH 924 46200123199 

28622N0RTH CENTRAL SUPPLY 178 1 6 1 23 1 99 7597CASH 152 7597123199 

29871FERGUS0N DEALERS 27229123199 6191CASH 124 6191123199 

30755FASTWAY AIRLINES 26158123199 74272CASH 1495 1685 72587123199 

31275ENVIRONMENT C0NCERNS2045 1 1 23 199 2943 59 1500123199 

324573 SOLE SILOS 27425123199 11005CASH 220 11005123199 

37945H0FFTA BREAKS INC 18276123199 4723CASH 94 4723123199 

42622EASTLAKE GRAVEL CO 16429123199 2937CASH 5 9 2937123199 

Figure 19-10. Input Data Generated by EXAUT1 for Auto Report Sample Program EXAUT2 



Sample Auto Report Program (EXAUT2) 19-25 



IBM ,,,,.,„„.,,„., 



RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS 



Business Machines Corp 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer Date 


Punch 
















1 



GX21-9092- UM/050" 
Printed in U.S.A. 



75 76 77 78 79 80 



□>_ = a ,n|EHEH 





































Control 


Sp 


ecifications 




















H 


Sire to 

Compile 

7 8 9 


o 

O 
10 


O 
11 


Size to 
Execute 

12 13 14 


o 

15 


£ 
o 

s 

16 


17 IS 


1 

O 
19 


Q 
20 


21 


22 


Number 
Of Print 
Positions 

23 24 25 


< 

26 


Model 20 


37 


Model 
20 


I 
40 


I 


42 


43 


3 
O 

s 


o 


46 


X 
47 


g 

48 


49 


1 

a 

I 

50 


U 
O 

o 

51 


f I 

52 53 


Refer to the specific System Reference 
Library manual for actual entries. 

54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 






Address 
to Start 

27 28 29 30 


I 
31 


o 

o 

32 


O 
33 


1 

34" 


35 


U 
36 


1 
o 

38 


o 

I 

39 


Line 
3 4 5 


6 


o|,| 


H 


I ! 






01112 






| 










II 




III 












































1 


1 1 1 1 1 1 1 1 1 MM II III II 



RPG INPUT SPECIFICATIONS 



IBM , ,e 


„=,ion„B USi n 


essMachin 


es Corpc 


ration 






















Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer 








1 Date 


Punch 

















GX21-9094- U/M050" 
Printed in U.S.A. 



1 2 75 76 77 78 7 9 

m Program I I I 1 I T 

of Identification [Mill 





T 


























E 

z 

17 


5 
o 

18 


§ 




Record Identification Codes 


42 


43 




F 






J 
O 

52 




























Fielc 




















X 


19 20 


1 
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3 




Field Name 

53 54 55 56 57 58 


s 

59 60 


Is 

61 62 


63 64 


Indicators 


71 72 73 74 


Line 
3 4 5 


E 
6 


Filename 




Position 

21 22 23 24 


z 

z 

25 


Q 
U 

26 


1 

6 

27 


Position 

28 29 30 31 


Z 

Z 
32 


33 


6 

34 


Position 

35 36 37 38 


z 

z 

39 


Q 
U 

40 


6 
41 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 

65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


7 8 9 10 11 12 13 





R 




A 
14 


N 
15 


D 
16 





1 
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I 


C 





p 
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• 
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t 
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I 




E 


X 


A 
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IBM 



nal Business Machine Corporatic 



RPG CALCULATION SPECIFICATIONS 



Program 


Punching 
. Instruction 


Graphic 
















Card Electro Number 


Programmer Date 


Punch 

















1 2 75 76 77 78 79 
Program I T~l TT T 
Identification I I I I I 



'CD". 





c 






«,- 




Indicators 
















































Result Field 


i 
< 

53 


Resulting 
Indicators 


































> 
E 

6 


6 — 
~ g 
Ji < 

o cc 

3 5 

7 8 


1 • 1 


Factor 1 

8 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Name 

3 44 45 46 47 48 


Length 

49 60 51 


i 

Q 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 

3 4 5 


Plus |Minus| Zero 








Compare 


1 >2|l <2|1 =2 


z 

9 


10 


11 


Z 
12 


13 


14 


Z 
15 


16 


17 1 


Lookup(Factor2)is 


High 

54 55 


Low 
56 57 


Equal 
58 59 





1 




c 
























)IS 


17 


^K 










s 


u 


B 






D 


r 


S 


c 


(V 


L 








1 


)I 


FF 










M 


2 

















































2 




c 
























tt 


F 


F 












c 





h 


p 




1 


• 








































1 









1 






































3 




c 






















/ 


\M 


T 





IV 










s 


u 


B 






D 


i 


1 


T 


& 


K 










4E 


r 


d 


w 


D 






6 


£ 

















































4 




c 






















I 


IB 


r 





JD 










s 


u 


B 






1 


M 


r 


p 


D 










1 


S£ 


I 












6 


2 

















































5 




c 







































































































































6 




c 
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Figure 19-11 (Part 1 of 2). RPG II and Auto Report Specifications to Produce the Cash Receipts Register 



19-26 Sample Programs 



IBM 



RPG 



OUTPUT 



SPECIFICATIONS 



International Busmesi Machine* Corpora 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer I Date 


Punch 

















■□>_ 



75 76 77 78 79 80 



Program 
Identificatic 



r\ - 


\J o Space Skip Output Indicators ^ IN^ ^ aj Zero Balances N g . CR •■ x - Remove 

1 Si ,-=.,., m_ . (f ^ ,OP " nt - Plus Sign 


2 z ( — 1 1 — 1 Yes Yes 1 A J ' = uate 

I £ 5 S Yes No 2 B K Field Edit 
Line Filename — — -J £ I 1 LJ End No Yes 3 C L z " Zer ° 

| R m < And And cc Position No No 4 D M Suppress 


£ h D E L . ^ •? » t 

c add^Ss^s tSp Output J Constant or Edit Word 


£ OR m < z z z 'AUTO ~ < Record 52 
ii £ m °- 

A N D • 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ' 


3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


■' °CSHRECRGrt #AUTQ T T 


02 ° _ _ __ r 'CgBpiE$lETS ^ISTER 1 


^i_° D ._ 01 _ (SUKL _. _X._ J_ 


°< o REGION 'REGION' 


_ icHffi _ __i|cc|d»i' ! 1 


- o_„ _. _ r __ Ti_ C i»MB8 , ____ . t __£ T -4- 


°' ° _ ...__ fiCCtp___ JAlCCOfNTJffiE , T T 


o- ° INW0T3 'iBMOpl' r it 


09 ° _ _ IT C_ _ V"MSffi6 , ._ . . . _ j T- 


1 ° ° INViDM* »M0ItfE ! ' J J X t 


" i _ ,..:Jl_c piEi __^ _l _ tt 


"£.___ _ DftlEDL't iMlE PMT-- --Tu -t 


"_° _ __ snibIdja ....aSpfti* t 1 1 __ 


14 o C ^WED' 


' 5 ° DISTKR A » DISCOUNT' 


' 6 ° C 'TAKEN' 1 


■fflTBD & 'ttOUHI 1 L 


'• o _ C «£&TJ)' 


9 ° B&L _ & 1 bKl&8CE> T 


2 o o C l DUtp 


21 ° 10 IEFE A •EXCESS 1 


2.2. o _L C 'QISCOU^l' 


23 o x 1 'RE&IOS iqials t 


ai° _ r »coblp5p¥ iQikLp' 


I 
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Figure 19-11 (Part 2 of 2). RPG II and Auto Report Specifications to Produce the Cash Receipts Register 



Sample Auto Report Program (EXAUT2) 19-27 



Calculation Specifications 



*AUTO Specifications 



The calculation specifications shown in Figure 19-11 are 
included in the auto report program to perform special 
operations that cannot be generated by auto report. 
First, the discount allowed for each customer is 
subtracted from the discount taken by each customer. 
Indicator 10 turns off if the difference is greater than or 
equal to $1.00. The remaining calculations subtract the 
discount taken and the amount paid from the amount 
owed. 

The order in which these calculations are placed in 
relation to the calculations generated by auto report is 
shown in the auto report listing of the generated RPG II 
source program (see Figure 19-12). 



The coding for the *AUTO page heading and the *AUTO 
output functions is shown in Figure 19-11. Notice that 
the Y edit code is used for the date fields (lines 10 and 
12). Auto report generates a K edit code for numeric 
fields when an edit code is not specified. No edit code 
is generated for numeric fields when they are described 
with a digit (1 through 9) or R in column 39. The edit 
code 3 is specified for the INVNO field to suppress the 
printing of the comma edit character. 

DIFF is printed on the detail line only if it is $1.00 or 
more. Remember, output indicator 10 conditions only 
the printing of the field on the detail line; it does not 
affect the printing of the generated field on the total 
line. 

The J edit code allows zero balance to print for the 
AMTOWD field. 

Totals are accumulated and printed by auto report for 
five fields as indicated by A entries in column 39. 
Because an L1 control level is defined in the input field 
specifications for REGION, which is added to the input 
specifications for CASHRC (see Figure 19-11), regional 
and final totals are accumulated for each field that has 
an A in column 39. The total lines are identified by the 
literals shown in lines 23 and 24 of the *AUTO 
specifications (see Figure 19-11). 

Figure 19-13 shows the output data produced by 
EXAUT2. 



19-28 Sample Programs 



IBM SYSTEM/34 RPGII 


AUTO REPORT 








0001 




U 






N 






0002 




H 012 










0003 


0101 


I/COPY 


F1,EXAUT3 








0004C 




FCSHRECRGO 


F 132 132 


OA PRINTER 


0005 


0102 


I/COPY 


FUEXAUT4 








0006C 


02 


FCASHRC 


IPE F1020 


68 


DISK 


0007C 


01 


ICASHRC 


AA 


01 68 


C9 






0008C 


03 


I 










1 5 ACCTNO 


0009C 


04 


I 










6 25 ACCTNM 


0010C 


05 


I 










26 300INVNO 


0011C 


06 


I 










31 360INVDAT 


0012C 


07 


I 










37 422AMTQWD 


0013C 


09 


I 










47 512DISCAL 


0014C 


10 


I 










52 562DISTAK 


0015C 


11 


I 










57 622AMTPD 


0016C 


12 


I 










63 680DATPD 


0017 


01 


I 










1 1 REGI0NL1 


001H 


01 


C 




DISTAK 


SUB 


DISCAL 


DIFF 62 


0019 


02 


C 




DIFF 


COMP 1.03 


10 10 


0020 


03 


C 




AMTOWD 


SUB 


DISTAK 


NETOWD 62 


0021 


0204 


C 




NETOWD 


SUB 


AMTPD 


BAL 62 


0022 


0301 


OCSHRECRGH 






*AUTO 




0023 


0302 


a 










•CASH RECEIPTS R 


00 24 


0303 





D 


01 




*AUTO 




0025 


0350 








REGION 


•REGION' 


0026 


0304 











ACCTNO 


•ACCOUNT' 


0027 


0305 











C 


•NUMBER' 


0028 


0306 











ACCTNM 


•ACCOUNT NAME* 


0029 


0310 











INVNO 3 


•INVOICE' 


0030 


0311 
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Figure 19-12 (Part 1 of 3). Auto Report Sample Program (EXAUT2) 



Sample Auto Report Program (EXAUT2) 19-29 



IBM SYSTEM/3* RPGII COMPILER 



OOIO H 



012 



EXAUT2 



0001 
0002 



0020CFCSHRECRGO F 132 132 
0030CFCASHRC IPE F1020 68 



OA 



PRINTTR 
DISK 



EXAUT2 
EXAUT2 





0040 I*/COPY 


F1,EXAUT3 




0050 I*/COPY 


FWEXAUT4 


0003 


0060CICASHRC 
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0004 


0070CI 




0005 
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0006 
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0007 
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0130CI 
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Figure 19-12 (Part 2 of 3). Auto Report Sample Program (EXAUT2) 



19-30 Sample Programs 
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Sample Auto Report Program (EXAUT2) 19-31 
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ACCOUNT NAME 



JONES HARDWARE 
NU-STYLE CLOTHIERS 
MIDI FASHIONS INC 
UL00K INTERIORS 
STREAMLINE PAPER INC 



RITE-BEST PENS CO 
IMPORTS OF NM 
ALRIGHT CLEANERS 
NORTH CENTRAL SUPPLY 
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FASTWAY AIRLINES 
ENVIRONMENT CONCERNS 
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HOFFTA BREAKS INC 
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SAMPLE WORKSTN FILE PROGRAM (ORD) 

The sample program ORD creates records for the disk 
file TRANS (see Figures 19-14 and 19-15). The display 
format ZCNUM prompts the operator to enter a 
customer number. The display format ZSHIP displays 
the customer name and ship-to headings and fields, and 
allows the operator to change the ship-to fields. The 
display format ZITEM prompts the operator for the item 
number and quantity on line 22 of the display screen. 
The display formats SHOWITEM and ZITEMHED display 
the item number, quantity, description, price, amount, 
and total headings and fields. The ZITEMHED format 
also requests the operator to enter the next item number 
and quantity (line 22). 

A code 2 indicates that the customer name and address 
record is written to the TRANS file. A code 4 indicates 
that the ship-to name and address record is written to 
the TRANS file. A code 6, which is created when three 
items have been entered, indicates that the items record 
is written to the TRANS file. 



Functions Not Used in Sample Program ORD 

The following functions were not used in the sample 
program ORD: 

• ACQ operation code. The ACQ operation code is 
used only to cause a specific device to be allocated 
to tne program. 

• NEXT operation code. The NEXT operation code is 
used to force the next input record to come from a 
specific device. 

• READ operation code. The READ operation code is 
used to provide input from a WORKSTN file on 
demand. When you use the READ operation code, 
you must set on LR when the file is at end of file. 



The following command keys are allowed in this 
program: 

• Cmd key 1 (which corresponds to indicator KA) 
completes an order and: 

- Creates a final code 6 record, if needed 

- Creates a code 8 (total) record 

- Enables input to allow the operator to enter the 
next customer number 

• Cmd key 2 (which corresponds to indicator KB) 
cancels an order and: 

- Creates a code (cancel order) record 

- Enables input to allow the operator to enter the 
next customer number 

• Cmd key 3 (which corresponds to indicator KC) ends 
the program and updates the HEADER record to 
contain the group number of the last order written to 
the disk file TRANS. 

The following error messages are displayed for the 
program: CUSTOMER NOT FOUND, ITEM NOT 
FOUND, and INVALID COMMAND KEY. 



Sample WORKSTN File Program (ORD) 19-33 



Display screen format ZCNUM 
Display screen format ZITEMHED 



Display screen format ZSHIP 
Display screen format SHOWITEM 
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The headings ITEM, QTY, and TOTAL are described by 
the display screen format ZITEMHED. The fields TOTAL, 
ITEMNO, and QTY are described by the display screen 
format ZITEM. 



Figure 19-14 (Part 1 of 11). Sample Program ORD 



Display screen format ZERROR. The constant for the 
error message is defined on the RPG II output specifica- 
tions (see Part 10 of this figure). 

Display screen formats ZCNUM, ZSHIP, ZITEM, 
ZITEMHED, SHOWITEM, and ZERROR are contained 
in the format load member ORDFM. 



19-34 Sample Programs 



System/34 Display Screen Format Specifications 
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GX21-9253 U/M050" 

Printed in U.S.A. 

'No. of sheets per pad may vary slightly. 
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Code is the first input field in formats ZCNUM, ZSHIP, and 
ZITEM that allows input. This field is on the screen but is 
not displayed (Y in column 43). The field is used to deter- 
mine the record type. 



System/34 Display Screen Format Specifications 



GX21-9253 U/M050* 

Printed in U.S.A. 

*No. of sheets per pad may vary slightly. 
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The order in which these fields appear on the screen is not 
the same as the order in which they appear in the RPG II 
output record (see Part 1 1 of this figure). 



. Figure 19-14 (Part 2 of 1 1). Sample Program ORD 
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A variable starting line number is specified for SHOWITEM. 
The starting line number is contained in the field SLN, 
which is incremented in the ITEMS subroutine (see Part 9 
of this figure). 



The lengths of the fields QTY, PRICE, and AMOUNT on 
the display screen format specifications must be the 
lengths of the fields after they are edited by RPG II (see 
Part 10 of this figure). 



System/34 Display Screen Format Specifications 
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Printed in U.S.A. 

*No. of sheets per pad may vary slightly. 



H 


E 
6 


Format 
Name 

7 8 9 10H12 13I4 


6 

1 
D 

1 
15 16 


S 
E 

Z 
17 18 


z 2 

19 20 


3 
1 

21 


CC 
22 


ll 

23 24 


E 
< 

25 26 


5 

27 


5 

1 

E 

<3 

3 
28 


O 

29 30 


31 32 


O 
33 34 


35 36 


Reserved 

3? 38 39 40 


WSU Only 


Reserved 
60 61 62 63 


Key Mask 

64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 


tr 

80 


Sequence 
Number 

12 3 4 5 


Enter 
Mode 
Sequence 


•a 
cc 

45 


i. 

46 


1 

ct 

47 


Review 

Mode 

Record 

Identifying 

Indicators 


Insert 

Mode 

Record 

Identifying 

Indicators 


41 


42 


rr 

43 


1 

IT 
44 


1 

48 49 


2 

30 51 


3 

52 53 


1 

54 55 


2 

56 57 


3 

58 59 


Mi! 


S 


2IW» 


1 


11 


/K 


1 






1 
i 








| 


1 


| 


! 1 1 
















l 


M 


l 


I 


l 




1 1 1 


lllllllllllllll 





Q 








a. 

E 


6 






F 


ie 


d 
















Starting 
Location 


Q 

O 
23 2 


o 

D 

i 

3 

25 


< 

a. 
26 


O 
27 


-a 
S 
28 


5 

29 


I 
30 


< 
31 


a. 
32 3 


D 
34 


5 
•o 

8 

35 


•a 
< 

cc 
< 

36 














a 

z 

43 4 


8, 
1 

rr 

1 45 4 


•a 

O 

47 4 


3. 
i 

i 

49 


























































c 

3 


Sequence 
Number 

12 3 4 5 


Name 


Field 
Length 

15 16 17 18 


1 

E 
Z 

19 20 


a. 

I 
21 22 


a. 
37 38 


I 
39 40 


2 
41 42 


Reserved 
50 5152 53 54 55 5 


i Constant Data 


WSU 
Field Name 

7 8 9 10 11 12 


•o 
S3 

Zn 
13 14 


3 1 2 3 4 5 6 7 8 910111213141516171819 20 21 22 2 


6 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 












D 
























e 




7 




3 


y 






















































t 


:w 


S 


M 




M 


c 


, 










































D 
























8 




7 


1 


4 


y 






















































: 


7 (%.. 


A 


Al 


i 


( 


T 


y 










































D 






















z 


2 




7 


I 


k 


/ 






















































* 


>pJX 


S 


^ 


a 


/ 


P 


T 


« 




N 





























































% 




7 


5 


Z 


y 




















































' 


'Pk 


1 


C, 


6 










r 






































D 






















i 


4 




7 


^ 


ft 


1 






1 
































- 














: 


:M 





U 


rV 


7 














































D 
























i 


z 


1 


$ 


7 


y 


















































* 


IT 




r 


A 


I 
















































D 
























4 


I 


Z 




3 


y 




















































* 


1Q 


r 


e 


n 


















































D 
























3 


I 


2 


I 


1 


y 






] 














































t 


2§ 


T 


y 











































Figure 19-14 (Part 3 of 11). Sample Program ORD 
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Format ZITEM clears no lines (00 in columns 19 and 20 of 
the S specification). Because ZITEM clears no lines, it must 
output a blank field on line 24 to clear the field from the 
format ZERROR (see last line of ZITEM). 
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The length of the field QTY, which is defined as 5 in 
RPG II, for the display format is increased to 6 to allow 
for the sign position. 



The format ZERROR does not clear any lines (00 in 
columns 19 and 20). 
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Figure 19-14 (Part 4 of 11). Sample Program ORD 



Sample WORKSTN File Program (ORD) 19-37 



The format load member contains six display screen 
formats. 
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File Description Specifications 




The WORKSTN file is specified as combined (C in 
column 15) and primary (P in column 16). 



The WSID field will contain the work station ID for the 
display station. The SLN field will contain the starting 
line number for the display screen format SHOWITEM 
because a variable starting line number (V in column 17 of 
the S specification) is specified. 



Figure 19-14 (Part 5 of 11). Sample Program OR D 
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Extension Specifications 
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This array is used to output three ITEM, QTY, PRICE, 
and DESC entries. 

Figure 19-14 {Part 6 of 1 1). Sample Program ORD 



Sample WORKSTN File Program (ORD) 19-39 



Indicator 10 identifies a blank record. 



The record identification codes are output as constants 
in the formats and are used to control which set of 
calculations is executed. 
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271 IT & 6 CODE 


281 Li 15 8«SESi_ 


291 Si 


3 ° * !_/ _T 1 4<3 IGPBG^ 


3 ' x 4- . ■ _ // i * irEWHc 


3 2 z 0_ I llCfSTV 


331 __ J __ 12 182P8ICE 


341 _/ _L 13 10 wise 


3 5 I 7 



The data structure KEYHLD allows manipulation of the 
fields within the key for the TRANS file. The data 
structure containing IQPDOO is used to build an element 
for the array IQPD. 

Figure 19-14 {Part 7 of 11). Sample Program ORD 
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Calculation Specifications 




(Calculation specifications are continued on the next page.) 
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(Calculation specifications continued from the previous page. 




(Calculation specifications are continued on the next page.) 
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(Calculation specifications continued from the previous page.) 



ifc.f 



25_£ 



i 



HEH RECORD; TA TtoEDKMfc FIUL: 




-H-^ 



Output Specifications 



8 51 10 II 12 



Output Indicators 



And And 



c> 



1 ' A J 



| 3 | C L 
I 4 ; D M 



X -- Remove 
Plus Sign 

Y - Date 

Field Edit 

Z * Zero 

Suppress 



6 7 8 9 



Constant or Edit Word 

2 13 14 15 16 1? 18 19 10 21 22 23 24 



liO 61 52 53 54 55 56 52 58 5!) 60 61 62 63 64 65 66 67 68 69 70 



I 2 i 

H- -, 

3 

il 

I 6 ! 

!8. 



1 0; 

1 i 1 

- 1- * 

1 '3 

1 4 
1 15 



°iu 



I ! 



I ! 



J.. J -._i..X..L..L-i..l 



1BTM99 

1;1N<*9 



13N99 



CRECD 



OR 



13W.9 

i| 



ITEMM) 

QTY 

DESC 

PRICE 

AM0UMTO1 



ill 



.» 



XX 

m 



..i._. 



K5 
K5 

KB 
6 

la 

55 
KB 



K5 
13 






SHOWITEMV 



i 



1H 




(Output specifications are continued on the next page.) 
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(Output specifications continued from the previous page.) 



2 ; 4 |c 
2 5 C 


TRANS. . EjA 


DS) ..;. 


! Nl 


ijLsiiT 


. KfeY.ji. 


nl- 


.!..[♦ |.. t -|.. t .. 
; , I i ■ ! I i 


; i I ; ■ i 


: ! ! ■ ' ' i 


2 6 C 


) 


OP ; 


i 3 




'flMf 


: i i ! 


i ! 


2 ^ C 


i _ -^>A 


kmi 




i i 


| ' ' ! ! i 


2 8 C 


) 




; i 


1 ! 


K^Y 


8 


, j ; i' : ! ! I 


| j ' | 


2 9 ( 


) . , 




i | 


^_ J. 




"TtS" 


l U& 


Ill- 


! . ! I : : '. i 


3 ( 


3 




1 


i i 


t^™ 


! ! i ! ■ ' Mil! 


3 1 C 
3 2 ( 


h 4 ~r da 


sic: 




Luteal 


l.CWSllftD 


;1£8 




! ! i I ' | 1 ! ' 1 
I j ! i j 1 ; Mil 


::te±i 


~ CS 


-f— ~i- 


I'll | ! 


3 3 C 


) i 


M ' '! ' ! 1 

1 ; . i 1 Mill! 


3 4 C 


) 








! M/ 4-1- 


8 
J28 


..'Jtfdi 1 ! _L 


I 1 i i ! ; ! 

1 ■ . j j i 1 i 1 i 


3 5 C 


) '' ' 








TstipPT^ 


, , i i 1 : 


i ! i ■ i ! i ■ 


3 6 ( 


5 ! EA 


dd _. 


_Jj 


■5 ■ | 


I ! 1 ; 




+ T 






3 7 ( 
3 8 ( 


3 . 




1-PLu 

l Wl 

i { f- •■ 


6Ti?i 

: f ; J) 


i . 1 i 




_.L._L 


'M& 


-441 


; 


1 

1 1 1 ! 


3 9 ( 

4 ( 


> ^ ~ ^DA 


wi 


! •■ ■ ! 


---"-+- 


! i ' ! 

1 ■■ 


4 1 C 


) 


h r ^ t i + 


4 2- C 


) 


- iIojm.: 


_jlb_ 


•m 


1 ' T 


i ' i 
! ' ; I ! 


4 3 ( 


) i 




4 4 ( 


; e 




* 


Sussi 


i i 


1 m 




, 


'. 1 


4 5 ( 


D ' 


r u - 




3fcp: 




i^i 


-rrt- 


' 




4 6 ( 


3 :A 


1 


• 1 i 


4 7 ( 


D : 


1 KEY 1 


8 


i! 




I 1 1 


48 ( 


d i ' ; 




' 


i ; 




8 


.im.. 


' ! 


1 ■-■■'■ 

1 


4 9 C 


>inV ; d 




.,4 


£Nja_. 


i 




i i i 


1 l i 


! 1 
j i 


5 ( 
5 1 ( 


3 1 




{ PElNDNG 


JTJ 


1 I I i 1 


! t 
i 






i i 


t ~r~ 
J : 


1 1 


I 
I 


. ! 1 M 


1 1 



Records output to the WORKSTN file are conditioned on a successful (N99) input of the 
previous record type: 

• Customer number as first screen 

• Customer number precedes ship to 

• Ship to or item precedes an item 

• Item precedes displaying the item 

The WORKSTN error record (ITEM NOT FOUND) is separate from the preceding order. 
However, because the ZERROR format allows input, the correction can be made as if 
no error had occurred. 

Figure 19-14 (Part 11 of 11). Sample Program ORD 
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SOURCE INPUT SCRFEN FORMAT b.OuRCF SPFC I F IC AT I ON S 



SZCNUM 


1; 


It* 




DCOOF 


1 


L80Y 


Y 


D 


15 


1 3Y 




DCUSTNC 


6 


2 6 


Y 



cc 

CCUSTOMER NUMBER 



INPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

CODE 1 1 1 

CUSTNC b ■ 2 7 



SOURCE INPUT SCRFEN FORMAT SOURCE SPECIFICATIONS 



SZSHIP 


L2<t 




DCOCE 


1 


180Y 


Y 


D 


15 


1 3Y 




D 


13 


121Y 




D 


7 


151Y 




DCUSTNC 


6 


2 3Y 


Y 


DCNAMF 


25 


221Y 


Y 


DCAl 


25 


321Y 


Y 


DCA2 


25 


<t21Y 


Y 


DCA3 


25 


521Y 


Y 


DSNAME 


25 


251Y 


Y 


DSA1 


25 


351Y 


Y 


OSA2 


25 


451Y 


Y 


DSA3 


25 


551Y 


Y 



CS 

Y CCUSTOMER NUMBER 

Y CCUSTOMER NAMF 

Y CSHIP TO 



Y Y 

Y 

Y 

Y 

Y 



EXFCUTION TI^E OUTPUT BUFFER DESCRIPTION 



LENGTH 

6 
25 
25 
25 
25 
25 
25 
25 
25 



INPUT RUPFER DESCRIPTION 



FIELD 


NAME 


CUSTNC 


CNAME 


CA1 


CA2 


CA3 


SNAMF 


SA1 


SA2 


SA3 



START 


END 


POSITION 


POSITION 


1 


6 . 


7 


31 


32 


56 


57 


81 


82 


106 


107 


131 


132 


156 


157 


181 


182 


206 



FIELD 


NAME 


CODE 


CUSTNO 


C\AMP 


CA1 


CA2 


CA3 


S N A M F 


SA1 


SA2 


SA3 





START 


END 


LE NGT H 


POSITION 


POSITIUN 


1 


1 


1 


6 


2 


7 


25 


8 


32 


25 


33 


57 


25 


5 8 


82 


25 


83 


107 


25 


ice 


132 


25 


133 


157 


25 


1 58 


182 


25 


183 


207 
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SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 



SSHOrflTEM 


V 


z 


DITEM 


6 


1 3Y 


DOTY 


6 


llt>Y 


DDESC 


ZZ 


126Y 


DPRICE 


10 


151Y 


DAMOUNT 


11 


163Y 



EXECUTION TIME OUTPUT BUFFER DESCRIPTION 

FIELD 

NAME 

ITEM 
QTY 
DESC 
PRICE 

AMOUNT 



SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 





START 


END 


LENGTH 


POSITION 


POSITION 


6 


1 


6 


6 


7 


12 


ZZ 


13 


34 


10 


35 


44 


11 


45 


55 



SZITEMHEC 


100 


D 


8 7 3Y 


D 


8 714Y 


D 


22 726Y 


D 


9 752Y 


D 


10 764Y 


D 


52157Y 


D 


422 3Y 


D 


32221Y 



SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 



SZITEM 


100 




DCODE 


I 180Y 


Y 


DTOTAL 


132163Y 




DITEMNO 


622 8Y 


Y 


DOTY 
D 


62225Y 
392402Y 


YS 



Y 

Y Y C 

Y Y C 

N C 

EXECUTION TIME OUTPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

TOTAL 13 1 13 

INPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION . POSITION 

CODE 1 1 1 

ITEMNO 6 2 7 

QTY 5 8 12 



SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 

SZERROR 2400 

DMSG 39 1 2Y Y Y 

EXECUTION TIME OUTPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

MSG 39 1 39 



ORDFM SCREEN FORMAT LOAD MEMBER 

FORMAT ZCNUM REQUIRES 512 BYTES OF STORAGF 

FORMAT ZSHIP REQUIRES 768 BYTES OF STORAGE 

FORMAT SHOWITEM REQUIRES 512 BYTES OF STORAGE 

FORMAT ZITEMHEO REQUIRES 512 BYTES OF STORAGE 

FORMAT ZITEM REQUIRES 512 BYTFS OF STORAGF 

FORMAT ZERROR REQUIRES 512 BYTFS OF STORAGE 

Figure 19-15 (Part 2 of 6). Compiler Listing for Sample Program ORD 
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CITEM NO. 

CQUANTITY 

CDESCRIPTION 

CPRICE 

CAMOUNT 

CTOTAL 

CITEM 

CQTY 



CI 



IBM SYSTEM/34 RPGII COMPILER 



RG 004 



06 



ORD 



0001 
0002 
0003 
0004 
0005 
0006 



FWK 


CP 


F 




F 




FCMAST 


IC 


FINV 


UC 


FTRANS 


UC 


F* 




F* 




F*N01 




F* 10 




F* 11 




F* 12 




F* 13 




F* 




F* 99 




F* 96 




F* 97 




F* 98 




F* 




F* 15 




F* 




F* 




F* 90 91 


92 


F* KA 




F* KB 




F* KC 





207 



F 206 206R 6AI 
F 45 45R 6AI 
F 256 128R 8AI 



WORKSTN 



1 DISK 
1 DISK 
1 DISK 



KID 
KSLN 



WSID 
SLN 



FUNCTION OF INDICATORS 

FIRST TIME FOR THIS WORKSTN 

NEW GROUP* OUTPUT CUSTOMER NUMBER PROMPT 

CUSTOMER NUMBER INPUTt OUTPUT NAME L ADDRESS SCREEN 

NAME & ADDRESS IN» OUTPUT ITEM-QTY PROMPT 

ITEM-QTY INPUTt SHOW THE ITEM C PROMPT FOR NEXT 

ERROR HAS OCCURRED 
INVALID COMMAND KEY 
ITEM NOT FOUND 
CUSTOMER NOT FOUND 

NEED TO OUTPUT IQPD ARRAY 

A ARRAY IS FULL 

B ORDER COMPLETE AND ARRAY IS NOT EMPTY 
WORK INDICATORS 

ORDER IS COMPLETE INVALID IF STARTING NEW GROUP 

CANCEL ORDER INVALID IF STARTING NEW GROUP 
END OF JOB INVALID IF NOT STARTING GROUP 



0007 



IOPD 



3 40 



0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 



0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 



UK 


NS 


11 


1 


CC 




NS 


12 


1 


cs 




NS 


13 


1 


CI 


CMAST 


NS 
NS 


10 
90 


1 


c 


INV 


NS 


91 







TRANS 
CRECD 



NS 



KEYHLD 



3 CH 




5 CA 



2 7 CUSTNO 
2 207 CRECC. 



1 

7 

12 

17 

24 



1 

1 

7 

12 

19 



7 ITEMNO 
120CJTY 



1 206 CRECC -*. 



6 ITEMNO 
1100NHAND 
160PENDIMG 
232PRICE 
45 DESC 

110LSTGRP 



1 6 CUSTNO 

7 106 CUSTAD 

107 206 SHIPAD 

1 8 KEY 

1 2 WSID 

3 50GROUP« 

6 6 CODE 

7 8OSEQ0 



40 IQPDOO 
6 ITEMNO 
llOgTY 
182PRICE 
40 DESC 



Figure 19-15 (Part 3 of 6). Compiler Listing for Sample Program ORD 



The data structure CRECD is used to define input records 
and an output record (see Part 5 of this figure). The data 
structure for the output record is defined further by the 
ZSHIP display screen format. See Part 1 of this figure for 
the relationship between the display screen format and the 
input and output records. 
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0042 


C 


N01 






EXSR NEW 






0043 


C 








EXSR CMDKEY 






0044 


C 


99 






GOTO END 






0045 


C 


KA 






EXSR ENDCRD 






0046 


C 


KB 






EXSR CANCEL 






0047 


C 


KC 






EXSK ENDJOB 






0048 


C 


KA 












0049 


COR 


KB 












0050 


COR 


KC 






GOTO END 






0051 


c 


11 




CUSTNO 


CHAINCMAST 


98 




0052 


c 


96 






SETON 


99 




0053 


c 


11N98 


GROUPS 


ADD 1 GROUP/,' 






0054 


c 


13 






EXSR ITEMS 






0055 


c 

c* 

c 






END 


TAG 






0056 






NEW 


BEGSR 






0057 


c 








MOVE 'HEADER' KEY 






0058 


c 






KEY 


CHAINTRANS 


90 




0059 


c 


90 






EXCPT 


CREATE HEADER 


0060 


c 








SETON 


01 SET NCT 1ST 


0061 


c 








Z-ADDLSTGRP GROUPS 


SET GROUPS' 


0062 


c 








EXSR RESET 


START NEW GROUP 


0063 


c 








ENOSR 






0064 


c 






CMDKEY 


PEGSR 


CHECK VALIDITY 


0065 


c 








SETOF 


969798RESET 


0066 


c 








SETOF 


99 ERRORS 


0067 


c 


11 


KA 




SETON 


9996 * 


INVALID 


0068 


c 


11 


KB 




SETON . 


9996 =: 


COMMAND 


0069 


c 


12 


KA 




SETON 


9996 ■■• 


KEY 


0070 


c 


12 


KC 




SETON 


9996 ■■ 


ENTERED 


0071 


c 


13 


KC 




SETON 


9996 •■■ 




0072 


c 

C* 

c 








ENOSR 






0073 






ENDCRD 


BEGSR 






0074 


c 








EXSR SAVE 






0075 


c 








EXSR RFSET 






0076 


c 

c* 

c 








ENDSR 






0077 






CANCEL 


PEGSR 






0078 


c 








EXCPT 






0079 


c 








FXSR SAVE 






0080 


c 








EXSR RESET 






0081 


c 








ENDSR 









C* 


0082 


C 


0083 


C 


0084 


C 


0085 


C 


0086 


C 


0087 


C 


0088 


C 


0089 


C 




C* 


0090 


C 


0091 


C 


0092 


C 


0093 


C 


0094 


c 


0095 


c 


0096 


c 


0097 


c 


0098 


c 


0099 


c 


0100 


c 


0101 


c 


0102 


c 


0103 


c 


0104 


c 


0105 


c 




c* 


0106 


c 


0107 


c 


0108 


c 


0109 


c 


0110 


c 


0111 


c 


0112 


c 


0113 


c 




c* 




c* 


0114 


c 


0115 


c 


01 16 


c 


0117 


c 


01 18 


c 


0119 


c 



97 



15 



90 



97 



N15 



ENDJOB 


BEGSR 










Z-ADOGROUPS 


GPHOLD 


30 






MOVE 'HEAOER' 


KEY 






KEY 


CHAINTRANS 

EXCPT 

SETOF 






HI 
11 


WSID 


REL WK 
ENOSR- 








ITEMS 


BEGSR 








ITEMNO 


CHAININV 
GOTO ITMEND 






97 


X 


ADD I 

WOVE IOPDOO 


X 

IQPD,X 


20 




X 


COMP 3 
FXSR SAVE 






15 


SLN 


ADD 1 


SLN 






SLN 


COMP 20 
Z-ADD8 


SLN 




90 


PENDNG 


ADD (jTY 


PENDNG 






PRICE 


MULT QTY 


AMOUNT 


82 




AMOUNT 


ADD TOTAL 


TOTAL 


92 




ITMEND 


TAG 

SETON 
ENDSR 






99 


SAVE 


BEGSR 








X 


COMP 
GOTO SAVE99 
FXCPT 
Z-ADDO 
SETOF 


X 




15 
15 


SEQ« 


ADD I 


SEQ« 






SAVE99 


ENDSR 








RESET 


BEGSR 

SETON 

SETOF 

Z-ADD7 

Z-AODl 

ENDSR 


SLN 
SF(J« 




10 
111213 
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K5 'ZCNUM 



10N99 
1 1N99 

1 3N99 



12N99 

0134 K8 •ZITEMHED' 



0121 


OWK 


0122 





0123 





0124 





0125 





0126 





0127 





012P 





0129 


C 


0130 





0131 





0132 





0133 








K5 


• ZSHIP' 


CRECD 


206 






K8 


• SHOWITEM* 


ITEMNO 


6 




OTY L 


12 




OESC 


34 




PRICE J 


44 




AMOUMTJ 


55 





0135 





D 


12N99 


0136 





OR 


13N99 


0137 









0138 









0139 








99 


0140 









0141 







96 


0142 







98 11 


0143 







97 13 


0144 


OTRANS 


EADD 


N01 90 


0145 









0146 









0147 





OADD 


12N99 


0148 









0149 









0150 









0151 



0* 






G152 





DADO 


12N99 


0153 









0154 









0155 









0156 





EADD 


15 


0157 









0158 









0159 


c 






0160 





OADD 


KAN99 


0161 


c 






0162 









0163 


a 






Clb4 





E 


KCN99 


0165 









0166 


OTRANS 


trADD 


KBN15 


0167 









0168 









0169 


OINV 





13N99 


U170 










K5 'ZITtM' 
TOTAL J 13 



K6 'ZERROR' 
15 ' INVALID CMD KEY* 
18 'CUSTOMER NOT FOUND 
14 'ITEM NOT FOUND' 



KEY 



11 '000' 



KEY 

CuS 

CUSTAD 128 



8 '201' 
CUSTNO 14 



KEY 8 

6 '401 
SHIPAD 128 

KEY 8 

IQPD 3 128 

6 '6' 

KEY 8 

6 '801 
TOTAL B 17 

GPHOLD 11 

KEY 8 

& '000' 

PENDNG 16 



INDICATORS USED 

HI KA KB KC 01 10 11 12 13 L5 90 91 92 96 97 98 99 



EXECUTION TIME TABLES AND ARRAYS 

STMT;; TABLE/ 

DEFINED ARRAY 

0007 IQPD 

RPG-0314 UNREFERENCED FIELD NAMES 
STMT;,! NAME 
0030 KEYHLD 
0020 ONHAND 
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CEC 


ENTRY 


NUMBER OF 


DTT 


T/A 


POS 


LENGTH 


ENTRIES 


' DISP 


DISP 




040 


00003 


0100 


C12F 
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FIELD NAMES USED 

STMT« NAME DEC LNG DISP 

0026 CRECD 0206 0180 

0027 CUSTNO 0006 0185 

0028 CUSTAD 0100 01E9 

0029 SHIPAD 0100 024D 

0030 KEYHLD 0008 024E 

0031 KEY 0008 0255 

0032 WSID 0002 024F 

0033 GROUPS 0003 0252 

0034 CODE 0001 0253 

0035 SECK,' 0002 0255 

0037 IQPDOO 0040 027D 

0038 ITEMNO 0006 025B 

0039 QTY 0005 0260 

0040 PRICE 2 0007 0267 

0041 DESC 0022 027D 
0021 PENDNG 0005 0282 
0025 LSTGRP 0003 0285 
0003 SLN 0002 0287 
0083 GPHOLD 0003 028A 
0093 X 0002 028C 

0101 AMOUNT 2 0008 0294 

0102 TOTAL 2 0009 029D 

LABELS USED 

STMT.V NAME TYPE 

0055 END TAG 

0056 NEW BEGSR 
0064 CMDKEY BEGSR 
0073 ENDORD BEGSR 
0077 CANCEL BEGSR 
0082 ENDJOB BEGSR 
0090 ITEMS BEGSR 

0103 ITMEND TAG 
0106 SAVE BFGSR 

0113 SAVE99 ENDSR 

0114 RESET BEGSR 

MAIN STORAGE USAGE OF RPG II CODE 

START NAME IF CODE ' NAME TITLE 

ADDR OVERLAY LENGTH 

0000 105F RGROOT ROOT 

105F 0094 3PGTS WORK STATION SCAN SUBROUTINE 

1165 00B1 RGMAIN INPUT MAINLINE 

1283 0026 RGSUBS CONTROL FIELDS 

10F3 006A RGSUBS INPUT CONTROL ROUTINE 

1216 006D RGSUBS RECORD IDENTIFICATION 

115D 0008 RGSUBS INPUT HOOK 

12A9 0737 3PGTI wORK STATION INPUT PROCESSING 

1A5F 00A2 RGMAIN DFTAIL CALCULATIONS 

19E0 004B RGSUBS OUTPUT CONTROL ROUTINE 

1A4F 0010 RGSUBS CONSTANTS 

1A2B 0008 RGSUPS INPUT HOOK 

2105 OOOC 3PGDM DATA MANAGEMENT CALL 

1CD0 004F RGSUBS SUBSEG 

1B01 OOCD RGSUBS EXCEPTION 

1A3B 0008 RGSUBS INPUT HOCK 

1ED5 002C RGSUBS SUBSEG 

1C73 005D RGSUBS CHAIN CODE 

1A43 OOOC RGSUBS OUTPUT HOOK 

ID1F 004A RGSUBS SUBSEG 

1069 0010 RGSUBS SUBSEG 

1E9E 0037 RGSUBS SUBSEG 

2058 0043 3PGRI RESET RESULTING INDICATOR 

ID79 0014 RGSUBS SUBSEG 

1D8D 004F RGSUBS SUBSEG 

1F01 OOAE SPGTR WORK STATION DEALLOCATION REL 

1DDC 00C2 RGSUBS SUBSEG 

1FAF 00A9 3PGAA TAG FETCH 

1C19 005A RGSUBS CHAIN CODE 

209B 006A SPGMC MULTIPLY 

1A33 0008 RGSUBS INPUT HOOK 

1BCE 004B RGSUBS CHAIN CODE 

2111 0055 RGMAIN INPUT FIELDS 

21DB 01B1 RGMAIN DETAIL OUTPUT 

217E 005D RGSUBS CONSTANTS 

2166 OOOC RGSUBS OUTPUT HOOK 

238C 0212 3PGTC WORK STATION OUTPUT PROCESSING 

2172 OOOC RGSUBS OUTPUT HOOK 

259E 0010 RGMAIN LR C OVERFLOrt PROCESSING 

25BB 002A RG M AIN CLOSE MAINLINE 

25E5 O0B7 RGMAIN OPEN MAINLINE 

09884 ORD MAIN STORAGE REQUIRED TO EXECUTE, 

2LIBRAKY SOURCE MEMBER INPUT LIBRARY. 

^LIBRARY LOAD MEMBER OUTPUT LIBRARY. 
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Expanding Sample WORKSTN File Program ORD 

To expand ORD to support four display stations, the 
following must be done to the sample program shown 
in Figure 19-14. 

• Add three continuation lines to the files description 
specifications using the keyword NUM with a value 
of 4 (which allows up to four display stations to call 
the program), the keyword IND with a value of 01 
(which saves indicator 01 for each display station), 
and the keyword SAVDS with a value of AAAAA 
(which saves the fields in AAAAA). 

• Define AAAAA as a data structure that contains the 
KEYHLD field, IQPD array and its index (field X), SLN 
field, and TOTAL field. 

The compiler listing for the expanded sample program is 
shown in Figure 19-16. 
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To expand the program ORD to support four display 
stations, three continuation lines are added to the file 
description specifications. NUM with a value of 4 allows 
four display stations to call the program. IND with a value 
of 01 saves indicator 01 for each display station. SAVDS 
saves the fields in AAAAA for each display station. 



IBM SYSTEM/34 RPGI I COMPILER 



RG 004 



06 



ORD 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 



FWK 


CP 


F 




F 




F 




F 




F 




FCMAST 


IC 


FINV 


UC 


FTRANS 


UC 


F* 




F* 




F*N01 




F* 10 




F* 11 




F* 12 




F* 13 




F* 




F* 99 




F* 96 




F* 97 




F* 98 




F* 




F* 15 




F* 




F* 




F* 90 91 


92 


F* KA 




F* KB 




F* KC 





207 



WORKSTN 



KID 


WSID 


KSLN 


SLN 


KNUM 




KIND 




KSAVDS 


AAAA 



F 206 206R 6AI 1 DISK 

F 45 45R 6AI I DISK 

F 256 128R 8AI 1 DISK A 

FUNCTION OF INDICATORS 

FIRST TIME FOR THIS WORKSTN 

NEW GROUP, OUTPUT CUSTOMER NUMBER PROMPT 

CUSTOMER NUMBER INPUT, OUTPUT NAME £ ADDRESS SCREEN 

NAME 6 ADDRESS IN, OUTPUT ITEM-QTY PROMPT 

ITEM-QTY INPUT, SHOW THE ITEM £ PROMPT FOR NEXT 

ERROR HAS OCCURRED 
INVALID COMMAND KEY 
ITEM NOT FOUND 
CUSTOMER NOT FOUND 

NEED TO OUTPUT IQPD ARRAY 

A) ARRAY IS FULL 

B) ORDER COMPLETE AND ARRAY I S NOT EMPTY 
WORK INDICATORS 

ORDER IS COMPLETE (INVALID IF STARTING NEW GROUP) 
CANCEL ORDER (INVALID IF STARTING NEW GROUP) 
END OF JOB (INVALID IF NOT STARTING GROUP) 



0010 



IQPD 



3 40 



0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 



WK 


NS 


11 


1 


CC 




NS 


12 


I 


CS 




NS 


13 


1 


CI 


CMAST 


NS 
NS 


10 
90 


1 


C 


INV 


NS 


91 







2 7 CUSTNO 
2 207 CRECD 



7 ITEMNO 
1200TY 



1 206 CRECD 



1 

7 
12 
17 
24 



6 ITEMNO 
1100NHAND 
160PENDNG 
232PRICE 
45 DESC 
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0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 



TRANS 
CRECD 

AAAAA 



NS 92 
DS 

DS 



3 CH 



4 CE 



5 CA 



OS 



9 110LSTGRP 

1 6 CUSTNO 

7 106 CUSTAD 

107 206 SHIPAD 



1 


8 KEY 


1 


2 WSID 


3 


50GR0UP2 


6 


6 CODE 


7 


80SEQ2 


9 


128 I3PD 


129 


1300X 


131 


1320SLN 


133 


1412T0TAL 


I 


40 IQPDOO 


1 


6 ITEMNO 


7 


110QTY 



The data structures KEYHLD and IQPDOO from sample 
program ORD are now included in the data structure 
AAAAA, which is saved for each display station. The index 
(field X) for the array IQPD, the starting line number 
(field SLN) and total fields are also included in the data 
structure AAAAA. 
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0048 
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182PRICE 
40 DESC 



0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 

0063 
0064 
0065 
0066 
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0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
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0078 
0079 

0080 
0081 
0082 
0083 



C 

C 

C 

C 

C 

C 

C 

COR 
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C 

C 

C 

C 

C 

C* 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 
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99 

KA 

KB 

KC 

KA 

KB 

KC 

11 

98 

11N98 

13 



90 



11 KA 

11 K3 

12 KA 

12 KC 

13 KC 



CUSTNO 

GROUPS 

END 

NEW 

KEY 



CMDKEY 



ENDORD 



EXSR NEW 
EXSR CMDKEY 
GOTO END 
EXSR ENDORD 
EXSR CANCEL 
EXSR ENDJOB 



GOTO END 
CHAINCMAST 
SETON 
ADD 1 
EXSR ITEMS 
TAG 

BEGSR 

MOVE •HEADER 1 

CHAINTRANS 

EXCPT 

SETON 

Z-ADDLSTGRP 

EXSR RESET 

ENDSR 

BEGSR 

SETOF 

SETOF 

SETON 

SETON 

SETON 

SETON 

SETON 

ENDSR 

BEGSR 
EXSR SAVE 
EXSR RESET 
ENDSR 



GROUPS 



KEY 



GROUPi 



98 
99 



90 
01 



CREATE HEADER 
SET NOT 1ST 
SET GROUPS 
START NEW GROUP 



CHECK VALIDITY 
969798RESET 
99 ERRORS 
9996 ^INVALID 
9996 * COMMAND 
9996 * KEY 
9996 * ENTERED 
9996 * 
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c* 
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ITEMS 
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ITEMNO 


CHAININV 






97 
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c 


97 




GOTO ITMEND 
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X 
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X 


20 




0101 


c 






MOVE IQPDOO 


IQPDtX 






0102 


c 




X 


COMP 3 






15 


0103 


c 


15 




EXSR SAVE 








0104 


c 




SLN 


AOD 1 


SLN 






0105 


c 




SLN 


COMP 20 






90 


0106 


c 


90 




Z-ADD8 


SLN 






0107 


c 




PENDNG 


ADD QTY 


PENDNG 






0108 
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PRICE 


MULT QTY 


AMOUNT 


82 




0109 
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AMOUNT 


ADD TOTAL 


TOTAL 
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ITMEND 


TAG 
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c 
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SETON 






99 


0112 


c 

c* 

c 






ENDSR 
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SAVE 
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X 


COMP 






15 


0115 


c 


N15 




GOTO SAVE99 
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EXCPT 
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Z-ADDO 


X 
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SETOF 






15 


0119 
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SEQ0 
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SEQtf 






0120 


c 
c* 




SAVE99 


ENDSR 








0121 
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c 




RESET 
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SETON 
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0123 
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SETOF 






111213 


0124 
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Z-ADD7 


SLN 






0125 
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Z-ADD1 
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ENDSR 








0128 


OWK 
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10N99 
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K5 »ZCNUM» 




0130 
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K5 •ZSHIP* 




0132 









CRECD 
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13N99 
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K8 »SHOWITEM f 
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0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
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0151 
0152 
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OTRANS 
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OINV 
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OR 
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DADO 



DADD 
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DADD 
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12N99 
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99 

96 
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97 13 

N01 90 



ITEMNO 
QTY L 
DESC 
PRICE J 
AMOUNTJ 



TOTAL J 



6 
12 
34 
44 
55 

K8 •ZITEMHED* 



K5 *ZITEM« 
13 

K6 'ZERROR* 
15 'INVALID CMD KEY' 
18 'CUSTOMER NOT FOUND» 
14 »ITEM NOT FOUND' 





KEY 
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•000 


L2N99 










KEY 


8 








8 
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14 






CUSTAD 
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8 
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SHIPAO 


128 
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8 






IQPD B 
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KAN99 
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8 
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TOTAL B 
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KCN99 










GPHOLD 
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KBN15 










KEY 
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8 


•000 


13N99 










PENDNG 


16 





INDICATORS USED 

HI KA KB KC 01 10 11 12 13 15 90 91 92 96 97 98 99 

RPG-0305 INDICATORS UNREFERENCED 
HI 91 92 



EXECUTION TIME TABLES AND ARRAYS 

STMTS TABLE/ DEC ENTRY NUMBER OF DTT 

DEFINED ARRAY POS LENGTH ENTRIES DISP 

0010 IQPD 040 00003 0100 



T/A 

DISP 

0205 
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FIELD NAMES 


USED 








STMTS NAME 


DEC 


LNG 


DISP 




0029 CRECD 




0206 


0108 




0030 CUSTNO 




0006 


0100 




0031 CUSTAD 
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0171 




003Z SHIPAD 




0100 


01D5 




0033 AAAAA 




0141 


0106 




0034 KEY 




0008 


01DD 




0035 WSID 




0002 


01D7 




00 36 GROUP» 





0003 


01 DA 




0037 CODE 
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01DB 




0038 SEQtf 





0002 


01DD 




0040 X 





0002 


02 57 




0041 SLN 





0002 


0259 




0042 TOTAL 


2 


0009 


0262 




0044 IQPDOO 




0040 


028A 




0045 ITEMNO 




0006 


0268 




0046 QTY 





0005 


026D 




0047 PRICE 
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0007 


0274 




0048 DESC 




0022 


028A 




0024 PENDNG 
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028F 




0028 LSTGRP 
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0292 




0090 GPHOLD 
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0295 




0108 AMOUNT 
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STMTS NAME 


TYPE 






0062 END 
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0063 NEW 
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0071 CMDKEY 
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0080 ENDORD 
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0089 ENDJOB 
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0097 ITEMS 
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0110 ITMEND 
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OH3 SAVE 
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0120 SAVE99 


ENDSR 






0121 RESET 
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1 STORAGE USAGE OF RPG II CODE 


START NAME IF 


CODE 


NAME 


TITLE 


ADDR OVERLAY 


LENGTH 
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12CF 


RGROOT 


ROOT 


1341 




00B1 


RGMAIN 


INPUT MAINLINE 


13F2 




006D 


RGSUBS 


RECORD IDENTIFICATION 


145F 




0026 


RGSUBS 


CONTROL FIELDS 


12CF 




006A 


RGSUBS 


INPUT CONTROL ROUTINE 


1339 




0008 


RGSUBS 


INPUT HOOK 


1485 




0737 


3PGTI 


WORK STATION INPUT PROCESSING 


1BBC 




0055 


RGMAIN 


INPUT FIELDS 


1C90 




00A2 


RGMAIN 


DETAIL CALCULATIONS 


1C80 




0010 


RGSUBS 


CONSTANTS 


1C11 




004B 
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OUTPUT CONTROL ROUTINE 


1C5C 




0008 


RGSUBS 
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23 36 
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1F01 
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005D 
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CHAIN CODE 
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OOCD 


RGSUBS 
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SUBSEG 
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RGSUBS 


INPUT HOOK 


1C74 
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RGSUBS 


OUTPUT HOOK 


1F50 




004A 


RGSUBS 


SUBSEG 
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0010 


RGSUBS 


SUBSEG 


20CF 




0037 


RGSUBS 


SUBSEG 


2289 




0043 


3PGRI 


RESET RESULTING INDICATOR 


1FAA 




0014 


RGSUBS 


SUBSEG 


1FBE 




004F 


RGSUBS 


SUBSEG 
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OOAE 


3PGTR 


WORK STATION DEALLOCATION (RED 


200D 




00C2 


RGSUBS 


SUBSEG 


1E4A 
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RGSUBS 


CHAIN CODE 
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RGSUBS 


INPUT HOOK 


21E0 




00A9 


3PGAA 


TAG (FETCH) 
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006A 
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MULTIPLY 


1DFF 




004B 


RGSUBS 


CHAIN CODE 


23B7 




01BI 


RGMAIN 


DETAIL OUTPUT 


235A 
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RGSUBS 


CONSTANTS 


234E 




OOOC 


RGSUBS 


OUTPUT HOOK 


2342 
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RGSUBS 


OUTPUT HOOK 


2568 
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aPGTO 


WORK STATION OUTPUT PROCESSING 
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RGMAIN 


LR C OVERFLOW PROCESSING 
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WORK STATION SCAN SUBROUTINE 
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CLOSE MAINLINE 
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SOURCE 
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LOAD ME 
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Chapter 20. Ideographic Support 



RPG II provides ideographic support when used with the 
ideographic version of the SSP and the ideographic 
hardware devices that version supports. Display stations 
with ideographic capability are supported by the 
WORKSTN file only. 

Ideographic support allows the RPG II compiler to 
process IBM-supplied or user-defined ideographic 
character sets. Very little error checking is performed on 
ideographic data. Basically, the fact that data is 
ideographic is transparent to the RPG II compiler. You 
must ensure that the ideographic data is processed 
properly by your program. 

Ideographic characters can be present in literals, 
constants, fields, tables, and arrays. The transparent 
literal option has been added to the control 
specifications (column 57) to signal to the compiler that 
transparent literals or constants can be present in the 
program. (For more information on the transparent literal 
option, see Column 57 (Transparent Literal) in Chapter 
3.) A field, table, or array containing ideographic data is 
considered to contain alphameric data by the RPG II 
compiler. No error checking has been added for 
ideographic data in fields, tables, or arrays. 

Ideographic data has a 2-byte representation, rather 
than a 1-byte representation as in the EBCDIC character 
set. This can cause the RPG operation codes that 
process data 1 byte at a time (COMP, MOVE, and so 
on) to produce incorrect results. In addition, ideographic 
data is enclosed by the shift-out (S/O) control character 
(hex 0E) and the shift-in (S/l) control character (hex OF). 
These control characters must be taken into 
consideration when an operation that processes 
ideographic data is performed. (For more information - 
on considerations that apply to processing ideographic 
data, see Processing Considerations in this chapter.) 



SPECIFYING IDEOGRAPHIC DATA 



Ideographic Constants 

Ideographic characters can be specified in the constant 
or edit word section of the output specifications 
(columns 45 through 70). Ideographic constants must 
begin with an apostrophe immediately followed by the 
S/O control character. Ideographic constants must end 
with the S/l control character immediately followed by 
the terminating apostrophe. 

Note: When ideographic constants are processed by 
RPG, the S/O and S/l control characters are considered 
to be part of the constant data. When the constant is 
displayed or printed on an ideographic device, these 
control characters appear as blanks. 

When an ideographic constant is used, the transparent 
literal option must be specified on the control 
specifications. When this option is specified, the 
compiler checks for constants (and literals) that begin 
with an apostrophe followed by the S/O control 
character. If a constant is found that begins with an 
apostrophe followed by the S/O control character, the 
compiler checks to see if the constant is a valid 
transparent constant. A constant is not a valid 
transparent constant if: 

• A second S/O control character is found before the 
S/l control character. 

• An odd number of 1-byte characters are found 
between the S/O and S/l control characters. 

• The S/l control character is not immediately followed 
by the terminating apostrophe. 

If a constant is determined to be an invalid transparent 
constant, it is rechecked to see if it is a valid alphameric 
constant. If the constant is a valid transparent constant, 
it is not checked for embedded apostrophes. 
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Any ideographic character can be entered in an 
ideographic constant. Each ideographic character has a 
2-byte hex representation. (An ideographic blank also 
occupies 2 bytes.) Because each character occupies 2 
bytes in storage, ideographic constants can only be from 
1 to 1 1 characters long (this also allows for the control 
characters). 



Nofe: An ideographic constant can be composed only of 
ideographic data. Mixing ideographic and EBCDIC data 
in the same constant causes the constant to be checked 
as alphameric. 



Ideographic Literals 

Ideographic characters can be specified as a literal in 
factor 1 or factor 2 of the calculation specifications. 
Ideographic literals must begin with an apostrophe 
immediately followed by the S/O control character. 
Ideographic literals must end with the S/l control 
character immediately followed by the terminating 
apostrophe. 

Note: When ideographic data is processed by RPG, the 
S/O and S/l control characters are considered to be 
part of the literal data. When the literal is used by an 
RPG operation, these control characters are processed 
along with the rest of the literal. If you do not allow for 
the control characters, the operation can produce 
incorrect results. For example, if you are moving an 
ideographic literal to a field, you must allow two 
positions in the field for the control characters. 

When an ideographic literal is used, the transparent 
literal option must be specified on the control 
specifications. When' this option is specified, the 
compiler checks for literals (and constants) that begin 
with an apostrophe followed by the S/O control 
character. If a literal is found that does start with an 
apostrophe followed by the S/O control character, the 
compiler checks to see if the literal is a valid transparent 
literal. A literal is not a valid transparent literal if: 

• A second S/O control character is found before the 
S/l control character. 

• An odd number of 1-byte characters are found 
between the S/O and S/l control characters. 

• The S/l control character is not immediately followed 
by the terminating apostrophe. 



If a literal is determined to be an invalid transparent 
literal, it is rechecked to see if it is a valid alphameric 
literal. If the literal is a valid transparent literal, it is not 
checked for embedded apostrophes. 

Any ideographic character can be entered in an 
ideographic literal. Each ideographic character has a 
2-byte hex representation. (An ideographic blank also 
occupies 2 bytes.) Because each character occupies 2 
bytes in storage, an ideographic literal can only be from 
1 to 3 characters long (this also allows for the control 
characters). 

Note: An ideographic literal can be composed only of 
ideographic data. Mixing ideographic and EBCDIC data 
in the same literal causes the literal to be checked as 
alphameric. 



Ideographic Fields, Tables, and Arrays 

Ideographic characters can be present in fields, tables, 
and arrays. The RPG compiler does not recognize these 
characters as ideographic. The compiler treats 
ideographic characters as alphameric. Ideographic fields, 
tables, and arrays must therefore conform to the rules 
for alphameric fields, tables, and arrays. 

When ideographic data is present in a field, table, or 
array, the data must be enclosed in the S/O and S/l 
control characters. These control characters are 
considered to be part of the field, table element, or 
array element/Therefore, when the length of the field, 
table element, or array element is defined, space must 
be left for the control characters. For example, if you 
want to define a field so that it can contain four 
ideographic characters, you must specify a field length 
of 10 (two positions for each ideographic character, and 
one position for each control character). If you do not 
specify a large enough length, the field, table element, 
or array element is truncated, causing one of the control 
characters to be lost. 
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You must also consider the control characters when the 
field, table element, or array element is processed. For 
example, if a field is being printed or displayed on an 
ideographic device, the control characters appear as 
blanks. If blank after (column 39 of the output 
specifications contains a B) is specified for a field, the 
control characters are also blanked out and must be 
reconstructed if the field is to still contain ideographic 
data. 

Note: When a field, table, or array contains ideographic 
data, it should contain only ideographic data. Mixing 
ideographic and EBCDIC data in the same field, table, or 
array can cause incorrect results. 



Ideographic Comments 

Ideographic characters can be entered as comments in 
source statements. The source statements that allow 
comments are the extension specifications (columns 58 
through 74) and the calculation specifications (columns 
60 through 74). Ideographic characters can also be 
specified on a comment line (column 7 contains an 
asterisk). 



PROCESSING CONSIDERATIONS 

Ideographic data can produce incorrect results when 
used with certain RPG operation codes. Since 
ideographic data has a 2-byte hex representation, 
operations that compare data byte by byte are not 
meaningful unless they check for an equal condition. 
Care must also be taken when ideographic data is 
moved. If the lengths of the data being moved and the 
area that the data is being moved to are not correctly 
specified, the S/O or S/l control characters can be lost. 

A number of RPG operations and functions operate by 
comparing data 1 byte at a time. The COMP and 
LOKUP operations compare for high, low, and equal 
conditions. These operations compare the 1-byte 
EBCDIC values that correspond to the data that is 
present and produce a result based on the standard 
1-byte collating sequence. Because of this, the only 
valid test when ideographic data is being processed is 
for an equal condition. If all the bytes in a field are 
equal to all the bytes in another field, the fields are 
equal whether they contain ideographic or EBCDIC data. 



Match fields and sequence checking are also invalid for 
ideographic data. Match fields cause data from different 
records to be compared, 1 byte at a time. This 
produces incorrect results for ideographic data. 
Sequence checking compares data in different fields to 
see if the fields are in ascending or descending order. 
This comparison is done 1 byte at a time and therefore 
produces incorrect results for ideographic data. 

The SETLL operation is another 1-byte comparison 
operation that cannot be used with ideographic data. 
This operation causes the key of each record to be 
compared with a lower limit value. If the key of the 
record is higher than the lower limit, the record is 
selected for processing. As this comparison is carried 
out using 1-byte EBCDIC values, the SETLL operation 
can produce incorrect results when used with 
ideographic data. 

RPG allows you to define an alternate collating 
sequence for EBCDIC data. In other words, you can 
redefine the order in which 1-byte segments of data will 
be sorted. This is meaningless for ideographic data. 

Care must be taken when the various move operations 
(MOVE, MOVEA, MOVEL) are used with ideographic 
data. The length of the field, table element, or array 
element that the ideographic data is being moved to 
must be defined as being exactly the same length as the 
literal, field, table element, or array element being 
moved. If the lengths are not the same, the data will 
not be recognized as ideographic. For example, if the 
field that the data is being moved to is shorter than the 
length of the ideographic data, the data is truncated, 
causing one of the control characters to be lost. If the 
field that the data is being moved to is longer than the 
ideographic data, one of the control characters will be 
embedded in the field. This causes the control character 
to be considered part of the data. 
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MOVE IDEOGRAPHIC DATA WITH DELETION OF 
CONTROL CHARACTERS (SUBR40) 

SUBR40 is a move and edit routine that moves the 
contents of one field to another field. If the S/O and 
S/l control characters are found as the first and last 
characters in the field, SUBR40 deletes them. 

SUBR40 is called as shown in Figure 20-1. 

If you want the receiving field to contain all the data 
that was present in the sending field, you must specify 
a length for the receiving field that is two positions less 
than the length of the sending field. This allows two 
positions for each ideographic character (or one for each 
EBCDIC character) while deleting the 5/0 and S/l 
control characters (and the two positions they occupied). 
If you specify a receiving field longer than the sending 
field minus two positions, all the data from the sending 
field is moved and the receiving field is padded on the 
right with blanks (1-byte EBCDIC blanks). If the 
receiving field is shorter than the sending field minus 
two positions, the data being moved is truncated on the 
right. 



Five RLABL fields must be specified when SUBR40 is 
called. The first two specify the sending and receiving 
fields for the move. The third field is where the return 
codes are written to indicate the status of the move 
operation. The fourth and fifth fields must be loaded 
with the lengths of the sending and receiving fields. 
These are the lengths of the fields specified on the first 
two RLABLs for the call to SUBR40 (in Figure 20-1, you 
would need to load the lengths of EMPNO and 
SOCSEC). The return code field must be defined as a 
one-position alphameric field; the length fields must be 
defined as three-position numeric fields with zero 
decimal positions. 

SUBR40 produces return codes to indicate the status of 
the move operation. The following list contains these 
return codes and their meanings: 



Return 
Code 


1 
2 
3 



Explanation 

Move executed; no errors. 
Move executed; padding occurred. 
Move executed; truncation occurred. 
Move executed; S/O and S/l 
control characters were not found. 
Move not executed. Either an odd 
field length was found, a length of 
zero was found, the length was 
greater than 256, or an invalid 
character was found in the field 
length. 



If more than one return code can be issued, only the 
highest return code is returned. 
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Figure 20-1. Calling SUBR40 
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MOVE IDEOGRAPHIC DATA WITH ADDITION OF 
CONTROL CHARACTERS (SUBR41) 

SUBR41 is a move and edit routine that moves the 
contents of one field into another field. If the S/O and 
S/l control characters are not found in the first and last 
positions of the field, SUBR41 adds them to the field 
when it is moved. 

SUBR41 is called as shown in Figure 20-2. 

If you want the receiving field to contain all the data 
that is in the sending field, you must specify the length 
of the receiving field to be two positions longer than the 
length of the sending field (to hold the S/O and S/l 
control characters). If you specify a receiving field that 
is longer than the sending field plus two, the data is 
padded on the right when it is moved into the receiving 
field. If the receiving field is shorter than the sending 
field plus two, the data is truncated on the right when it 
is moved. If the receiving field is specified either longer 
or shorter than the sending field plus two positions, the 
S/l control character is still placed in the correct 
position (the rightmost position). 



Five RLABL fields must be specified when SUBR41 is 
called. The first two specify the sending and receiving 
fields for the move. The third field is where the return 
codes are written to indicate the status of the move 
operation. The fourth and fifth fields must be loaded 
with the lengths of the sending and receiving fields. 
These are the lengths of the fields specified on the first 
two RLABLs for the call to SUBR41 (in Figure 20-2, you 
would need to load the lengths of SOCSEC and 
EMPNO). The return code field must be defined as a 
one-position alphameric field; the length fields must be 
defined as three- position numeric fields with zero 
decimal positions. 

SUBR41 produces return codes to indicate the status of 
the move. The following list contains these return codes 
and their meanings: 



Return 
Code 


1 

2 

3 

4 



Explanation 

Move executed; no errors. 

Move executed; padding occurred to 

left of S/l control character. 

Move executed; data truncated to 

left of S/l control character. 

Move executed; S/O and S/l 

already present. 

Move not executed. Either odd field 

length found, length of zero found, 

length greater than 256, or invalid 

character found in field length. 



If more than one return code can be issued, only the 
highest return code is issued. 
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IDEOGRAPHIC DEVICE SUPPORT 

Three new keywords have been added to the INFDS for 
ideographic devices. For more information on these 
keywords, see Specifications for the INFDS Data 
Structure in Chapter 13. 



MESSAGES 

The RPG displayed messages (both compile time and 
execution time) are displayed in either the standard 
character set or an ideographic character set. The 
messages are displayed in an ideographic character set 
if ideographic support was requested when the user 
signed on. 

The RPG compiler messages are printed in either the 
standard character set or an ideographic character set. 
The messages are printed in an ideographic character 
set if ideographic support was requested when the usor 
signed on. 



20-6 Ideographic Support 



CONTROL SPECIFICATIONS 



Appendix A. Summary Charts 



Columns 



Name 



Entry 



Explanation 



1-2 

3-5 

6 
7 

7-9 
10 

11 

12-14 
12 

13-14 



15 

16-17 
18 



19 



Page 
Line 
Form type 

Size to compile 
Object output 



Listing 
options 



Size to execute 



Debug 



Currency 
Symbol 



Date format 
(UDATE) 



Page 
number 

Line 
number 

H 



Blank 

Blank 
D 



Blank 
1 

Blank 



Entry used to assign a page number to each specification sheet. 

Entry used to number the specification line. 

Identification for the control (or header) specification. 
Asterisk in this column identifies this line as a comment line. 



Blank entry causes the system to halt for terminal errors only. 
D entry causes the system to halt for both warning messages and 
severe errors. 



Blank Program listing is produced. 

B No program listing is produced. 

P Partial program listing is produced. 



Blank or Entry in columns 13 and 14 determines the size to execute. 

Q, H, T Entry in columns 13 and 14 is rounded up to next even number. 

Blank Main storage available for object program execution defaults to 

region size specified. 
02-64 Enter the main storage available in a multiple of 2K bytes 

(K = 1,024). If entry is odd number, it is rounded up to next 

even number. 



DEBUG operation is not used. 
DEBUG operation is used. 



Any character The currency symbol used in edit words and with edit 
except *, 0, codes. Blank entry defaults to $. 
&, ., - C, R, 
or ,. 

Blank or M Month/day /year format. If column 19 is blank and column 21 
contains a D, I, or J, the day /month/year (ddmmyy) format 
is used instead of the month/day/year (mmddyy) format. 

D Day/month/year (ddmmyy). 

Y Year/month/day (yymmdd). 

Control Specifications A-1 



CONTROL SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



20 



Date edit (Y edit code) Blank 



21 



Inverted print 



& 

Any other 

character 

Blank 
D 
I 
J 



A blank entry defaults to slash (/) if column 19 contains an M, 
or if column 21 contains a D or blank and column 19 is blank. 
A blank entry defaults to period (.) if column 19 contains D or 
Y, or if column 21 contains I or J and column 19 is blank. 
A blank separates the date field. 
Character entered separates the edited date field. 



Numeric fields use decimal point (.). Date format is mmddyy 

if column 19 is blank. 

Numeric fields use decimal point (.). Date format is ddmmyy 

if column 19 is blank. 

Numeric fields use decimal comma (,). Date format is ddmmyy 

if column 19 is blank. 

Numeric fields use decimal comma (,) and leading zero remains 

for zero balance. Date format is ddmmyy if column 19 is blank. 



22-25 








Blank 


26 


Alternate 
sequence 


collati 


ing 


Blank 
S 


27-36 








Blank 


37 


Inquiry 






Blank or I 
B 



Normal collating sequence is used. 
Alternate collating sequence is used. 



Program, when interrupted, will not allow the operator to enter 
new procedures or commands. 

Program, when interrupted, will allow the operator to enter new 
procedures or commands. 



(For an explanation of inquiry, see Column 37 (Inquiry) in 
Chapter 2.) 



38-40 
41 



Blank 

1 P forms positions Blank 

1 



First line is printed only once. 

First line can be printed repeatedly to allow operator to position 

forms. 



42 




Blank 


43 


File translation 


Blank 
F 


44 




Blank 


45 


Nonprint characters 


Blank 
1 



No file translation is needed. 

Input, output, update, or combined files are translated. 



Program halts if unprintable character was in last line printed. 
Program does not halt for unprintable characters. 
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CONTROL SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



46-47 




Blank 


48 


Shared I/O 


Blank 
1 


49-51 




Blank 


52-53 


Number of 
formats 


Blank 
0-32 


54-56 


Blank 




57 


Transparent 
literal 


Blank 
1 


58-74 


Blank 




75-80 


Program 
identification 





All disk files use a separate input/output area. 
All disk files share a single input/output area. 



An entry of 32 is assumed. 

Entry specifies number of formats in display screen format load 

member for WORKSTN file. 



No transparent literals or constants are present in this program. 
Transparent literals or constants can be present in this program. 



Entry used to assign a unique name to the program and to name the 
display screen format load member used by the CONSOLE or 
WORKSTN file. 
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FILE DESCRIPTION SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 


Page 


Page num 


3-5 


Line 


Line num 


6 


Form type 


F 


7 




* 


7-14 


Filename 


Filename 



Page numbers Entry used to assign a page number to each specification sheet. 
Line number Entry used to number the specification lines. 

Identification for a file description specification. 

Asterisk in this column identifies this line as a comment line. 



Each file requires a unique name. The filename can be from 1 to 8 
characters long, must begin in column 7, and must be a valid 
RPG II name. 



15 



File type 



16 



17 



18 



File 



End of file 



Sequence 



19 



File format 



I Input 

Output 

U Update 

C Combined (SPECIAL or WORKSTN device only) 

Blank Blank for all output files except chained output files 

P Primary 

S Secondary 

C Chained 

R Record address 

T Table or array 

D Demand 

Blank The program can end whether or not all records from this file 

are processed. This column must be blank for a WORKSTN or 

E KEYBORD file. All records from the file must be processed before 

the program ends. An E can be specified here only if column 15 
contains I or U, and column 16 contains a P, S, or R. 

Note: If column 17 is blank or contains E for all files, all records 
from every file must be processed before the program can end. 

Blank No sequence checking is to be done. This column must be blank 

for a WORKSTN file. 
A Sequence checking is done. Records are in ascending sequence. 

D Sequence checking is done. Records are in descending sequence. 

Note: Sequence checking is required when match fields are 
used. Column 18 applies only to primary and secondary files. 

F or blank Fixed-length record format. 



A-4 Summary Charts 



FILE DESCRIPTION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



20-23 



Block length 



Blank These columns must be blank for a WORKSTN file and can be 

left blank for any other file. 

1-9999 Disk (record length or multiple of record length) 

2-1518 CONSOLE (if specified, must equal record length) 

1-79 KEYBORD 

1-132 Printer 

1-79 CRT 

1-9999 SPECIAL (record length or greater than record length) 

1-4075 BSCA (record length or multiple of record length) 



24-27 



Record length 



1-4096 

2-1518 

1-79 

1-132 

1-79 

1-4096 

1-4075 

1-9999 



Disk 

CONSOLE 

KEYBORD 

Printer 

CRT 

SPECIAL 

BSCA 

WORKSTN 



28 



Mode of processing Blank 



Sequential by key 
Consecutive 



Note: Columns 28 through 32 must be blank for nondisk files. 



Sequential within limits 

Random by relative record number 

Random by key 

By addrout file 

Direct file load (random load) 



29-30 



Length of key field 1-8 
or record address field 1-29 



Length of record keys in packed format (for indexed files) 
Length of record keys in unpacked format (for indexed files 
and record address files) 
Length of relative record number in addrout file 



Note: These columns must be blank for nondisk files. 



31 



Record address type 



Blank Sequential or direct file 

P Indexed file with packed keys 

A Indexed file with alphameric keys 

I Addrout file or processed by addrout file 



Note: Column 31 applies to disk files specified as input, 
update, or chained output files 
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FILE DESCRIPTION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



32 



33-34 



35-38 



39 



File organization or 
additional I/O area 


Blank 
1 

T 
1-9 


Overflow indicator 


Blank 
OA-OG, OV 


Key field starting 
location 


1-4096 


Extension code 


Blank 
E 



Sequential or direct file; one input/output area for the file 

Indexed file 

Addrout file 

Sequential or direct file; two input/output areas for the file 

No overflow indicator used 

Overflow indicator used to condition records in printer files 

For indexed files, enter the beginning position of the key 
field in the record. This entry must end in column 38. 

No file-related line counter or extension specifications are used. 
Table file, array file, or record address file is further described 
by extension specifications. 
Printer file is further described by line counter specifications. 



40-46 



Device 



DISK Disk 

KEYBORD Display screen — keyboard (display station) 

PRINTER 132-position printer 

CONSOLE Display screen — keyboard (display station) 

CRT Display screen 

SPECIAL Used for devices not supported directly by RPG II 

BSCA Binary synchronous communications adapter 

WORKSTN Display screen — keyboard (display station) 



47-52 

53 

54-59 



Blank 



Name of label exit 



Continuation line 
option for SPECIAL 
device 



K Continuation line specified 

Blank No SPECIAL device used. 

SUBRxx Name of the user-written subroutine that performs the input/output 

operation for a SPECIAL device (x = any alphabetic character). 

SRyzzz Name of the IBM-written subroutine (5-character name in 

library is @yzzz) that performs the input/output operation for a 
device supported by SPECIAL (y = any of the following: 
B, C, D, F, G, H, I, L, M, O, P, R, S, T, or U; z = any of the 
following: A, B, C, D, F, G, H, I, L, M, O, P, R, S, T, or U). 

Array name Name of array to be used by user-written subroutine. 
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FILE DESCRIPTION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



54-59 
(continued) 



Continuation line 
options for WORKSTN 
device 



NUM 
SAVDS 

IND 
SLN 

ID 

INFSR 
INFDS 



For WORKSTN options if multiple display stations are attached . 
to a WORKSTN file or if the file information data structure 
(INFDS) or the exception/error processing subroutine (INFSR) 
is specified. 

Specify the maximum number of display stations that can be on this 

file in columns 60 through 65. If not specified, 1 is assumed. 

Enter the name of a data structure in columns 60 through 65 that 

is to be saved and restored for each display station in this file. 

If not specified, no swapping is done. 

Specify the number of indicators (beginning with 01) to be swapped 

by display station. If not specified, no swapping is done. 

In columns 60 through 65, specify the name of a two-digit numeric 

field whose value determines the first line on the display screen 

where the display format is to begin if variable starting line number 

was specified in the format. 

In columns 60 through 65, enter the name of a 2-character 

alphameric field that contains the ID of the display station currently 

being processed in this field. 

Enter the name of the user-written subroutine that may receive 
control when WORKSTN exception/error conditions occur. 

Enter the name of the data structure that contains file related 
information when exception/error conditions occur during 
WORKSTN operations or when the display screen size is 
to be posted. 



FMTS Enter *NONE in conjunction with FMTS if there are only SSP-ICF 

formats present in the program. Otherwise, enter a name to be used 
as the display screen format load member name. If a name is not 
entered on the FMTS continuation line option, the compiler assumes 
the display screen format load member name is the program name 
(from columns 75 through 80 of the control specifications) with 
FM added to the end of the name. 



Continuation line 
options for DISK 
device 



RECNO In columns 60 through 65, enter the name of a seven- 

position, numeric field with zero decimal positions. This 
field contains the relative record number of a record to be 
added to a sequential or direct file processed randomly. 
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FILE DESCRIPTION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



60-65 



66 



Storage index 


Blank 




6-9999 


File addition/ 


A 


unordered load 


U 



No storage index is kept in storage. 
Number of bytes reserved for storage index. 

New records will be added to the file. 

Records are to be loaded into an indexed file in unordered 

sequence. 

Note: This column applies to sequential and indexed disk files. 



67-70 
71-72 



File condition 



Blank 

Blank 
U1-U8 



An external indicator does not condition the file. 
Specified external indicator conditions the file. 

Note: These columns apply to output files, primary and 
secondary input files, and update files. A record address file 
can be conditioned by an external indicator if its associated 
primary or secondary file is conditioned either by the same 
indicator or by no indicator. 



73-74 
75-80 



Blank 



Program identification 



This space is available for comments. 
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EXTENSION SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 


Page 


Page num 


3-5 


Line 


Line num 


6 


Form type 


E 


7 




* 


7-10 




Blank 


11-18 


From filename 


Blank 
Filename 



19-26 



27-32 



33-35 



To filename 



Table or array name 



Number of entries 
per record 



Page number Entry used to assign a page number to each specification sheet. 
Line number Entry used to number the specification lines. 

Identification for an extension specification. 

Asterisk in this column identifies this line as a comment line. 



Table or array load at compilation time if columns 33 
through 35 contain an entry. Array is loaded at execution 
time if columns 33 through 35 are blank. 

Name of the table or array input file loaded at preexecution time 
or name of the record address file defined on the file description 
specifications sheet. Entry must be left-justified. 

Blank if the table or array is not written at end of job. 
Name of the primary or secondary input or update file containing 
the data records to be processed if the file named in columns 
1 1 through 18 is a record address file. Name of the output file to 
which the table or array is written at end of job if the file named 
in columns 1 1 through 18 is a table or array file. 



Table or array Name of a table or array used in the program. If alternating tables 
name or arrays are described, enter the name of the table or array whose 

entry is first on the input record. Entries must be left-justified and 
must be valid RPG 1 1 names. Table names must begin with TAB; 
array names must not begin with TAB. 

Blank These columns must be blank for execution-time arrays. 

1-999 Number of entries on each table or array input record. These 

columns must contain an entry for compile- and preexecution-time 
tables and arrays. Entry must be right-justified. 



Blank 
Filename 



36-39 



Number of entries 
per table or array 



1-9999 Maximum number of entries in the table or arrays; corresponding 

items are considered one entry. Entry must be right-justified. 



40-42 



Length of entry 



1-15 



1-256 



Length of numeric entry. For packed or binary numeric data, 
enter the number of digits required to represent the data in zoned 
decimal format. Entry must be right-justified. 
Length of alphameric entry. 
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EXTENSION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



43 



44 



Packed or binary field Blank 
P 
B 

Decimal positions Blank 

0-9 



Alphameric or zoned decimal numeric data 
Packed numeric data 
Binary numeric data 

Alphameric table or array 

Number of positions to the right of the decimal 



45 



Sequence 



Blank No particular sequence 

A Ascending sequence 

D Descending sequence 

Note: This column describes the sequence of data in a table or 
array. Column 45 must contain an entry if high or low lookup 
is used. 



46-57 



58-74 


Comments 


75-80 


Program 




identification 



Description of a second table or array entered in alternating format 
with the table or array named in columns 27 through 32. These 
entries have the same significance as the corresponding entries 
in columns 27 through 45. 

Any helpful information about the specification line. 

This space is available for comments. 
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LINE COUNTER SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 

3-5 

6 

7 

7-14 

15-17 

18-19 
20-22 

23-24 
25-74 
75-80 



Page 
Line 
Form type 

Filename 



Line number- 
number of lines 
per page 

Form length 

Line number- 
overflow line 

Overflow line 



Program 
identification 



Page number Entry used to assign a page number to each specification sheet. 

Line number Entry used to number the specification lines. 

L Identification for the line counter specification. 

* Asterisk in this column identifies this line as a comment line. 

Filename Name of a printer file for which form size and overflow line 

are specified. 



1-112 

FL 
1-112 

OL 
Blank 



Number of lines available for printing on the printer form. 

Identification that the previous entry is the form length. 
Number of the overflow line. 

Identification that the previous entry is the overflow line. 
This space is available for comments. 
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TELECOMMUNICATIONS SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 



Page 



Page 
number 



Entry used to assign a page number to each specifications sheet. 



3-5 



Line 



Line 
number 



Entry used to number the specification lines. 



6 


Form 
type 


T 


7 




* 


7-14 


Filename 


Filename 


15 


Configuration 


P or blank 
M 



16 



Type of station T 



17 



Type of control 



Blank 



Identification for a telecommunications specification. 



Asterisk in this column identifies this line as a comment line. 

Every BSCA file in a program requires a valid filename. The same 
filename must appear on the file description specifications. 

Point-to-point, nonswitched network. 

Multipoint network, where the control station selects the tributary 

station through polling or addressing. System/34 cannot be the 

control station. 

Point-to-point switched network. 

This station transmits messages from the file named in columns 
7 through 14. The file must be designated as an output file by 
file description specifications and must appear on the output 
specifications sheet. 

This station receives messages into the file named in columns 
7 through 14. The file must be designated as an input file by 
file description specifications and must appear on the input 
specifications sheet. 

Tributary station on a multipoint network. System/34 cannot 

be the control station and transmit the polling supervisory sequence. 

Column 17 must contain a T if column 15 contains an M (multipoint 

network). 

Polling is not used. 
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TELECOMMUNICATIONS SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



18 



Type of code 



A or U ASCI I transmission control characters are used. When ASCI I is 

used, the necessary file translation is done for System/34. 
E or blank EBCDIC transmission control characters are used. 



19 



Transparency 



Y EBCDIC transparency is used. The data being transferred may 

contain transmission control characters. Column 18 must be 
E or blank. 

N or blank EBCDIC transparency is not used. Zoned decimal numeric or 
alphameric data is transmitted and received. The data being 
transferred cannot contain transmission control characters. 



20 



Switched 



Blank Not a switched network. 

M Operator using this program makes the connection by dialing the 

number (manual dial). 
A This program uses autoanswer. 

B This program uses manual answer. 



21-31 


Blank 




32 


Location of 
identification — 
this station 


Blank 

S 

E 


33-39 


Identification — 
this station 


Alphameric 
characters 



Nonswitched network or a switched network where no ID is desired 
for this station. 

Switched network. This station's identification is at the position 
specified by the symbolic name in columns 33 through 39. 
Switched network. The entry in columns 33 through 39 is this 
station's identification. 

When column 32 contains an E, this entry is the actual identification 
sequence of this station (from 2 to 15 characters). The station 
identification must not contain a control character sequence. When 
column 32 contains an S, this entry is the symbolic name of the 
location of this station's identification. The symbolic name must 
not be an array name. If the BSCA file is primary or secondary, 
this symbolic name must refer to the first element of a table. 
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TELECOMMUNICATIONS SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



40 



Location of Blank -Nonswitched network or a switched network where no ID is desired 

identification — for the remote station. 

remote station S Switched network. The remote station's identification isat the 

position specified by the symbolic name in columns 41 through 47. 
E Switched network. The entry in columns 41 through 47 is the 

remote station's identification. 



41-47 



Identification — Alphameric When column 40 contains an E, this entry is the actual identification 

remote station characters sequence of the remote station (from 2 to 15 characters). A station 

identification must not contain a control character sequence. When 
column 32 contains an S, this entry is the symbolic name of the 
location or the remote station's identification. This symbolic name 
must not be an array name. If the BSCA file is a primary or 
secondary file, this symbolic name must refer to the first element 
of a table. 



48-51 
52 



ITB 



Blank 



Blank 



ITB is not used. 

Intermediate block check (ITB) is used. ITB can be used only if 

records are blocked. 



53-54 



Note: Both ITB and EBCDIC transparency cannot be specified 
for a BSCA output file. 

Permanent error Blank No permanent error indicator is specified. If a permanent error 

indicator occurs, a system halt occurs. The program cannot be restarted. 

01-99, This indicator can be specified for every BSCA file. If you are using 

L1-L9, more than one BSCA file, each file can have a permanent error 

LR, H1-H9 indicator. The indicator does not have to be unique for each 
file, however. 
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TELECOMMUNICATIONS SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



55-57 



58-59 



60 



Wait time 




Blank 
1-999 


Record avai 


liable 


Blank 


indicator 




01-99, 
L1-L9, 
LR, 
H1-H9 


Last file 




Blank 

L 



System convention for timeout, 180 seconds, is used. 

Length of time in seconds (1 through 999) that BSC waits with 

no messages being sent or received before a permanent error occurs. 

No record available indicator is specified. The file cannot be 
used again. 

This indicator must be assigned to every BSCA file that is to be 
reopened. (If a file is used again after end of file has been reached, 
the file is reopened.) 



This BSCA file cannot be the last input file processed. 
This BSCA file is processed after all other input files are 
processed. 



61-62 



Polling characters 



Blank This station is not transmitting on a multipoint network. 

Alphameric The polling identification of this station is needed if this station 
characters ' s P ar * °f a multipoint network and the BSCA file is a transmit 
(output) file. 



63-64 



Addressing 
characters 



Blank This station is not receiving on a multipoint network. 

Alphameric Addressing identification of this station is needed if this 
characters station is a part of a multipoint network and the BSCA file 
is a receive (input) file. 



Note: Enter polling and addressing characters in System/34 code; 
the compiler converts the characters to the form required by the 
code specified in column 18. (Enter uppercase addressing 
characters, and they are converted to lowercase ASCII characters.] 



65-74 
75-80 



Program 
identification 



Blank 



This space is available for comments. 
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INPUT SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 

3-5 

6 

7 

7-14 

14-16 



Page 
Line 
Form type 

Filename 

AND/OR 



Page number Entry used to assign a page number to each specification sheet. 

Line number Entry used to number the specification lines. 

I Identification for an input specification. 

* Asterisk in this column identifies this line as a comment line. 

Filename Enter a valid RPG II filename for every input, update, and 

combined file your program uses. 
DS name Name of a data structure (maximum of 6 characters). 

AND or OR Enter AND in columns 14 through 16 on the next line of the input 
specifications sheet if more than three record identification 
code subfields are needed to identify the record. Enter OR in 
columns 14 and 15 if either of the codes can be present to identify 
the record. A maximum of 20 AND or OR lines in any combination 
can describe the record identifying code. 

Note: AND lines are not allowed with CONSOLE files. 



15-16 



Sequence 



Alphabetic 



17 



Number 



18 



Option 



Numeric 

Blank 

1 

N 



Blank 



U 



These two alphabetic characters indicate that record type sequence 
is not being checked. Alphabetic characters must be used for 
chained files, demand files (except CONSOLE), WORKSTN file, 
and look-ahead records. Within a file, record types with an 
alphabetic sequence entry must be described before record types 
with a numeric sequence entry. 

This two-digit number assigns a special sequence to record types 
in a file and requests that the record type sequence be checked 
by the program. 

Columns 15 and 16 contain alphabetic characters (record type 

sequence is not being checked). 

Columns 15 and 16 contain numeric characters; only one record 

of this type is present in each sequenced group. 

Columns 15 and 16 contain numeric characters; one or more records 

of this type can be present in the sequenced group. 

Record type must be present. 

Optional; record type may or may not be present. 

Data structure defined in columns 19 and 20 is a display station 

local data area. 

Notes: 

1. Column 18 is used when record types are being sequence checked 
(columns 15 and 16 contain a numeric entry). 

2. Columns 15 through 18 are not used for a data structure except 
to define a display station local data area (U in column 18). 
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INPUT SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



19 and 20 Record identifying 01-99 

indicator 

L1-L9 



LR 
H1-H9 



#* 
DS 



Record identifying indicator. (CONSOLE files can use indicators 

01 through 10 only.) 

Control level indicator used as a record identifying indicator when 

a record type rather than a control field signals the start of a new 

control group. 

Last record indicator. 

Halt indicator used as a record identifying indicator when the system 

checks for a record type that causes an error condition. 

Look-ahead fields (not valid with CONSOLE or WORKSTN files.) 

Data structure, which must be the last entries on the input 

specifications. 



21-41 



Record 

identification 

codes 



Note: Columns 21 through 41 are divided into three identical 
subfields that are described separately: (1) columns 21 through 27, 
(2) columns 28 through 34, and (3) columns 35 through 41. An 
AND relationship exists between these three fields. These columns 
are not used for a data structure. 



21-24,28-31, 
or 35-38 



Position 



Blank No record identification code is needed. 

1-4096 Record position of the record identification code. 



25, 32, or 39 Not (N) 



Blank Either the record identification code is present in the specified 

record position, or no record identification code is needed. 

N Record identification is being used, but this identification code must 

not be present in the specified record position. 



26, 33, or 40 C/Z/D 



Entire character 

Zone portion of character 

Digit portion of character 



27, 34, or 41 Character 



Any alphabetic character, special character, or digit identifying the 
character used in the record as the record identifying code. 



42 
43 



Packed or 
binary field 



Blank 

Blank 

P 

B 



Input field in zoned decimal format 
Input field in packed decimal format 
Input field in binary format 

Note: Column 43 is used for disk files only and is invalid for a 
field in a data structure. 



44-47 


Field location 


Numeric 


and 48-51 




field 


44-50 


Field location 


Reserved 
keyword 



Two 1- to 4-digit numbers to identify the beginning of a field 
(From) and the end of a field (To) in the input record or data 
structure. The entries are identical for a one-position field. 

For the WORKSTN file information data structure (INFDS), specify 
keywords (*OPCODE, *RECORD, *SIZE, *STATUS, *MODE, 
*INP, or *OUT) to define the subfields that are to contain the file 
related information. 
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INPUT SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



52 



Decimal 
position 



Blank Alphameric field. This column must be blank for a data structure. 

0-9 The number of decimal positions in the numeric field named in 

columns 53 through 58. This column must contain an entry for 

numeric fields. 



53-58 



Field name 



Field name 



59-60 



61-62 



Control level Blank 

L1-L9 
Matching fields M1-M9 



Valid RPG 1 1 field name, array name, or array element for each 
field defined in columns 44 through 51. If an array name is 
entered, columns 59 through 64 must be blank. PAGE and 
PAGE1 through PAGE7 are special words. 

Field described is not a control field. These columns must be 
blank for chained files, demand files, WORKSTN files, and data 
structures. Field described on this line is a control field. 

Enter a match value (MTthrough M9) to indicate match fields and 
sequence checking on primary and secondary files with match fields. 
When you have just one input, update, or combined file with match 
fields, this entry causes only sequence checking. Match fields are 
not allowed for demand files, chained files, WORKSTN files, or data 
structures. 



63-64 



65-70 



Field record 


Blank 


relation 


01-99 




L1-L9 




MR 




U1-U8 




H1-H9 


Field indicators 


01-99 




H1-H9 



Must be blank CONSOLE files. 

Record identifying indicator assigned to a record type 

Control level indicator 

Matching record indicator 

External indicator 

Halt indicator 

Field indicator. 

Halt indicator for an error condition in the data. 



Note: An indicator used in these columns is turned on if the 
condition tested for is true. For numeric fields, more than one 
condition may be tested at a time, but only the indicator that 
reflects the result of the test is turned on; the others are turned off. 
If a field is alphameric, an indicator can be specified only in columns 
69 and 70. Field indicators are not valid for a data structure. 



71-74 
75-80 



Blank 



Program identification 



This space is available for comments. 
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CALCULATION SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 

3-5 

6 

7 

7-8 



Page 
Line' 
Form type 

Control level 



9-17 



Indicators 



18-27 



Factor 1 



Page number Entry used to assign a page number to each specification sheet. 

Line number Entry used to number the snecification lines. 

C Identification for a calculation specification. 

* Asterisk in this column identifies this line as a comment line. 

Blank Calculation operation is done.at detail time or is part of a 

subroutine. 
LO Calculation operation is done at total time (always on). 

L1-L9 Calculation operation is done when the appropriate control break 

occurs or an indicator is set on. 
LR Calculation operation is done after the last record is processed or 

after LR has been set on. 
SR Calculation operation is part of a subroutine. Blank entry is also 

valid. 
AN, OR Indicators specified on this list are either in an AND relationship or 

in an OR relationship with indicators on the preceding line. A 

maximum of seven AN, OR, or mixed AN and OR lines is allowed 

to condition an operation. 

Note: Control level entries must be in the order listed. 

Indicators One to three indicators. Any indicators except 1P and LO can be 
used. Columns 9, 12, and 15 may contain blank or N. An AND 
relationship exists between indicators on a line. Additional lines 
may be used for entering indicators in columns 9-1 7. These are in an 
AND or OR relationship with those on the first line. Enter AN or 
OR in columns 7 and 8. 

Name of any field that is defined. 

Alphameric or numeric literal. 

Subroutine, table or array name, or array element. 

Date field name (UDATE, UMONTH, UDAY, UYEAR). 

Special name (PAGE, PAGE1 through PAGE7). 

Label for a TAG, BEGSR, or ENDSR operation. 

Field containing work station ID for a display station or 

two-position literal that is the work station ID for a display station. 

Figurative constant (*BLANK, *BLANKS, *ZERO, *ZEROS) 



28-32 



31-32 



Operation 



Operation 
code 

01-99 



lust be left-justified. 



Message identification code (MIC) to be displayed from the user 
message member during SET or KEY operations. (Entries are 
ignored by the compiler when factor 1 is also present on the same 
SET or KEY operation.) 



Calculation Specifications A-19 



CALCULATION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



33-42 



Factor 2 



Name of any field that is defined. 

Alphameric or numeric literal. 

Subroutine, table or array name, or array element. 

Date field name (UDATE, UMONTH, UDAY, UYEAR). 

Special name (PAGE, PAGE1 through PAGE7). 

Label for a GOTO or EXSR operation. 

Filename for a CHAIN, DEBUG, READ, FORCE, SET, ACQ, REL, 

or NEXT operation. 

Subroutine name for EXIT operation. 

Figurative constant (*BLANK, *BLANKS, *ZERO, *ZEROS) 



43-48 



49-51 



52 



53 



Result field 


ERASE 




Field name, 




table names, 




array element 




INxx (xx = 




any RPG II 




indicator) 




Data 




structure 


Field length 


Blank 




1-15 




1-256 


Decimal position 


Blank 




0-9 


Half adjust 


Blank 




H 



Entry used to erase buffer for CONSOLE file. 

These entries hold the results of, or are the object of, the 

specified in column 28 through 32. 

Indicator to be transferred to an external subroutine in an RLABL 
operation. 

Data structure name can be specified as a result field only if 
operation code in columns 28 through 32 is RLABL or POST. 

Field defined elsewhere. 
Length of a numeric result field. 
Length of an alphameric result field. 
The entry must be right-justified. 

Alphameric field or numeric field described elsewhere. 
Number of decimal places in a numeric result field. 

Do not half adjust (round) the result field. 

Half adjust (round) the result field. Half adjust is allowed only 

with arithmetic operations. 
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CALCULATION SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



54-59 



Resulting indicator 



01-99 Columns 54 through 59 are used to: 

H1-H9 ® Test the value of the result field after an arithmetic operation. 

L1-L9 • Check the outcome of a CHAIN, LOKUP, COMP, TESTB, 

LR TESTZ, ACQ, REL, POST, or NEXT operation. Only columns 56 

OA-OG, OV and 57 are valid for ACQ, REL, POST, and NEXT. 

KA-KN ® Specify which indicators to set on or set off. 

KP-KY ® Indicate end of file (columns 58 and 59) or an exception/error 

U1-U8 condition (columns 56 and 57) for the READ operation code. 

© Allow command keys to be pressed using the SET operation 
code. 

o Test the value of the result field after a KEY operation. 

o Condition the files that are to be used by a specific job. 

• Test whether the system operator has requested shutdown. 



60-74 
75-80 



Comments 

Program identification 



Note: To enter command key KA press the Cmd key, the 1 key, 
and then an entry function key. To enter command key KB press 
the Cmd key, the 2 key, and an entry function key. 

Any helpful information about this specification line. 

This space is available for comments. 
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OUTPUT SPECIFICATIONS 



Columns 



Name 



Entry 



Explanation 



1-2 

3-5 

6 

7 

7-14 

14-16 



15 



16-18 



16 



17-22 



17-18 



19-22 



Page 
Line 
Form type 

Filename 



AND/OR relationship . AND 
OR 



Type 



Add a record 



Delete a record 



Fetch overflow 



Space/skip 



Space 
Skip 



Page number Entry used to assign a page number to each specification sheet. 

Line number Entry used to number the specification lines. 

Identification for an output specification. 

* Asterisk in this column identifies this line as a comment line. 

Filename Valid RPG 1 1 filename for each output, update, and WORKSTN 

. file used by a program. Each filename need be specified only once 
on the first line describing that file. 

AND is entered if output records are in an AND relationship. 
OR (columns 14 and 15) is entered if output records are in an OR 
relationship. 

Note: A maximum of 20 AND, OR, or mixed AND and OR lines 
is allowed to condition an output record. 

H Heading records. 

D Detail records. 

T Total records. 

E Exception records (records to be written during calculation time). 

ADD ADD is entered in these columns if records are added to an input, 

update, or output disk file. An A must also be entered in column 
66 of the file description specifications sheet for the file to which 
a record is added. 

DEL DEL is entered in these columns if records are deleted from 

a delete-capable file. The file must be an update file (U in 
column 15 of the file description specifications). 

F Fetch overflow. The overflow routine is fetched when overflow 

occurs, before the usual time in the cycle. 
R Release a display station from the WORKSTN file. 



See columns If these columns are blank, single spacing occurs after each 
17-18 line is printed, 

and 19-22 



0-3 



Blank 
01-99 
A0-A9 
B0-B2 



Entry made in the appropriate column indicates the number Of 
lines spaced before or after a line is printed. 

No skipping. 

One of the two-digit numbers listed is entered to indicate the 
position of the next line printed. All line numbers between are 
bypassed. Enter the number in the Before or After columns, 
depending on whether skipping is to occur before or after the line 
is printed. 
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OUTPUT SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



23-31 



Output indicators 



1 to 3 Any indicators may be used. Columns 23, 26, 29 may contain blank 

indicators or N. The letter N preceding an indicator means the output 

operation is done only if the indicator is not on. An AND relation- 
ship exists between indicators on a line. To use additional lines 
of indicators in an AND or OR relationship, enter AND in columns 
14 through 16 or OR in columns 14 and 15 of each additional line 
(up to 20). Indicators cannot be specified on a field line containing 
the format name for a WORKSTN file. 



32-37 



Field name 



Field name One of the following is entered to name every field written out: 

• Any field or data structure name defined in this program. 

• The special words, PAGE, PAGE1-PAGE7, *PLACE, UDATE, 
UDAY, UMONTH, and UYEAR. 

• A defined table name, array name, or array element. 

These columns must be blank if a constant is entered on columns 
45 through 70 of the line. If an entry is made in columns 
32 through 37, columns 7 through 22 must be blank. 



38 



Edit codes 



Edit codes An edit code is entered in column 38 if needed to: 

• Suppress leading zeros for a numeric field. 

• Omit a sign from the lower order position of a numeric field. 

• Punctuate a numeric field without setting up a special edit word. 
A table summarizing the edit codes that can be used is printed above 
columns 45 through 70 on the output specifications sheet. 



39 



Blank after 



Blank Field is not reset after writing. This column must be blank for 

look-ahead and UDATE fields. 
B Alphameric field is reset to blank or numeric field is reset to zero 

after writing. 



Note: If the field name specified with Blank After is a table name, 
the element of the table looked up last is blanked or zeroed. 
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OUTPUT SPECIFICATIONS (continued) 



Columns 



Name 



Entry 



Explanation 



40-43 



End position in Number Location on the output record of the field or constant written, 

output record Enter the number of the position occupied by the rightmost 

character of the output field. The end position entry must not be 

greater than the record length. 
K1-K8 End position of the format name for a WORKSTN file. 



44 



Packed or binary 
field 



Blank Field is zoned decimal numeric, or alphameric. This column must be 

blank for *PLACE fields. 
P Field is packed decimal numeric data. 

B Field is in binary format. 



Note: Packed and binary fields can be written only on disk; they 
cannot be printed or displayed. 



45-70 



Constant or edit Constant Constant must be enclosed in apostrophes, 

word Format name Name of the display screen format used for the WORKSTN file. 

Edit word Enter an edit word, enclosed in apostrophes, to specify editing 
of numeric fields. Edit words are not used with edit codes. 



71-74 
75-80 



Blank 



Program identification 



This space is available for comments. 
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OPTION SPECIFICATIONS (AUTO REPORT) 



Columns 



Name 



Entry 



Explanation 



1-2 
3-5 
6 
7 

8-24 



Page 
Line 

Form Type 
Source 



Source Member 
Reference 



Page number Entry used to assign a page number to each specification sheet. 

Line number Entry used to number the specification lines. 

U Identification for an option specification. 

Blank The generated source program is not cataloged. 

C The generated source program is cataloged in a library on disk. 

library, Identifies the library member to be cataloged. Specify the library 

member name, which can be up to eight characters long, beginning in 

column 8. Use a comma to separate the library name and the 
member name, which can also be up to eight characters long. 



25-26 




Blank 


27 


Date Suppress 


Blank 
N 


28 


*Suppress 


Blank 
N 


29 




Blank 


30 


List Options 


Blank 

B 

P 



31-74 
75-80 



Blank 



Page number and date are included on the first *AUTO page heading 

line. 

Date and page number are not printed on the first *AUTO page 

heading line. 

Asterisks are generated for total output lines. 
Asterisks are not generated for total output lines. 



Source program listing, headings, and diagnostics are printed, and 

a source program is produced if no severe errors are found. 

The program listing is not printed; however, a source program is 

produced. 

A partial program listing is printed. This listing includes appropriate 

headings and diagnostics. 



Program 
Identification 



This space is available for comments. 
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OPERATION CODES 



i Control Level i Conditioning 
Indicators | Indicators 


Factor 1 


Factor 2 


Result 
Field 


Resulting Indicators 


/-.__ _*.__ Columns 


Columns 


Code 7-8 j 9-17 


54-55 


56-57 


58-59 


ACQ : 


R 


R 











ADD !0 ; 





R 


R 











BEGSR SR or blank 




R 












BITOF 'o JO . 




R 


R 








BITON 







R 


R 








CHAIN ; 





R 


R 











COMP ! 





R 


R 




o 3 


o 3 


o 3 


DEBUG 








R 











DIV 








R 


R 











ENDSR SR or blank 


1° 














EXCPT 


o 1 












EXIT 


1 




R 










EXSR 





R 










FORCE 


i 
I 


R 










GOTO '0 1 


R 










KEYnn 







R 











LOKUP \0 

(Array) 


R 


R 




o 4 


o 4 


o 4 


LOKUP 

(Table) 


R 


R 





o 4 


o 4 


o 4 


MHHZO 




R 


R 








MHLZO ;o 




R 


R 








MLHZO 







R 


R 








MLLZO :0 







R 


R 
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OPERATION CODES (continued) 



Operation 
Code 


Control Level Conditioning 
Indicators Indicators 

Columns 






Resulting Indicators 

„ , Columns 

Result j -] 

Field 54-55 56-57 58-59 


7-8 


9-17 


Factor 1 Factor 2 


MOVE 





P 


.__A..__ _ 


R 


MOVEA 










R 


R 


MOVEL jO 


o _L 


R |r j 


MULT JO 
MVR |0 









R j R 






R . 


NEXT 








R 


R 





POST 








R 


iR i 


READ 








i r 


: 


REL 


o 





R 


R 


j 


RLABL ! 








R ' 


SETnn 1 











!0 IO 


SETOF 








o 3 o 3 o 3 


SETON 








I 


' O 3 i O 3 O 3 


SETLL 








R R 


| I ! 


SHTDN 


! 


! ! R 


SORTA 





o ; r j 


SORT 


i 
j 


T 
R R 


SUB 





I 



R R iO 


TAG 
TESTB 


o 1 

r o "" " "I 





R 


R 


R IO 3 .0-' O 3 


j """" "" """ ~"" T T "" 

TESTZ !0 | j 


R O 3 0-- 0- : 


TIME '0 


o ! 


R 


XFOOT 


o I 


R 


R 


Z-ADD 


■ 

j 


R | R 


Z-SUB R RjO 


'The nn entries in columns 31 and 32 are for message indicator numbers. If the result field of a SET 

operation contains the keyword ERASE, factor 2 must contain the name of the CONSOLE file. 

Otherwise, factor 2 and the result field must be blank. 
'Columns 56 and 57 can contain an indicator when the READ operation is used with a WORKSTN 

device. 

3 At least one resulting indicator must be specified in columns 54 through 59. 
4 At least one resulting indicator must be specified in columns 54 through 59, but no more than two can 

be used. 



Fields without entries must be blank. 

O = Optional 

R = Required 

SR = The only allowable nonblank characters in columns 7 and 8 for the BEGSR and ENDSR operation 
codes. 
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VALID INDICATORS 





File 




















Description 
















Output 


Indicators 


Specifications 




nput Specifications 




Calculation Specifications 


Specifications 












Field 


















File 


Record 


Control 


Record 




Control 












Overflow 


Condition- 


Identifying 


Level 


Relation 


Field 


Level 


Condition 


ng 


Resulting 


Conditioning 




(33-34) 


ing (71-72) 


(19-20) 


(59-60) 


(63-64) 


(65-70) 


(7-8) 


(9-17) 




(54-59) 


(23-31) 


01-99 


X 


X 


X 




X 




X 


X 


H1-H9 


X 


X 


X 




X 




X 


X 


1P 
















X 3 


MR 




X 2 






X 






X 


OA-OG,OV X 










X 




X 


X 4 


L0 








X 








X 


L1-L9 


X 


X X 2 




X 


X 




X 


X 


LR 


X 






X 


X 




X 


X 


U1-U8 X 5 




X 






X 




X 


X 


KA-KN, 


















KP-KY 
















X 




X 6 


X 



Note: X denotes the indicators that can be used. 



Not valid on look-ahead fields. 
2 
When field named is not a match field or a control field. 

" Only for detail or heading lines. 

4 

Cannot condition an exception line, but can condition fields within the exception record. 
" Not valid for table input files. 
6 Valid for SET, KEY, and SETOF operations only. 
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SUMMARY OF INDICATORS 





Indicators 


Where Located 


Where Normally Used 
as Conditioning 


Normally Turn 


ed On 


Normally Turned Off 


By 


When 


By 


When 








Indicators 












Record identifying 


Input sheet 


\ Input: field record 


Record 


Before total- 


Different 


Before total- 




indicator 


cols 19-20 


) relation (cols 63-64) 
\ Calculation: indica- 
tors (cols 9-17) 
\ Output: output indi- 
cators (cols 23-31) 


identification 


time 
calculations 


record type 


time 
calculations 


Field indicators: 


Input sheet 


/ Calculation: indicators 


Data field with 


Before detail- 


Data field with- 










I (cols 9-17) 


plus or minus 


time calcula- 


out a plus or 






Plus/minus 


Cols 65-68: 
Numeric data 
only 




balance 


tions 


minus balance 






Zero/blank 


Cols 69-70 


/Output: output 


Data field with 


Before detail- 


Data field with- 


Before detail- 








[ indicators (cols 


zero or blank 


time calcula- 


out a zero or 


time calculations 








\ 23-31) 


balance 


tions when field 
is zero or blank 


blank balance 






Control level 


Input sheet 


\ Calculation: control 


Control break of 


Before total- 


A control field 


After detail-time 




(L1-L9) 


cols 59-60 


} level (cols 7-8) 


that or higher 


time calcula- 


with the same 


output 








(Calculation: indica- 


level 


tions 


contents as the 




ID 






|tors (cols 9-17) 






control field of 










(Output: output 






previous record 




CO 

c 






vindicators (cols 










o 

CO 

u 
o 






(23-31) 










Matching records 


Input sheet 


\ Calculation: indi- 


Matching of 


Before detail- 


Nonmatch 


Before detail-time 


a 

CO 

c 


(MR)-based on 


cols 61-62: 


cators (cols 9-17) 


primary with any 


time calcula- 


between pri- 


calculations 


matching fields 


M1-M9 control 


(Output: output 


secondary record 


tions 


mary and 




o 




MR 


< indicators (cols 






other records 




o 

TO 
u 

o 

_l 






( 23-31) 










Calculation 


Calculation 


(Calculation: indi- 






Specified 


Immediately 




resulting 


sheet cols 


cators (cols 9-17) 






resulting 






indicators 


54-59 


( Output: output 
.' indicators (cols 
/ 23-31) 






indicators 














are set off 














prior to the 
















execution of 
















the calculation 






Arith ( Plus 






Plus result 


Immediately 








ops ■< Minus 






Minus result 


when the 








( Zero 






Field contents 
Zero 


specified 
condition is 
met upon exe- 








(High 






Factor 1 > 


cution of the 








COMPI 






Factor 2 


operation 








< Low 






Factor 1 < 
Factor 2 










. \ Equal 






Factor 1 = 
Factor 2 
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SUMMARY OF INDICATORS (continued) 









Where Normally 
















Used as 
Conditioning 


Normally Turned On 


Normally Turn 


edOff 












Indicators 


Where Located 


Indicators 


By 


When 


By 


When 




[Plus 




Presence of a C 
zone 










TESTZ J Minus 




Presence of a D 
zone 










( Blank 




Any zone other 
than a C or D 
zone 










PIlIC 




Each bit speci- 
















fied by factor 
















2 is off in the 
















result field 
















Bits specified 
















by factor 2 are 










TESTB< 


Minus 




of a mixed 
status in the 
result field 

Each bit speci- 
fied by factor 2 








<1J 

OJ 
SZ 
CO 




k Equal 




is on in the result 
field 








c 














o 


( High 




Factor 1 < 








CD 

u 


\ 




Factor 2 








o 


L0KUP< Low 




Factor 1 > 








a 

CO 






Factor 2 








c 


\ Equal 




Factor 1 = 








c 






Factor 2 








o 














CO: 

u 
o 


I Plus 




Plus result 


Immediately 


Failure to satisfy 


Immediately 


_l 


KEY ^ Minus 




Minus result 


when the 


the assigned 






J Zero 




Field contents 


specified con- 


condition when 






f Blank 




zero or blank 


dition is met 
after the field 
is keyed 


the field is keyed 






ACQ 




Exception/ 


Immediately 




Immediately 




(exception/ 




error 


upon execution 




preceding 




error, cols 




condition 


of operation 




execution of 




56-57) 






if exception/ 
error con- 
dition occurred 




operation 




CHAIN 




Record 


Immediately 


CHAIN 


Immediately 




(no record 




specified in 


upon execution 


operation 


preceding 




found, cols 




factor 1 not 


of operation 


code 


execution of 




54-55) 




found in file 


if specified 
condition exists 




operation 




NEXT 




. Exception/ 


Immediately 




Immediately 




(exception/ 




error 


upon execution 




preceding 




error, cols 




condition 


of operation 




execution of 




56-57) 






if exception/ 
error con- 
dition occurred 




operation 
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SUMMARY OF INDICATORS (continued) 









Where Normally 














Used as 
Conditioning 


Normally Turned On 


Normally Turned Off 


















Indicators 


Where Located 


Indicators 


By 


When 


By 


When 






End 




End of file 


Immediately 


Programmer 


By execution 






of 






upon execution 




of the SETOF 






file 






of operation 
if end of file 
occurred 




operation or 
through use 
as resulting 




READ. 












indicator of 

another 

operation 






Except/ 
error, 




Exception/ 


Immediately 




Immediately 






cols 




error 


upon execution 




preceding 






^ 56-57 




condition 


of operation 




execution of 










if exception/ 




operation 


to 

CD 
CD 








error occurred 






c 


REL 




Exception/ 


Immediately 




Immediately 


o 


(exception/ 




error 


upon execution 




preceding 


CO 

o 


error, cols 




condition 


of operation if 




execution 


o 


56-57) 






exception/ 




of operation 


a 








error occurred 






c 
o 

c 


SETOF 










Immediately 


g 


(cols 54-59) 










upon execu- 


co 
u 
o 


SETON 
'.cols 54-59) 

SETnn 




Operator 

pressing 

specified 

command 

key 


Immediately 
upon execution 
of operation 




tion of 
operation 

Immediately 
preceding 
execution of 
operation 




SHTDN 




System 


Immediately 




Immediately 




(cols 54-55) 




operator's 
request to 
shut down 
system 


upon execution 
of operation 
if specified 
condition 
exists 




preceding 
execution of 
operation 
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SUMMARY OF INDICATORS (continued) 



Indicators 


Where Normally Specified to be 
Turned On or Off 


When Turned On by 
Program Itself 


When Turned Off by 
Program Itself 


CD 

E 

2 

0) 

E 

ro 

Z 


L1-L9 (control 
level) 


Control level: cols 59-60— input 
sheet 


Before total time upon control 
break 


After each detail-time output 


LO (level zero) 


Nowhere 


Always on 


Never 


LR (last 
record total) 


Nowhere 


Before total time following last 
data record (after 1 * \b ) 


At the start of the program 


1P (first page) 


Nowhere 


At beginning of program execution 


After first detail-time output 


OA-OG, OV 
(overflow) 


Nowhere 


When end of page is reached 


After next detail-time output 
unless fetch overflow is specified 


H1-H9 (halt) 


Field and resulting indicators 


Never, but if on at detail-time 
output, halts system thereafter 


When system is restarted after 
halt 


01-99 (general) 


Field and resulting indicators 


During calculation 


During calculation 


KA-KN, KP-KY 


Resulting indicators 


During calculation or by display 
station operator at input 


During calculation or by display 
station operator at input 


U1-U8 


External or resulting indicators 


During calculation 


During calculation 
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DISPLAY SCREEN FORMAT SPECIFICATIONS 

S Specifications 

Columns Name Entry 



Explanation 



1-5 


Sequence number 


Line number 


6 


Form type 


S 


7 




* 


7-14 


Format name 


Display 
screen 
format name 


15-16 




Blank 


17-18 


Start line number 


01-24 

V 

(column 17) 


19-20 


Number of lines 
to clear 


00-24 


21 


Lowercase 


Y 

N or blank 


22 


Return input 


Y or blank 



Entry used to number the specification lines. 

Identification for an S specification. 

Asterisk in this column identifies this line as a comment line. 

Name of the display screen format that the $SFGR utility program 
creates from the S and D specifications. 



23-24 




Blank 


25-26 


Sound alarm 


Y 

(column 25) 

N (column 
25) or blank 



01-99 



Number of the line at which the display begins. 
Start line number is determined by the user program. 



Number of lines to clear, including and following the starting line. 
The specified number of lines are cleared, beginning with the start 
line specified in columns 17 and 18. 

With the Shift key, operators key uppercase characters. Without the 
Shift key, operators key lowercase characters. 

Operators key uppercase characters only. 

Input fields on this display are returned to the user program, even if 
the operator enters no data. 

Input fields on this display are not returned to the user program 
unless the operator enters data in one or more of the fields. Then all 
input fields are returned to the program. 



The alarm sounds when this display appears. 



The alarm does not sound when this display appears. 



The alarm sounds when this display appears only if the specified 
indicator is on. 
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S Specifications (continued) 
Columns Name 



Entry 



Explanation 



27 



Enable function 
keys 



Y 



The function control keys identified by numbers in the key mask 
entry (columns 64 through 79) are enabled (allowed). If the key 
mask entry contains no numbers, all function control keys are 
disabled. 



28 



Enable command 
keys 



N The function control keys identified by numbers in the key mask 

entry are disabled (not allowed). If the key mask entry contains 
no numbers, all function control keys are enabled. If the operator 
presses a disabled function control key, an error message is 
displayed. The operator can then press the Error Reset key, followed 
by the correct function key. 

R The function control key mask that is active for the display station 

is retained when this format is displayed. 

Blank All function control keys are enabled. In this case, the key mask 

entry must not contain any numbers. 

Note: Function control keys that are not masked off and that 
are not supported by the program cause an error message to be 
displayed, which indicates that an invalid key was pressed. 

Y The command keys identified by alphabetic characters in the key 

mask entry (columns 64 through 79) are enabled (allowed). If 
the key mask entry contains no alphabetic characters, all 
command keys are disabled. 

N The command keys identified by alphabetic characters in the key 

mask entry are disabled (not allowed). If the key mask entry 
contains no alphabetic characters, all command keys are enabled. 
If the operator presses a disabled command key, an error message 
is displayed. The operator can then press the Error Reset key, 
followed by the correct command key. 

R The command key mask that is active for the display station is 

retained when this format is displayed. 

Blank All command keys are. enabled. In this case, the key mask entry 

must not contain any alphabetic characters. If a command key is 
pressed, the corresponding indicator (KA through KN, KP through 
KY) is set on in the RPG II program. 
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S Specifications (continued) 



Columns 



Name 



Entry 



Explanation 



29-30 



Blink cursor 



Y 

(column 29) 



The cursor blinks when this display appears. 



N (column 
29) or blank 



The cursor does not blink. 



01-99 



The cursor blinks only if the specified indicator is on. 



31-32 



Erase input fields 



Y All unprotected input fields on the screen are erased, the keyboard is 

(column 31) unlocked, and no output occurs. All D specifications are ignored. 
The use of Y is not recommended. 



N (column 
31) or blank 



The input fields are not erased. 



33-34 



01-99 All unprotected input fields on the screen are erased and the 

keyboard is unlocked if the specified indicator is on. 

Override fields Y An override operation is performed. The use of Y is not 

(column 33) recommended. 



N (column 
33) or blank 



The operation is not an override operation. 



01-99 An override operation is performed if the specified indicator is on. 

An override operation allows the screen to remain unchanged except 
for those fields that have indicators specified for them in columns 
23 and 24 of the D specification, and those indicators are on. See 
Special Display Format Considerations in Chapter 13 for a more 
detailed description of an override operation. The record displayed 
by RPG II is exactly the same whether or not override is specified 
when the indicator in columns 23 and 24 of the D specification is 
on. 



35-36 



Suppress input Y No input is returned to the user program until a format is displayed 

(column 35) with suppress input specified as N or with the specified indicator off. 



N (column Input is returned to the user program. 
35) or blank 



37-63 



01-99 
Blank 



Input to the user program is suppressed if the specified indicator is on. 
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S Specifications (continued) 
Columns Name 



Entry 



Explanation 



64-79 



Key mask 



The key mask is a string of numbers and/or alphabetic characters 
that identify keys to be enabled or disabled when this format is 
displayed. The key mask must begin in column 64 and cannot 
contain embedded blanks. The numbers and alphabetic characters 
can be intermixed. 

Numbers in the key mask identify function control keys: 



Number 

1 

2 
3 
4 
5 
6 



Function Control Key 

Print 

ROLLt 

ROLL + 

Clear 

Help 

Record Backspace 



Alphabetic characters in the key mask identify command keys: 



Alphabetic 




Character 


Command Keys 


A 


1 


B 


2 


C 


3 


D 


4 


E 


5 


F 


6 


G 


7 


H 


8 


1 


9 


J 


10 


K 


11 


L 


12 


M 


13 


N 


14 


P 


15 


Q 


16 


R 


17 


S 


18 


T 


19 


U 


20 


V 


21 


w 


22 


X 


23 


Y 


24 
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D Specifications 
Columns Name 



Entry 



Explanation 



1-5 


Sequence num 


ber 


Line number 


6 


Form type 




D 


7 






* 


7-12 


Field name 




Field name 
Blank 


13-14 






Blank 


15-18 


Field length 




1-1919 


19-20 


Line number 




01-nn 



21-22 



23-24 



Horizontal position 01-80 



Output data 



Y 

(column 23) 



N (column 
23) or blank 

01-99 



Entry used to number the specification line. 
Identification for a D specification. 

Asterisk in this column identifies this line as a comment line. 
Name of an input field, output field, or output/input field. 
This D specification line specifies only constant data. 

The entry must be right-justified, but leading zeros are not required. 

Relative line number on which data appears. The actual line number 
is start line number (column 17 and 18 on the S specification) plus 
this line number, minus one. 

nn (maximum) = 24 - starting line number 

Column number of the first position of the field. Columns 19 
through 22 cannot be 0101. 

If constant data or a message identification code is also specified 
in columns 57 through 79, that constant data or the specified 
message is displayed in the field. 

If no constant data or message identification code is specified in 
columns 57 through 79, data from the user program output record 
is displayed. 

The field is not an output field. 



If the specified indicator is on when the format is displayed, data 
supplied by the user program is displayed in the field. 

If the specified indicator is off when the format is displayed, data 
specified in columns 57 through 79 is displayed. If no data is 
specified in columns 57 through 79, blanks are displayed. 

If the user program performs an override operation and the specified 
indicator is on, data supplied by the user program is displayed in the 
field. See Special Display Format Considerations in Chapter 1 3 for 
a description of an override operation. 

If the user program performs an override operation and the specified 
indicator is off, the field is unchanged. 



25 



Blank 
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D Specifications (continued) 
Columns Name 



Entry 



Explanation 



26 



27 



28 



29 



nput allowed 


Y 




N or blank 


Data type 


A 




B or blank 




K 



Mandatory fill 



Mandatory entry 



30 



Self check 



Y 

N or blank 



Y 

N or blank 

T 

E 

Blank 



The operator can enter information into the field from the keyboard. 

The operator cannot enter information into the field from the 
keyboard. 

The field can contain only alphabetic data. 

The field can contain only alphameric data. 

The field can contain Katakana characters. 

The field can contain only numeric data. Commas, a period, a plus 
sign, or a minus sign can also be entered in this field. 

Note: If special characters are entered in an N-type field, the 
data read by the RPG program may not be as expected. The 
program uses only the digit portion of characters entered in 
an N-type field. The zone portion is forced to hex F, except 
for the sign position {see Zoned Decimal Format in Chapter 7). 

The field can contain only signed numeric data; the last position of 
the field is reserved for a sign. Only decimal digits (0 through 9) 
can be entered in the field. The field can be from 2 to 16 characters 
long. 

Operators must key all or key none of the field. 

Operators can key all, none, or part of the input field. 

Note: Mandatory fill and adjust/fill (column 31) cannot be specified 
for the same field. 

Operators must enter at least one character or a blank in the input 
field. 

Operators can bypass the input field. 

The input field is a modulus 10 self-check field. 

The input field is a modulus 1 1 self-check field. 

The input field is not a self-check field. 
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D Specifications (continued) 
Columns Name 



Entry 



Explanation 



31 



Adjust/fill 



Blank 



Information entered into the field is right-justified, and unused 
positions are filled with zeros. 

Information entered into the field is right-justified, and unused 
positions are filled with blanks. 

For signed numeric fields, the information entered in the field is 
right-justified and blank fill is assumed. For alphameric fields, 
the information entered in the field is unchanged. 

Note: Mandatory fill (column 28) and adjust/fill cannot be specified 
for the same field. 
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D Specifications (continued) 
Columns Name 



Entry 



Explanation 



32-33 



Position cursor 



34 



Enable Dup 



35 



Controlled field 
exit 



Y Cursor appears at the first position of the input field when this 

(column 32) format is displayed. 



N (column 
32) or blank 

01-99 



Y 



N or blank 
Y 



N or blank 



36 



Auto record advance Y 



37-38 



Protect field 



N or blank 

Y 

(column 37) 

N (column 
37) or blank 

01-99 



Cursor does not appear at the first position of the input field. 



Cursor appears at the first position of the input field only if the 
specified indicator is on. 

When the Dup key is pressed, the position of the cursor and the 
remainder of the field are filled with the duplicate character value 
(hex 1C), which is displayed as an asterisk (*). The duplicate 
characters must be processed by the user porgram. 

The Dup key has no effect in the field. 

Cursor does not leave the input field until the operator presses a 
field exit key (Field Adv, Enter/Rec Adv, Field Exit, Field +, Field - 
[if the field is a signed-numeric field] , Field Backspace, Home, 
Erase Input, or Dup). 

Cursor automatically skips to the next unprotected field when the 
operator keys the last position of the field. 

The input fields on the screen automatically return to the user 
program when one of the following occurs: 

• The operator enters the last character in the field. 

• The cursor is in the input field and the operator presses the 
Field Exit, Field +, or Field - key (if the field is a signed-numeric 
field). 

Automatic record advance does not occur for this field. 

The cursor skips the field. 



The cursor does not skip the field. 

The cursor skips the field if the specified indicator is on. 
Note: If an override operation is used, this indicator is ignored. 
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D Specifications (continued) 



Columns 



Name 



Entry Explanation 



39-40 



High intensity 



Y 

(column 39) 



The field is displayed with high intensity. 



N (column 
39) or blank 



The field is displayed with normal intensity. 



01-99 The field is displayed with high intensity if the specified indicator 

is on. 

Note: High intensity, reverse image (columns 45-46), and underline 
(columns 47-48) cannot all be specified for the same field at the 
same time. 



41-42 



Blink field 



43-44 



Nondisplay 



Y 

(column 41) 

N (column 
41) or blank 

01-99 



Y 

(column 43) 



The field blinks. 



The field does not blink. 



The field blinks if the specified indicator is on when the format is 
displayed. 

The field is nondisplay; that is, information in the field when the 
format is displayed or information entered into the field by the 
operator is not visible on the screen. 



N (column 
43) or blank 



The information in the field is displayed. 



45-46 



47-48 



Reverse image 



Underline 



01-99 The field is a nondisplay field if the specified indicator is on when 

the format is displayed. 

Y The characters in the field appear as dark characters on a light 
(column 45) background. 

N (column The characters in the field appear as light characters on a dark 
45) or blank background. 

01-99 The characters in the field appear as dark characters on a light 

background if the specified indicator is on when the format is 
displayed. 

Y The field is underlined, 
(column 47) 



N (column 
47) or blank 



The field is not underlined. 



01-99 The field is underlined if the specified indicator is on. 
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D Specifications (continued) 
Columns Name 



Entry 



Explanation 



49 



Column separators Y 



Each character position in the field is preceded by a column 
separator (a vertical line). The column separator does not require an 
additional character position. 







Nor blank 


50-55 




Blank 


56 


Constant type 


C 



Column separators are not used. 



The constant information in columns 57 through 79 is to be 
displayed in the output field. C is required only if columns 57 
through 79 are blank and you want to display all blanks in the field. 
C is invalid if an indicator is specified in columns 23 and 24. 



57-79 



Constant data 



M A message identification code and a message member identifier are 

entered in columns 57 through 79. 

Blank If columns 57 through 79 contain constant information, that 

information is displayed. If columns 57 through 79 are blank, then 
information from the program output record area is displayed. 

This field specifies the information to be placed in an output or 
output/input field when the format is generated. If information is 
to be placed in the field, columns 57 through 79 should contain one 
of the following: 

• The actual information to be displayed. 

• A four-digit message identification code in columns 57 through 
60 and a 2-character message member identifier in columns 61 
and 62. 



80 



Continuation 



X 



Notes: 

1. If columns 57 through 79 are blank and the field is an output 
field (Y in column 23), then information from the program 
output record is displayed. 

2. If a message identification code is specified in columns 57 
through 79, then only 6 bytes need be reserved for the field in 
the program output record area. 

If more than 23 characters of data are required, an X in column 80 
indicates that the record is continued. Use columns 7 through 79 of 
the following record for the continued constant data. 

Note: A comment cannot follow a record with X in 
column 80. 
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Appendix B. Printed Messages 



This appendix describes the printed messages generated 
by theRPG II compiler. The compiler prints a message 
when an error is detected during compilation of RPG II 
source specifications. No operator action is required 
when these errors occur. The messages are for use by 
the programmer. 

Each message includes: 

• Program identification code (RPG). Auto report 
messages are printed with the identification NOTE 
instead of RPG. 

• A four-digit message identification code. 

• Message text. 

• Severity code: 

- W (Warning) Warning that an abnormal condition 

exists. Corrective action is required only if 
the condition is unintentional. The 
compilation is completed, and the program 
can be executed with warning errors. 

- T (Terminal) An error condition exists that requires 

corrective action before the system can 
compile the program. The program cannot 
be executed with terminal errors. 

• The specification type of the error causing the 
message to be issued. 

An explanation of the message, when included, 
describes the message in more detail, describes any 
action taken by the system, and suggests a response to 
correct the error condition. 



RPG II MESSAGES 

RPG-0002 INVALID ENTRY IN COLUMN 10, 
ASSUME BLANK.. 

Severity: Warning 

Specification Type: H 

Explanation: The object output entry in column 10 is 
not D or blank. Blank is assumed. 



RPG-0003 INVALID LISTING OPTION IN 

COLUMN 11, ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: The listing options entry in column 1 1 is 
not B, P, or blank. Blank is assumed. Therefore, a 
source program and the object program are 
produced. 

RPG-0004 INVALID OR BLANK STORAGE 
SIZE TO EXECUTE ENTRY IN 
COLUMN 12-14, ROUNDED UP 
TO 2K MULTIPLE OR REGION 
SIZE ASSUMED. 

Seventy: Warning 

Specification Type: H 

Explanation: (1) Columns 12 through 14 are blank, or 

(2) they contain an entry greater than 64K, or (3) 
the entry is not a multiple of 2K. The size of the 
region used for compiling is assumed, or, if item 

(3) is the error, the entry is rounded up. 

RPG-0005 INVALID DEBUG CODE IN 

COLUMN 15, ASSUME BLANK: 

Seventy; Warning 

Specification Type: H 

Explanation: The debug code in column 15 is neither 
1 nor blank. 

RPG-0006 CONTROL SPECIFICATION WAS 

PREVIOUSLY DEFINED. CURRENT 
SPECIFICATION IS IGNORED. 

Severity: Warning 

Specification Type: H 

Explanation: Only one control specification per 
program is allowed. The specification is ignored 
and the job continues. 
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RPG-0007 INVALID ENTRY IN COLUMN 57, 
ASSUME TRANSPARENT LITERAL 
SUPPORT. 

Severity: Warning 

Specification Type: H 

Explanation: A character other than a 1 or a blank 
was found in column 57. Column 57 is assumed 
to contain 1. 

RPG-0008 INVALID ENTRY IN COLUMN 37, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: The inquiry entry in column 37 of the 
control specification is not I, B, or blank. 



RPG-0013 INVALID ENTRIES IN COLUMNS 
22-25, ASSUME BLANKS. 

Severity: Warning 

Specification Type: H 

Explanation: These columns must be left blank. 

RPG-0014 INVALID ALTERNATE COLLATING 
SEQUENCE ENTRY IN COLUMN 
26, ASSUME S. 

Severity: Warning 

Specification Type: H 

Explanation: The alternate collating sequence entry in 
column 26 of the control specification is neither 
blank nor S. The S entry alters the normal 
collating sequence. 



RPG-0010 INVALID ENTRY IN COLUMN 18, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: Valid entries for column 18 are any 
characters except those having special significance 
in edit words or edit codes. The following are not 
valid: 



(zero) 
* (asterisk) 
, (comma) 
C (letter C) 



& (ampersand) 
. (decimal point) 
- (minus) 
R (letter R) 



RPG-0011 INVALID ENTRY IN COLUMNS 
16-17, ASSUME BLANKS. 

Seventy: Warning 

Specification Type: H 

Explanation: These columns must be left blank. 

RPG-0012 INVALID INVERTED PRINT ENTRY 
IN COLUMN 21, ASSUME BLANK. 

Seventy: Warning 

Specification Type: H 

Explanation: The inverted print entry in column 21 of 
the control specification is not I, D, J, or blank. 



RPG-0015 INVALID ENTRIES IN COLUMNS 
27-36 AND/OR 38-40, ASSUME 
BLANK. 

Seventy: Warning 

Specification Type: H 

Explanation: These columns must be left blank. 

RPG-0016 INVALID 1P OUTPUT REPEAT 

ENTRY IN COLUMN 41, ASSUME 
1. 

Severity: Warning 

Specification Type: H 

Explanation: Column 41 (1P forms position) of the 
control specification is neither 1 nor blank. 

RPG-0017 INVALID ENTRY IN COLUMN 42, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: This column must be left blank. 
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RPG-0018 INVALID FILE TRANSLATION 

ENTRY IN COLUMN 43, ASSUME 
F. 

Seventy: Warning 

Specification Type: H 

Explanation: The file translation entry in column 43 is 
neither F nor blank. 



RPG-0023 INVALID OR BLANK FILENAME IN 
COLUMNS 7-14. 

Severity: Terminal 

Specification Type: F, I, L, T, or 

Explanation: Filename specified in columns 7 through 
14 is invalid. The job is terminated and the entire 
specification is ignored. 



RPG-0019 INVALID ENTRY IN COLUMN 44, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: Column 44 must be left blank. 

RPG-0020 INVALID NON-PRINTABLE 

CHARACTER ENTRY IN COLUMN 
45, ASSUME 1. 

Seventy: Warning 

Specification Type: H 

Explanation: This column must contain a 1 or blank. 

RPG-0021 INVALID ENTRIES IN COLUMNS 
46-47, 49-51, 54-56, OR 58-74, 
ASSUME BLANKS. 

Severity: Warning 

Specification Type: H 

Explanation: These columns must be blank. 

RPG-0022 INVALID ENTRY IN COLUMN 6 

OR SPECIFICATION TYPE OUT OF 
SEQUENCE. 

Severity: Terminal 

Specification Type: H, F, E, L, T, I, C, or O 

Explanation: Valid entries for column 6 are H, F, E, L, 
T, I, C, or O, in the order listed. The job is 
terminated and the entire specification is ignored. 



RPG-0024 FILENAME PREVIOUSLY DEFINED 
IN COLUMNS 7-14. 

Seventy: Terminal 

Specification Type: F 

Explanation: The filename is not unique. The job is 
terminated and the entire specification line is 
ignored. 

RPG-0025 INVALID DEVICE NAME IN 

COLUMNS 40-46, ASSUME DISK. 

Severity: Terminal 

Specification Type: F 

Explanation: The entry in columns 40 through 46 is 
not a valid device name. DISK is assumed, but the 
job is terminated. 

RPG-0026 INVALID OR BLANK FILE TYPE 

ENTRY IN COLUMN 15, ASSUME 
DEFAULT FOR DEVICE. 

Seventy: Terminal 

Specification Type: F 

Explanation: The file type entry in column 15 is not I, 
O, U, or C or a record address file (R in column 
16) is specified and the file type is not I. O is 
assumed for files assigned to CRT or PRINTER; I 
is assumed for files assigned to KEYBORD, BSCA, 
or CONSOLE; U is assumed for files assigned to 
DISK; C is assumed for files assigned to SPECIAL 
or WORKSTN. The job is terminated. 
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RPG-0027 POSITION 19 IN CONTROL 

SPECIFICATION NOT BLANK, M, 
D, OR Y, ASSUME M IF POSITION 
21 BLANK. 

Seventy: Warning 

Specification Type: H 

Explanation: Position 19 should be M, D, Y, or blank. 
Assume M if position 21 is blank, or assume D if 
position 21 is I or J. 

RPG-0028 FILE DESIGNATION IN COLUMN 
16 IS INVALID FOR EITHER FILE 
TYPE OR DEVICE, ASSUME 
SECONDARY. 

Severity: Warning 

Specification Type: F 

Explanation: The entry in column 16 is not valid for 
an input or an update file. S is assumed and the 
job continues. 

RPG-0029 INVALID ENTRY IN COLUMNS 
52-53, ASSUME 32. 

Severity: Warning 

Specification Type: H 

Explanation: An entry other than blank or 01 -32 was 
entered in columns 52 and 53, or 00 was entered 
in columns 52 and 53 and *NONE was not 
specified on an FMTS continuation line. 

RPG-0030 FILE DESIGNATION ENTRY IN 
COLUMN 16 INVALID FOR 
OUTPUT FILE, ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Column 16 must be blank for output 
files (0 in column 15). 



RPG-0032 NO PRIMARY FILE SPECIFIED IN 
COLUMN 16, ASSUME FIRST 
SECONDARY AS PRIMARY. 

Severity: Warning 

Specification Type: F 

Explanation: If a primary file is not specified (P in 
column 16) in the file description specifications 
and one or more secondary' files are specified, the 
first secondary file is assigned as the primary file. 
When no primary or secondary files are assigned, 
you must provide an exit for your program by 
turning on the LR indicator. 

RPG-0034 MULTIPLE PRIMARY FILES 
DEFINED IN COLUMN 16, 
ASSUME SECONDARY. 

Severity: Warning 

Specification Type: F 

Explanation: More than one primary file (P in column 
16) was defined in your file description 
specifications. All primary files except the first one 
are assumed to be secondary. 

RPG-0036 INVALID END OF FILE ENTRY IN 
COLUMN 17, ASSUME E FOR 
INPUT FILE TYPE WITHOUT 
RANDOM PROCESSING. 

Severity: Warning 

Specification Type: F 

Explanation: The entry in column 17 of the file 

description specifications is neither E nor blank. E 
is assumed for input files not processed randomly; 
blank is assumed for all other files. 

RPG-0037 INVALID FILE FORMAT ENTRY IN 
i^uLuiviN i a. 

Severity: Warning 

Specification Type: F 

Explanation: The file format entry in column 19 of 
your file description specification is not F. F is 
assumed. 
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RPG-0038 END OF FILE ENTRY IN COLUMN 

17 INVALID FOR FILE TYPE. 

Severity: Warning 

Specification Type: F 

Explanation: Column 18 must be blank for output, 
demand, and table files. Blank is assumed. 

RPG-0039 INVALID SEQUENCE ENTRY IN 

COLUMN 18, ASSUME PREVIOUS 
ENTRY. 

Severity: Warning 

Specification Type: F 

Explanation: The sequence entry in column 18 is not 
A, D, or blank. The entry in column 18 from the 
previous line is assumed. 

RPG-0040 SEQUENCE ENTRY IN COLUMN 

18 INVALID FOR TYPE OF FILE 
OR MODE OF PROCESSING, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Column 18 must be blank for demand 
files, output files, record address files, and for any 
files processed randomly. 

RPG-0041 INVALID RECORD LENGTH ENTRY 
IN COLUMNS 24-27, ASSUME 
DEFAULT FOR DEVICE. 

Severity: Warning 

Specification Type: F 

Explanation: Incorrect record length was specified in 
columns 24 through 27. The maximum record 
length for the device is assumed, except DISK 
which is assumed to be 256. 

RPG-0042 INVALID BLOCK LENGTH 

ENTRIES IN COLUMNS 20-23, 
ASSUME RECORD LENGTH. 

Severity: Warning 

Specification Type: F 

Explanation: The block length entry in columns 20 
through 23 is neither equal to nor a multiple of the 
record length specified in columns 24 through 27. 



RPG-0043 DUAL I/O ENTRY IN COLUMN 32 
INVALID FOR TYPE OF FILE OR 
MODE OF PROCESSING, ASSUME 
BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Dual I/O (1-9 in column 32) cannot be 
specified for demand, table, and update files, or 
for any file processed randomly. Dual I/O also 
cannot be specified if shared I/O (column 48 of 
the control specifications) has been specified. 

RPG-0044 INVALID ENTRY IN COLUMN 32, 
ASSUME BLANK. 

Seventy: Warning 

Specification Type: F 

Explanation: The entry in column 32 was not 1-9, I, 
T, or blank. 

RPG-0045 OVERFLOW INDR IN COLS 33-34 
PREVIOUSLY DEFINED. 

Severity: Terminal 

Specification Type: F 

RPG-0046 INVALID OVERFLOW INDICATOR 
IN COLUMNS 33-34, ASSUME 
BLANK. 

Severity: Terminal 

Specification Type: F 

Explanation: The overflow indicator entry in columns 
33 and 34 was not OA-OG, or OV. Blank is 
assumed, but the job is terminated. 

RPG-0047 OVERFLOW INDICATOR IN 

COLUMNS 33-34 INVALID FOR 
DEVICE, ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: The overflow indicator in columns 33 
and 34 was not assigned to a printer file. 
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RPG-0048 INVALID OR BLANK EXTENSION 
CODE ENTRY IN COLUMN 39 
FOR TABLE FILE OR RECORD 
ADDRESS FILE, ASSUME E. 

Severity: Warning 

Specification Type: F 

RPG-0049 INVALID EXTENSION CODE 

ENTRY IN COLUMN 39, ASSUME 
L. 

Seventy; Warning 

Specification Type: F 

Explanation: The entry in column 39 is neither L nor 
blank for output files assigned to the printer. L is 
assumed and the job continues. 

RPG-0051 EXTENSION CODE ENTRY IN 
COLUMN 39 INVALID WITH 
DEVICE, OR WITH P, S, C, OR D 
IN COLUMN 16, ASSUME BLANK. 

Seventy; Warning 

Specification Type: F 

RPG-0052 DEVICE IN COLUMNS 40-46 
PREVIOUSLY ASSIGNED TO 
OUTPUT OR, NON-TABLE INPUT 
FILE OR MORE THAN EIGHT 
PRINTER FILES DEFINED. 

Seventy; Terminal 

Specification Type: F 

Explanation: The device name in columns 40 through 
46 was assigned to more than one output or 
non-table input file. The job is terminated and the 
entire specification may cause other errors to be 
generated. 

RPG-0053 INVALID ENTRIES IN COLUMNS 
47-52, ASSUME BLANKS. 

Seventy; Warning 

Specification Type: F 

Explanation: These columns must be left blank. 



RPG-0055 FILE CONDITIONING ENTRIES IN 
COLUMNS 71-72 INVALID FOR 
TABLE FILES OR KEYBORD, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Columns 71 and 72 must be left blank 
for table files, because table files cannot be 
conditioned by U1-U8. 

RPG-0057 INVALID FILE CONDITIONING 
ENTRIES IN COLUMNS 71-72. 

Severity: Terminal 

Specification Type: F 

Explanation: Columns 71 and 72 of your file 

description specification are not blank nor do they 
contain one of the external indicators (U1-U8). 

RPG-0058 INVALID ENTRIES IN COLUMNS 
67, AND/OR 73-74, ASSUME 
BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Columns 67, and 73 and 74 must be left 
blank. 

RPG-0060 INVALID ENTRY IN COLUMN 48, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: H 

Explanation: To indicate shared input/output buffer 
areas for disk files, enter a 1 in column 48; 
otherwise, leave column 48 blank. 

RPG-0061 INVALID ENTRIES IN COLUMNS 
7-10, ASSUME BLANK. 

Severity: Warning 

Specification Type: E 

Explanation: Columns 7 through 10 must be left 
blank. 
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RPG-0062 INVALID OR UNDEFINED FROM 
FILENAME ENTRY IN COLUMNS 
11-18. 

Seventy: Terminal 

Specification Type: E 

Explanation: The from filename in columns 1 1 
through 18 of your extension specifications is 
invalid or has not been previously defined in file 
description specifications. (The from filename 
must start in column 11.) 

RPG-0063 TYPE OF FILE INVALID FOR 
FROM FILENAME ENTRY IN 
COLUMNS 11-18. 

Severity: Terminal 

Specification Type: E 

Explanation: The from filename does not refer to a 
table or record address input file. 

RPG-0064 INVALID OR UNDEFINED TO 

FILENAME IN COLUMNS 19-26. 

Severity: Terminal 

Specification Type: E 

Explanation: The to filename in columns 19 through 
26 of your extension specifications is invalid or has 
not been defined in file description specifications. 
(The to filename must start in column 19.) 

RPG-0065 TYPE OF FILE INVALID OR 

INCORRECT FOR TO FILENAME 
ENTRY IN COLUMNS 19-26. 

Severity: Terminal 

Specification Type: E 

Explanation: The to filename entry does not refer to 
an output file or to a file processed by a record 
address file. 



RPG-0067 INVALID TABLE OR ARRAY NAME 
IN COLUMNS 27-32. 

Seventy: Terminal 

Specification Type: E 

Explanation: The table or array name in columns 27 
through 32 was not specified properly. A table or 
array name must start in column 27. A table name 
must begin with TAB; an array name must not 
begin with TAB. 

RPG-0068 INVALID OR MISSING NUMBER 
OF ENTRIES PER RECORD ENTRY 
IN COLUMNS 33-35, ASSUME 08. 

Severity: Terminal 

Specification Type: E 

Explanation: The entry in columns 33 through 35 is 
missing on a specification line that has a from 
filename in columns 11 through 18, or it is not a 
one- to three-digit number (1-999). 08 is 
assumed, but the job is terminated. 

RPG-0070 INVALID OR MISSING NUMBER 
OF ENTRIES PER TABLE OR 
ARRAY IN COLUMNS 36-39, 
ASSUME 05. 

Severity: Terminal 

Specification Type: E 

Explanation: The entry in columns 36 through 39 is 
missing or it is not a one- to four-digit number 
(1-9999). 05 is assumed, but the job is 
terminated. 

RPG-0071 NUMBER OF ENTRIES PER 

RECORD IN COLUMNS 33-35 
EXCEEDS NUMBER OF ENTRIES 
PER TABLE/ARRAY IN COLUMNS 
36-39. 

Seventy: Terminal 

Specification Type: E 



RPG Messages B-7 



RPG-0072 INVALID OR MISSING LENGTH 
OF ENTRY IN COLUMNS 40-42 
OR 52-54, ASSUME 05. 

Severity: Terminal 

Specification Type: E 

Explanation: The length of entry specified is missing 
or is not a one- to three-digit number (1-15 for 
numeric entries; 1 -256 for alphabetic entries). 05 
is assumed, but the job is terminated. 

RPG-0073 LENGTH SPECIFIED FOR EACH 
TABLE/ARRAY RECORD, IN 
COLUMNS 33-35 AND 40-42 OR 
52-54, EXCEEDS RECORD 
LENGTH. 

Severity: Terminal 

Specification Type: E 

Explanation: The table record length specified (length 
of entry times number of entries per record) is 
greater than the record length you specified for the 
table file in the file description specifications. 

RPG-0074 INVALID PACKED OR BINARY 
ENTRY IN COLUMN 43 OR 55, 
ASSUME BLANK. 

Seventy: Warning 

Specification Type: E 

Explanation: The entry in column 43 or column 55 of 
the extension specifications is not P, B, or blank. 

RPG-0075 PACKED OR BINARY VALID ONLY 
FOR PRE-EXECUTION TIME 
TABLES OR ARRAYS. 

Seventy: Terminal 

Specification Type: E 

Explanation: Packed or binary format can be specified 
(column 43 or column 55) only for 
preexecution-time tables or arrays. Blank is 
assumed, but the job is terminated. 



RPG-0076 INVALID DECIMAL POSITION 
ENTRY IN COLUMN 44 OR 56, 
ASSUME 0. 

Severity: Terminal 

Specification Type: E 

Explanation: The decimal position entry in column 44 
or column 56 is not 0-9 or blank. Zero is 
assumed, but the job is terminated. 

RPG-0077 INVALID SEQUENCE ENTRY IN 
COLUMN 45 OR 57, ASSUME 
BLANK. 

Severity: Terminal 

Specification Type: E 

Explanation: The sequence entry in column 45 or 
column 57 is not A, D, or blank. Blank is 
assumed, but the job is terminated. 



RPG-0079 



INVALID ALTERNATE 
TABLE/ARRAY NAME IN 
COLUMNS 46-51. 



Severity: Terminal 

Specification Type: E 

Explanation: The table or array name in columns 46 
through 51 was not specified properly. The table 
or array name must start in column 46. A table 
name must begin with TAB. 

RPG-0080 ALTERNATE TABLE/ARRAY 
NAME IN COLUMNS 46-51 
AND/OR 27-32 MISSING FOR 
ENTRIES IN COLUMNS 33-45 
AND/OR 52-57, ASSUME 
COLUMNS 33-57 AND/OR 46-57 
BLANK. 

Seventy: Terminal 

Specification Type: E 

Explanation: Columns 52 through 57 contain entries 
describing an alternating table or array, but no 
alternating table or array name was specified in 
columns 46 through 51 or no table or array name 
was specified in columns 27 through 32. 
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RPG-0082 LENGTH OF TABLE/ARRAY IN 

COLUMNS 40-42 OR 52-54 FOR 
ALPHAMERIC FIELD EXCEEDS 
MAXIMUM. 

Severity: Terminal 

Specification Type: E 

Explanation: The length of table or array entry 

specified in columns 40 through 42 or 52 through 
54 is too large. 256 is assumed for noncompile 
time tables or arrays; a record length of 96 is 
assumed for compile time tables or arrays. 

RPG-0083 LENGTH OF TABLE/ARRAY 

ENTRY IN COLUMNS 40-42 OR 
52-54 FOR NUMERIC FIELD 
EXCEEDS 15, ASSUME 15. 

Severity: Terminal 

Specification Type: E 



RPG-0086 FILENAME IN COLUMNS 7-14 
DOES NOT REFER TO PRINTER 
FILE. 

Seventy: Terminal 

Specification Type: L 

RPG-0087 FORM LENGTH ENTRY IN 

COLUMNS 15-17 INVALID OR 
GREATER THAN 255. 

Severity: Terminal 

Specification Type: L 

RPG-0088 INVALID OR MISSING FORMS 
LENGTH ENTRY IN COLUMNS 
18-19, ASSUME FL 

Severity: Warning 

Specification Type: L 



RPG-0084 FILE AND RECORD TYPE ENTRIES 
COLUMNS 7-42 AND FIELD TYPE 
ENTRIES COLUMNS 43-74 ON 
THE SAME LINE, ASSUME 7-42 
BLANK. 

Severity: Terminal 

Specification Type: I 

Explanation: Field type entries (columns 43 through 
74) are not specified one line lower than file and 
record type entries (columns 7 through 42). 

RPG-0085 INVALID, MISSING OR 

UNDEFINED FILENAME OR DATA 
STRUCTURE. 

Severity: Terminal 

Specification Type: L, I, C 

Explanation: Either (1) the filename was missing, (2) 
the filename was not specified properly, or (3) the 
filename was. not previously defined in the file 
description specifications. 

This message is issued when the entries in 
columns 7 through 14 of the input specifications 
are not in the filename table or the name table (for 
data structure), or the name is invalid (for example, 
more than 6 characters used for data structure). 



RPG-0089 OVERFLOW LINE ENTRY IN 

COLUMNS 20-22 INVALID OR 
GREATER THAN 255. 

Severity: Terminal 

Specification Type: L 

RPG-0090 INVALID OR MISSING 

OVERFLOW LINE ENTRY IN 
COLUMNS 23-24, ASSUME OL 

Severity: Warning 

Specification Type: L 

RPG-0091 OVERFLOW LINE IN COLUMNS 
20-22 EXCEEDS FORM LENGTH 
IN COLUMNS 15-17, ASSUME 
FORM LENGTH. 

Seventy: Terminal 

Specification Type: L 

RPG-0092 INVALID OR UNDEFINED 

FILENAME IN COLUMNS 7-14. 

Seventy: Terminal 

Specification Type: L, I, C, 

Explanation: The filename entry is not specified 

properly, or it was not previously defined in the file 
description specifications. 
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RPG-0093 FILE AND RECORD TYPE ENTRIES 
IN COLUMNS 7-42 AND FIELD 
TYPE ENTRIES IN COLUMNS 
43-74. 

Severity: Terminal 

Specification Type: I 

Explanation: Field description entries (columns 43 
through 74) are not specified one line lower than 
file and record identification entries (columns 7 
through 42). Field type entries (columns 43 
through 74) are assumed to be blank and the job 
is terminated. 

RPG-0094 FILE AND RECORD TYPE 

DESCRIPTION MUST PRECEDE 
THIS SPECIFICATION. 

Severity: Terminal 

Specification Type: I 

Explanation: File and record type entries in columns 7 
through 42 do not precede the related field 
description entries in columns 43 through 74. 
Enter the file and record type entries in columns 7 
through 42 of the specifications line immediately 
preceding the related field description entries in 
columns 43 through 74. 

RPG-0095 AND OR OR LINE OUT OF 
ORDER. 

Severity: Terminal 

Specification Type: I, C 

Explanation: The AND or OR line does not follow the 
proper file or record type entries or is on the first 
line of the calculation specifications. (The system 
may have dropped your file and record type 
specifications because of other errors in your 
program.) 

RPG-0096 AND LINE FOLLOWS LINE WITH 
NO RECORD IDENTIFICATION 
CODES. 

Severity: Terminal 

Specification Type: I 



RPG-0097 NO FIELD DESCRIBED FOR THIS 
OR PREVIOUS RECORD OR DATA 
STRUCTURE. IF DATA 
STRUCTURE, LENGTH DEFAULTS 
TO ONE. 

Severity: Warning 

Specification Type: I 

RPG-0098 INVALID SEQUENCE ENTRY IN 
COLUMNS 15-16, ASSUME 
ALPHABETIC SEQUENCE ENTRY. 

Severity: Warning 

Specification Type: I 

Explanation: The sequence entry in columns 15 and 
16 is neither a two-digit number nor a 2-character 
alphabetic entry; or numeric entry is invalid for 
device type or file type. 

RPG-0101 NUMERIC SEQUENCE ENTRY IN 
COLUMNS 15-16 NOT IN 
ASCENDING ORDER OR THE 
FIRST IS NOT 01, ASSUME 
PREVIOUS NUMERIC SEQUENCE 
OR 01 IF FIRST NUMERIC 
RECORD. 

Seventy; Warning 

Specification Type: I 

Explanation: Either the first numeric sequence entry is 
not 01 or the numeric sequence entries are not in 
ascending order. If this is the first numeric 
sequence entry, 01 is assumed; otherwise, the 
numeric sequence entry from the previous 
specification line is assumed. 

RPG-0102 INVALID NUMBER ENTRY IN 
COLUMN 17 FOR NUMERIC 
SEQUENCE, ASSUME N. 

Severity: Warning 

Specification Type: I 

Explanation: The number entry in column 17 is 
neither 1 nor N. 
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RPG-0103 INVALID OPTION ENTRY IN 
COLUMN 18 FOR NUMERIC 
SEQUENCE, ASSUME 0. 

Severity: Warning 

Specification Type: I 

Explanation: The option entry (column 18) must be 
blank, 0, or U (if DS has been specified in 
columns 19 and 20 of the input specifications). 

RPG-0104 NUMBER/OPTION ENTRIES IN 

COLUMNS 17-18 INVALID WITH 
ALPHAMERIC SEQUENCE 
ENTRIES. ENTRIES NOT 
SPECIFIED CORRECTLY FOR 
DATA STRUCTURES. 

Severity: Terminal 

Specification Type: I 

Explanation: Columns 17 and 18 must be blank when 
columns 15 and 16 contain an alphabetic sequence 
entry. 

Column 17 must be blank for a data structure. 
Column 18 must be blank or contain a U for a 
data structure specified as the display station local 
data area. 

RPG-0105 NUMBER/OPTION ENTRIES IN 
COLUMNS 17-18 INVALID FOR 
AND OR OR LINE, ASSUME 
BLANK. 

Severity: Warning 

Specification Type: I 

Explanation: Columns 17 and 18 must be blank in an 
AND or OR line. 

RPG-0106 INVALID POSITION ENTRY FOR 

RECORD IDENTIFICATION CODES 
IN COLUMNS 21-24, 28-31, OR 
35-38, OR TO POSITION 
COLUMNS 48-51, ASSUME 1. 

Severity: Terminal 

Specification Type: I 

Explanation: The position entry for record 

identification codes or the to position for a field 
exceeds the record length. 



RPG-0107 INVALID NOT ENTRY IN COLUMN 
25, 32, OR 39, ASSUME N. 

Seventy: Warning 

Specification Type: I 

Explanation: The entry in column 25, 32, or 39 is not 
N or blank. 

RPG-0108 INVALID C/Z/D ENTRY IN 

COLUMN 26, 33, OR 40, ASSUME 
C. 

Severity: Warning 

Specification Type: I 

RPG-0111 INVALID ENTRY IN COLUMN 43, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: I 

Explanation: The entry in column 43 is not P, B, or 
blank. 

RPG-0112 INVALID OR BLANK FROM 

AND/OR TO ENTRY OR INVALID 
USE OF A KEYWORD, COLUMNS 
44-51 AND 52, ASSUME 1 FOR 
FROM AND TO POSITIONS. 

Seventy: Terminal 

Specification Type: I 

Explanation: Columns 44 through 47 and /or 48 
through 51 do not contain an entry from 1 to 
4096; or for the WORKSTN file information data 
structure (INFDS), columns 44 through 50 do not 
contain "RECORD, "OPCODE, "SIZE, "MODE, 
*INP, *OUT, or "STATUS or the keywords are 
specified incorrectly. Columns 51 and 52 must be 
blank if a keyword is specified. 

RPG-0113 FROM ENTRY IN COLUMNS 

44-47 EXCEEDS TO ENTRY IN 
COLUMNS 48-51, ASSUME TO 
ENTRY EQUAL TO FROM ENTRY. 

Severity: Terminal 

Specification Type: I 
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RPG-0114 LENGTH OF NUMERIC FIELDS IN 
COLUMNS 44-51 EXCEEDS 15, 
ASSUME 15. 

Severity: Terminal 

Specification Type: I 

RPG-0115 ALPHAMERIC FIELD SPECIFIED 
AS PACKED OR BINARY, 
ASSUME NUMERIC FIELD. 

Severity: Terminal 

Specification Type: I 

Explanation: Leave column 43 blank for alphameric 
fields, or make an entry (0-9) in column 52 for 
numeric fields. 

RPG-0116 INVALID DECIMAL POSITION 

ENTRY IN COLUMN 52, ASSUME 
0. 

Severity: Terminal 

Specification Type: I 

Explanation: The decimal position entry in column 52 
is not 0-9 or blank. 

RPG-0117 DECIMAL POSITION IN COLUMN 
52 INVALID FOR ARRAY, 
ASSUME BLANK. 

Seventy: Warning 

Specification Type: I 

Explanation: No decimal position entry can be 
specified in column 52 for an array. Decimal 
positions for arrays must be specified in your 
extension specifications. 

RPG-0118 FIELD NAME IN COLUMNS 53-58 
MISSING OR INVALID. 

Seventy: Terminal 

Specification Type: I 

Explanation: The field name entry in columns 53 
through 58 is missing or is not specified properly. 
An array element or a table name cannot be 
specified in a data structure. 



RPG-0119 INVALID CONTROL LEVEL 

INDICATOR IN COLUMNS 59-60, 
ASSUME BLANK. 

Severity: Terminal 

Specification Type: I 

Explanation: The control level entry in columns 59 
and 60 is neither L1-L9 nor blank. Blank is 
assumed, but the job is terminated. 

RPG-0120 INVALID MATCHING FIELD 
ENTRY IN COLUMNS 61-62, 
ASSUME M1. 

Severity: Terminal 

Specification Type: I 

Explanation: The matching field entry in columns 61 
and 62 is not M1-M9 or blank. M1 is assumed, 
but the job is terminated. 

RPG-0121 FROM FILE CANNOT HAVE AN E 
IN COLUMN 17 OF FILE 
DESCRIPTION SPECIFICATION 
WHEN TO FILE IS A DEMAND 
FILE. 

Severity: Terminal 

Specification Type: E 

Explanation: End of file, E in column 1 7 of the file 
description specifications, cannot be used for a 
record address file that is used to process a 
demand file. Leave column 17 blank. 

RPG-0122 FIELD WAS PREVIOUSLY 

DEFINED WITH DIFFERENT 
LENGTH OR DECIMAL 
POSITIONS, OR FIELD WAS 
ALREADY DEFINED IN ONE DATA 
STRUCTURE. FIRST DEFINITION 
IS ASSUMED, OR FIELD IS NOW 
DEFINED AS A LOOK AHEAD 
FIELD. 

Severity: Warning 

Specification Type: I, C 
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RPG-0123 INVALID CONTROL LEVEL ENTRY 
IN COLUMNS 7-8. 

Severity: Terminal 

Specification Type: C 

Explanation: The control level entry in columns 7 and 
8 is not AN, OR, L0-L9, LR, SR, or blank. 

RPG-0124 INVALID NOT ENTRY IN COLUMN 
9, 12, OR 15, ASSUME N. 

Seventy: Warning 

Specification Type: C 

Explanation: The entry in column 9, 12, or 15 is not 
N or blank. 

RPG-0125 INVALID FIELD NAME OR 

CONSTANT FOR FACTOR 1 IN 
COLUMNS 18-27. 

Severity: Terminal 

Specification Type: C, H 

Explanation: The field name or constant in columns 
18 through 27 of the calculation specification is 
not specified properly. Both must begin in column 
18. If a constant contains ideographic data, you 
may have forgotten to code the transparent literal 
option in column 57 of the control specification. 

RPG-0126 LENGTH OF TABLE/ARRAY 

EXCEEDS MAXIMUM STORAGE. 

Severity: Terminal 

Specification Type: E 

Explanation: The number of entries per table/array 
(columns 36 through 39) multiplied by the length 
of entry (columns 40 through 42) exceeds 
maximum storage. Reduce the number of entries 
or the length of the entries. 



RPG-0128 INVALID OPERATION CODE IN 
COLUMNS 28-32. 

Severity: Terminal 

Specification Type: C 

RPG-0129 FACTOR 2 FIELD NAME IN 

COLUMNS 33-42 EXCEEDS SIX 
CHARACTERS. 

Severity: Terminal 

Specification Type: C 

RPG-0130 TO FILE MUST BE A LIMITS FILE 
IF FROM FILE IS A RECORD 
ADDRESS FILE, OR TO FILE 
MUST BE A RANDOM ACCESS 
FILE IF FROM FILE IS AN 
ADDROUT FILE. 

Severity: Terminal 

Specification Type: E 

RPG-0131 FACTOR 2 IN COLUMNS 33-42 
INVALID. 

Severity: Terminal 

Specification Type: C 

Explanation: The field name or constant in columns 
33 through 42 of the calculation specification is 
not specified properly. Entry must start in column 
33. If a constant contains ideographic data, you 
may have forgotton to code the transparent literal 
option in column 57 of the control specification. 

RPG-0132 FACTOR 2 MUST BE A 
FILENAME. 

Severity: Terminal 

Specification Type: C 



RPG-0127 FIELD LENGTH ENTRY IN 

COLUMNS 49-51 INVALID WITH 
NO RESULT FIELD, ASSUME 
49-51 BLANK. 

Severity: Warning 

Specification Type: C 



RPG-0133 NUMERIC FIELD LENGTH 
EXCEEDS 15, ASSUME 15. 

Severity: Terminal 

Specification Type: C 

Explanation: Length specified in columns 49 through 
51 for numeric field is too large. 
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RPG-0134 ALPHAMERIC FIELD LENGTH 
EXCEEDS 256, ASSUME 256. 

Severity: Terminal 

Specification Type: I, C 

Explanation: Length specified in columns 49 through 
51 of the calculation specifications or in columns 
44 through 51 of the input specifications for an 
alphameric field is too large. 

RPG-0135 INVALID RESULT FIELD ENTRY IN 
COLUMNS 43-53. 

Seventy: Terminal 

Specification Type: C 

RPG-0136 INVALID IDEOGRAPHIC LITERAL, 
ASSUME LITERAL IS 
ALPHAMERIC. 

Seventy: W 

Specification Type: C, 

Explanation: A literal or a constant beginning with an 
apostrophe and the S/O control character was 
found, but either no S/l control character was 
found, a S/l control character was found but was 
not immediately followed by an apostrophe, or an 
odd number of 1-byte characters were found 
between the S/O and S/l control characters. 



RPG-0139 INVALID DECIMAL POSITION 

ENTRY IN COLUMN 52, ASSUME 
0. 

Seventy: Terminal 

Specification Type: C 

Explanation: The decimal position entry in column 52 
is not 0-9 or blank. 

RPG-0140 INVALID HALF ADJUST ENTRY IN 
COLUMN 53, ASSUME H. 

Severity: Warning 

Specification Type: C 

Explanation: The half-adjust entry in column 53 is 
neither H nor blank. 

RPG-0141 DEBUG CALCULATION 

OPERATION USED BUT DEBUG 
OPTION NOT SPECIFIED IN THE 
CONTROL SPECIFICATION. 

Severity: Warning 

Specification Type: C 

Explanation: You used the DEBUG operation code in 
your calculation specifications, but you did not 
specify the DEBUG option (1 in column 15) in your 
control specifications. DEBUG operations are not 
executed. 



RPG-0137 INVALID RESULT FIELD LENGTH 
IN COLUMNS 49-51, ASSUME 15 
FOR NUMERIC OR 256 FOR 
ALPHAMERIC FIELD. 

Severity: Terminal 

Specification Type: C 
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COLUMN 52 INVALID WITH NO 
FIELD LENGTH ENTRY IN 
COLUMNS 49-51, ASSUME 
BLANK. 



Seventy: Terminal 
Specification Type: C 



RPG-0142 FILE AND RECORD 

IDENTIFICATION ENTRIES IN 
COLUMNS 7-31 AND FIELD 
DESCRIPTION ENTRIES IN 
COLUMNS 32-74 ON SAME LINE. 

Severity: Terminal 

Specification Type: 

Explanation: Your field description entries in columns 
23 through 74 are not specified one line lower 
than the file and record identification entries in 
columns 7 through 31. Blanks are assumed for 
columns 7 through 31 and the job is terminated. 
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RPG-0143 INVALID LINE TYPE ENTRY IN 
COLUMN 15. 

Severity: Terminal 

Specification Type: 

Explanation: The line type entry in column 15 is not 
H, D, T, or E. An E can be used only if an EXCPT 
operation is used in the calculation specifications. 
H is assumed; the job is terminated. 



RPG-0148 



INVALID FIELD NAME IN 
COLUMNS 32-37. 



Seventy: Terminal 

Specification Type: O 

Explanation: The field name entry in columns 32 
through 37 is not specified properly or was not 
defined previously in input or calculation 
specifications. 



RPG-0144 AND OR OR LINE NOT PRECEDED 
BY RECORD IDENTIFICATION. 

Severity: Terminal 

Specification Type: 

Explanation: An AND or OR line is not preceded by 
record identification entries in columns 15 through 
31. 

RPG-0145 INVALID SKIP/SPACE ENTRIES IN 
COLUMNS 17-22 FOR AND LINE, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: 

Explanation: Columns 17 through 22 of an AND line 
contain space/skip entries; they should be blank. 

RPG-0146 INVALID FILENAME OR ENTRY IN 
COLUMN 15 MISSING ON FIRST 
OUTPUT SPECIFICATION. 

Severity: Terminal 

Specification Type: 

Explanation: Either columns 7 through 14 contain an 
invalid filename or no line type entry was specified 
in column 15 of the specification line. 

RPG-0147 INVALID NOT ENTRY IN COLUMN 
23, 26, OR 29, ASSUME N. 

Seventy: Warning 

Specification Type: O 

Explanation: The entry in column 23, 26, or 29 is 
neither N nor blank. 



RPG-0149 



INVALID OR MISSING 
CONSTANT. 



Severity: Terminal 

Specification Type: O, H 

Explanation: The constant in columns 45 through 70 
of the output specification is not specified 
properly. If the constant contains ideographic data, 
you may have forgotten to code the transparent 
literal option in column 57 of the control 
specification. 

RPG-0150 INVALID BLANK AFTER ENTRY IN 
COLUMN 39, ASSUME BLANK. 

Seventy: Terminal 

Specification Type: 

Explanation: The blank after entry in column 39 is 
neither B nor blank. 

RPG-0151 MISSING OR INCORRECTLY 
SPECIFIED END POSITION IN 
COLUMNS 40-43, ASSUME END 
POSITION IS BLANK. 

Seventy: Warning 

Specification Type: 

RPG-0152 INVALID PACKED OR BINARY 

ENTRY IN COLUMN 44, ASSUME 
BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: The entry in column 44 is not P, B, or 
blank. 
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RPG-0153 BLANK END POSITION WAS 

SPECIFIED; END POSITION WAS 
CALCULATED. 

Seventy: Warning 

Specification Type: 

Explanation: The end position was calculated from 
the last end position specified in this record or 
from position 1 if no end positions were specified. 

RPG-0154 ENTRIES IN COLUMNS 7-22 
INVALID FOR A FIELD 
DESCRIPTION SPECIFICATION, 
ASSUME BLANK. 

Severity: Terminal 

Specification Type: 

Explanation: The file and record identification entries 
in columns 7 through 22 are not specified one line 
above the first related field description entries. 
Place your file and record identification entries 
(columns 7 through 22) one line above the field 
description entries (columns 32 through 74). 



RPG-0159 MISSING RECORD IDENTIFYING 
INDICATOR IN COLUMNS 19-20. 

Severity: Warning 

Specification Type: I 

Explanation: No record identifying indicator is 

specified in columns 19 and 20. Check your input 
specifications to determine whether or not a 
record identifying indicator should be entered in 
columns 19 and 20. 

RPG-0160 FILE NAME IN COLUMNS 7-14 

NOT SPECIFIED AS AN INPUT OR 
UPDATE-SECONDARY, DEMAND, 
PRIMARY OR CHAINED FILE. 

Severity: Terminal 

Specification Type: I 

Explanation: The file named in columns 7 through 14 
was not previously defined in file description 
specifications as an input or update file with a 
designation of primary, secondary, demand, or 
chained. 



RPG-0155 INVALID ENTRY IN COLUMNS 
71-74, ASSUME BLANK. 

Severity: Terminal 

Specification Type: I, 

Explanation: Columns 71 through 74 must be blank. 

RPG-0158 TABLE NAME INVALID FOR FIELD 
NAME ENTRY IN COLUMNS 
53-58. 

Seventy: Terminal 

Specification Type: I 



RPG-0161 AND OR OR LINE INVALID WITH 
LOOK AHEAD RECORDS, DATA 
STRUCTURES, OR RLABL. 

Severity: Terminal 

Specification Type: I, C 

Explanation: An AND or OR line was used with 
look-ahead fields or RLABL. Make sure that AND 
or OR lines are not specified for look-ahead fields 
{** in columns 19 and 20) or for RLABL. AND or 
OR lines are not valid with a data structure on 
input specifications. 

RPG-0162 RECORD IDENTIFYING 

INDICATOR IN COLUMNS 19-20 
INVALID FOR AN AND LINE. 

Severity: Warning 

Specification Type: I 

Explanation: A record identifying indicator is in 
columns 19 and 20 of an AND line. Blanks are 
assumed. 
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RPG-0163 ENTRIES IN COLUMNS 17-18 

AND 21-42 INVALID FOR LOOK 
AHEAD RECORD. ENTRIES IN 
COLUMNS 59-74 INVALID FOR 
LOOK AHEAD FIELD, OR FOR 
FIELD IN A DATA STRUCTURE. 

Severity: Terminal 

Specification Type: I 

Explanation: Columns 17 and 18 and 21 through 42 
must be blank for look-ahead records; columns 59 
through 74 must be blank for look-ahead fields. 
Entries in columns 59 through 74 are not valid for 
a field in a data structure. 

RPG-0165 INDICATORS IN COLUMNS 65-70 
INVALID FOR TABLE/ARRAY OR 
FOR FIELD DEFINED AS DATA 
STRUCTURE. 

Seventy: Terminal 

Specification Type: I 

Explanation: Field indicators cannot be used if 
columns 53 through 58 contain a table/array 
name. Use the field indicators to test numeric 
fields. Field indicators in columns 65 through 70 
are invalid with a field defined as a data structure. 

RPG-0166 PLUS OR MINUS INDICATOR IN 
COLUMNS 65-68 INVALID FOR 
ALPHAMERIC FIELD. 

Severity: Terminal 

Specification Type: I 

Explanation: A plus or minus indicator in columns 65 
through 68 cannot be used to test an alphameric 
field. Use plus or minus indicators only to test 
numeric fields. An alphameric field can be tested 
only for a blank condition (entry in columns 69 and 
70). Blank is assumed. 



RPG-0167 RECORD IDENTIFICATION 

POSITION COLUMNS 21-38 OR 
TO ENTRY IN COLUMNS 48-51 
EXCEEDS RECORD LENGTH, 
ASSUME RECORD LENGTH. 

Seventy: Terminal 

Specification Type: I 

Explanation: Field location entries (columns 21 
through 38 and 48 through 51) exceed record 
length specified in the file description 
specifications. 

RPG-0168 FIELD NAME IN COLUMNS 53-58 
IS A RESERVED WORD OTHER 
THAN PAGE, PAGE1 - PAGE7. 

Severity: Terminal 

Specification Type: I 

Explanation: PAGE1-PAGE7 are the only RPG II 
reserved words that can be entered in these 
columns. 

RPG-0169 CONTROL OR MATCHING FIELDS 
INVALID FOR AN ARRAY OR 
DATA STRUCTURE. 

Severity: Terminal 

Specification Type: I 

Explanation: Control or matching fields must not be 
specified for arrays. Columns 59 and 60 control 
levels and columns 61 and 62 matching fields are 
not valid for a data structure. 

RPG-0170 MATCHING OR CONTROL FIELDS 
INVALID WITH DEMAND OR 
CHAIN FILES OR WORKSTN 
DEVICE. 

Severity: Terminal 

Specification Type: I 

Explanation: Matching or control fields cannot be 
specified for demand or chain files or WORKSTN 
device. 
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RPG-0171 LOOK AHEAD RECORDS INVALID 
WITH FILE TYPE, OR WITH THIS 
DEVICE. 

Severity: Terminal 

Specification Type: I 

Explanation: Look-ahead records cannot be specified 
for demand files, chained files, CONSOLE files, or 
WORKSTN files. 

RPG-0172 INCORRECT SEQUENCE OF 

INPUT SPECIFICATIONS. IF DATA 
STRUCTURE SPECIFIED IT MUST 
BE LAST INPUT SPECIFIED. 

Severity: Terminal 

Specification Type: I 

Explanation: All records from one input or update file 
are not specified consecutively. A data structure 
must be specified last on the input specifications. 

RPG-0173 NO FIELDS SPECIFIED FOR LOOK 
AHEAD RECORD. 

Severity: Terminal 

Specification Type: I 

Explanation: A look-ahead record is specified (** in 
columns 19 and 20), but no look-ahead fields are 
defined (columns 53 through 58). 

RPG-0174 LIMITS FILE NOT PROCESSED BY 
RECORD ADDRESS FILE OR 
SETLL OPERATION CODE. 

Severity: Terminal 

Specification Type: F, C 

Explanation: A file is designated to be processed 
sequentially within limits, but does not have a 
record address file or a SETLL operation code 
associated with it. 

RPG-0175 INVALID FILE TYPE FOR SETLL 
OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: The file to be processed by a SETLL 
operation code must be a limits file that has not 
already been specified to be processed via a 
record address file. 



RPG-0178 BINARY INVALID WITH CONTROL 
OR MATCHING FIELDS. 

Severity: Terminal 

Specification Type: I 

Explanation: Binary fields have been used as control 
or matching fields. 

RPG-0179 ARRAY LENGTH SPECIFIED IN 
DATA STRUCTURE NOT LARGE 
ENOUGH TO CONTAIN ARRAY 
AS SPECIFIED IN EXTENSION 
SPECS. 

Severity: Terminal 

Specification Type: I 

RPG-0180 ARRAY LENGTH EXCEEDS 

LENGTH SPECIFIED IN COLUMNS 
36-42 OF EXTENSION 
SPECIFICATIONS OR NOT A 
MULTIPLE OF THE ENTRY 
LENGTH IN COLUMNS 40-42 OF 
THE EXTENSION 
SPECIFICATIONS. 

Severity: Terminal 

Specification Type: I 

RPG-0181 INCONSISTENT FIELD LENGTHS 
FOR CONTROL OR MATCHING 
FIELDS OF ONE LEVEL. ASSUME 
FIRST VALID LENGTH. 

Severity: Terminal 

Specification Type: I 

RPG-0182 INVALID SPLIT CONTROL FIELD 
SPECIFICATION. ASSUME 
PREVIOUS TOTAL LENGTH FOR 
THIS LEVEL. 

Severity: Terminal 

Specification Type: I 

Explanation: Specifications for split control fields of 
the same level are not specified on successive 
lines. 
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RPG-0183 CONTROL OR MATCHING FIELDS 
OF A LEVEL SPECIFIED AS BOTH 
ALPHAMERIC AND NUMERIC. 
ASSUME NUMERIC. 

Severity: Warning 

Specification Type: I 

Explanation: All control and matching fields assigned 
the same level are not the same type (alphameric 
or numeric). Numeric is assumed for all fields 
assigned the same control or matching level. If 
any field specified as alphameric is greater than 15 
characters, only a portion of the field will be used. 

RPG-0184 ALL OF THE VALID MATCH 

LEVELS WERE NOT REFERENCED 
IN THE LAST RECORD GROUP. 

Severity: Terminal 

Specification Type: I 

Explanation: The same number of match levels are 
not specified to all record types in a file. 

RPG-0186 MATCH OR CONTROL FIELDS 

WITHOUT FIELD RECORD RELATION 
ENTRIES MUST PRECEDE MATCH OR 
CONTROL FIELDS WITH FIELD 
RECORD RELATION ENTRIES. 
ASSUME PART OF A NEW GROUP 
OF MATCH FIELDS. 

Severity: Terminal 

Specification Type: I 

RPG-0187 MATCH AND CONTROL FIELDS 
WITH FIELD RECORD RELATION 
ENTRIES MUST BE GROUPED 
ACCORDING TO THE FIELD 
RECORD RELATION INDICATOR. 
ASSUME NEW GROUP OF 
MATCH FIELDS. 

Severity: Terminal 

Specification Type: I 

Explanation: When field record relation is used, all 
match and control fields assigned the same 
indicator (columns 63 and 64) must be grouped 
together. 



RPG-0188 FIELD RECORD RELATION 

INDICATOR USED IMPROPERLY 
WITH MATCH OR CONTROL 
FIELD. 

Severity: Terminal 

Specification Type: I 

Explanation: When used with match or control fields, 
the field record relation indicator in columns 63 
and 64 does not match a record identifying 
indicator used for this record. 

RPG-0189 INVALID SEQUENCE FOR 

CALCULATION SPECIFICATIONS. 

Severity: Terminal 

Specification Type: C 

Explanation: Calculation specifications must be 
specified in the following order: detail, total, 
subroutine. 

RPG-0190 INVALID SEQUENCE FOR BEGSR 
AND ENDSR OPERATION CODES. 

Seventy: Terminal 

Specification Type: C 

Explanation: BEGSR operation code does not precede 
ENDSR operation code. 

RPG-0191 A SUBROUTINE MUST NOT CALL 
ITSELF. 

Severity: Terminal 

Specification Type: C 

Explanation: An EXSR specification within a 

subroutine must not call the subroutine it is in. If 
you wish to branch to another point within the 
same subroutine, use a GOTO and TAG operation. 

RPG-0192 BRANCHING BETWEEN 

SUBROUTINE AND OTHER 
CALCULATIONS INVALID. 

Severity: Terminal 

Specification Type: C 

Explanation: Branching (GOTO and TAG) can only 
occur within a subroutine. You cannot branch into 
a subroutine or out of a subroutine. 
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RPG-0193 BRANCHING BETWEEN DETAIL, 
TOTAL AND LR CALCULATIONS 
INVALID. 

Severity: Terminal 

Specification Type: C 

Explanation: Branching must be from detail operation 
to detail operation or from total operation to total 
operation. It cannot be from detail to total 
operation or vice versa. 

RPG-0194 SETOF OPERATION INVALID FOR 
LR INDICATOR. 

Severity: Terminal 

Specification Type: C 

Explanation: The LR indicator cannot be turned off by 
the SETOF operation code. 

RPG-0195 LENGTH OF SEARCH WORD NOT 
EQUAL TO LENGTH OF ELEMENT 
IN TABLE OR ARRAY. 

Severity: Terminal 

Specification Type: C 

Explanation: The length of the search word (factor 1 ) 
is not equal to the length of the element in the 
table or array being searched. 

RPG-0196 FACTOR 2 OR RESULT FIELD 

INVALID FOR LOKUP OPERATION 
CODE. 

Severity: Terminal 

Specification Type: C 

RPG-0197 SEARCH TABLE HAS MORE 
ENTRIES THAN ITS RELATED 
TABLE. 

Severity: Warning 

Specification Type: C 

Explanation: The search table (factor 2) contains more 
entries than its related table, which is specified in 
the result field. 



RPG-0198 INDICATOR ENTERED IN 

COLUMNS 54-57 INVALID WITH 
LOKUP ON AN UNSEQUENCED 
TABLE OR ARRAY. 

Severity: Warning 

Specification Type: C 

Explanation: Do not specify a search for high or low 
in a LOKUP operation on an unsequenced table or 
array. Unpredictable results may occur. Specify 
the LOKUP operation on an unsequenced table or 
array for an equal condition only (indicator in 
columns 58 and 59). The system accepts the 
indicator as specified. 

RPG-0199 TEST FOR BOTH HIGH AND LOW 
INVALID FOR LOKUP OPERATION. 

Severity: Terminal 

Specification Type: C 

RPG-0200 RESULTING INDICATORS IN 

COLUMNS 54-59 REQUIRED OR 
NOT ALLOWED FOR OPERATION 
SPECIFIED. 

Severity: Terminal 

Specification Type: C 

Explanation: The resulting indicator entry in columns 
54 through 59 is not specified properly. Check to 
determine whether resulting indicators are required 
for this operation. If so, make the proper entries 
(01-99, H1-H9, L1-L9, LR, OA-OG, OV, or 
KA-KN, KP-KY). 

RPG-0201 HALF ADJUST ENTRY IN 

COLUMN 53 FOR DIVISION 
OPERATION FOLLOWED BY AN 
MVR OPERATION, ASSUME NO 
HALF ADJUST. 

Severity: Warning 

Specification Type: C 

Explanation: When an MVR operation follows a DIV 
operation, the DIV operation must not be 
half-adjusted. 
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RPG-0202 MVR OPERATION CODE DOES 
NOT FOLLOW DIV OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: The MVR operation must immediately 
follow a DIV operation. 

RPG-0204 HALF ADJUST ENTRY IN 
COLUMN 53 INVALID FOR 
OPERATION OR NUMBER OF 
DECIMAL POSITIONS SPECIFIED, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: C 

RPG-0205 COMP, TESTZ, OR MVR INVALID 
FOR AN ARRAY. 

Severity: Terminal 

Specification Type: C 

RPG-0206 INVALID USE OF COMP OR 
LOKUP. 

Severity: Terminal 

Specification Type: C 

Explanation: COMP or LOKUP operation specified 
improperly. Make sure that factor 1 and factor 2 
of a COMP operation are both alphameric or both 
numeric. Make sure the search word and the table 
or array to be searched are both alphameric or 
both numeric. 

RPG-0207 FIELD TYPE, ALPHAMERIC OR 
NUMERIC, INVALID FOR 
OPERATION SPECIFIED. 

Severity: Terminal 

Specification Type: C 

RPG-0208 FORCE OPERATION INVALID AT 
TOTAL TIME. 

Severity: Terminal 

Specification Type: C 

Explanation: FORCE operation must be specified at 
detail time only. 



RPG-0209 FILE TYPE INVALID FOR USE 
WITH THIS OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: DEBUG must be used with an output 
file; EXCPT must be used with an output file or a 
combined file; FORCE must be used with an input, 
update, or combined primary or secondary file. 
READ must be used with an input, update, or 
combined demand file. 

RPG-0211 DEBUG SPECIFIED FOR MORE 
THAN ONE OUTPUT FILE. 

Severity: Terminal 

Specification Type: C 

Explanation: The filename entered in factor 2 is not 
the same for all DEBUG operations. 

RPG-0212 EXCPT OPERATION CODE 
SPECIFIED BUT NO EXCPT 
OUTPUT RECORDS SPECIFIED. 

Severity: Warning 

Specification Type: C 

Explanation: The EXCPT operation code is used, but 
no EXCPT records are specified (E in column 15 of 
the output specifications). 

RPG-0213 PROGRAM CONTAINS 

UNASSOCIATED OR MISSING 
EXSR/BEGSR LABEL. 

Severity: Terminal 

Specification Type: C 

Explanation: The label in factor 2 of an EXSR 
operation is not the same as the label in factor 1 
of a BEGSR operation. 

RPG-0214 GOTO BRANCHES TO A BEGSR 
NAME. 

Severity: Terminal 

Specification Type: C 

Explanation: The label in factor 2 of a GOTO 

operation must be the same as the label in factor 
1 of a TAG or ENDSR operation. The EXSR 
operation must be used to call a subroutine. 
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RPG-0215 FACTOR 1 ENTRY IN COLUMNS 
18-27 MISSING. 

Severity: Terminal 

Specification Type: C 

RPG-0216 FACTOR 1 ENTRY IN COLUMNS 
18-27 INVALID FOR THIS 
OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: For this operation either an entry must 
not be specified in factor 1, factor 1 must not be 
an alphameric literal, or factor 1 must not be a 
figurative constant. 

RPG-0217 FACTOR 2 ENTRY IN COLUMNS 
33-42 MISSING. 

Severity: Terminal 

Specification Type: C 

RPG-0218 FACTOR 2 ENTRY IN COLUMNS 
33-42 INVALID FOR THIS 
OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: Either an entry must not be specified in 
factor 2, factor 2 must not be an alphameric literal, 
or factor 2 must not be a figurative constant for 
this operation. Otherwise, the entry specified for 
the ENDSR operation code for the INFSR 
subroutine is invalid. (Valid entries are *DETC, 
*GETIN, and *CANCL) 

RPG-0219 RESULT FIELD ENTRY IN 

COLUMNS 43-48 MISSING. 

Severity: Terminal 

Specification Type: C 



RPG-0220 RESULT FIELD ENTRY IN 

COLUMNS 43-48 INVALID FOR 
THIS OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: An entry must not be specified in the 
result field for this operation. 

RPG-0221 RESULT FIELD LENGTH MAY NOT 
BE LARGE ENOUGH. 

Severity: Warning 

Specification Type: C 

Explanation: The result field may not be large enough 
for the calculation operation specified. Depending 
on the contents of the field, significant digits may 
be lost or unpredictable results may occur. 

RPG-0223 SUBROUTINE SPECIFICATIONS 
ARE THE ONLY CALCULATION 
SPECIFICATIONS SPECIFIED. 

Severity: Terminal 

Specification Type: C 

Explanation: Subroutine specifications do not follow 
detail and total calculations. 

RPG-0224 A ZERO CONSTANT IS INVALID 
AS A DIVISOR IN COLUMNS 
33-42. 

Severity: Terminal 

Specification Type: C 

Explanation: The constant entered in factor 2 of a 
DIV operation must not be zero. 

RPG-0225 CONDITIONING INDICATORS IN 
COLUMNS 9-17 INVALID WITH 
TAG, BEGSR, ENDSR OR RLABL 
OPERATION. 

Severity: Terminal 

Specification Type: C 
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RPG-0226 A RESERVED WORD OTHER 
THAN PAGE INVALID. 

Seventy: Terminal 

Specification Type: C, I, O 

Explanation: No reserved word other than PAGE or 
PAGE1-or PAGE7 can be specified as a result 
field. CONTD is a reserved word, for compatibility 
with other systems. Make sure no reserved word 
other than PAGE or PAGE1-PAGE7 is specified in 
columns 43 through 48 as the result field. 

RPG-0227 RESULT FIELD IN COLUMNS 

43-48 IS A LOOK AHEAD FIELD 
OR CONSTANT. 

Severity: Terminal 

Specification Type: C 

Explanation: The result field must not be a look 
ahead field or a constant. 

RPG-0228 INVALID INDEX. 

Seventy: Terminal 

Specification Type: C 

Explanation: The array index is not specified properly. 
The index field name must contain a valid 
combination of characters. The index constant or 
field value must be a positive number that does 
not exceed the number of elements in the array 
and that has zero decimal positions. 

RPG-0229 INDEXING INVALID FOR TABLES 
OR FIELDS. 

Severity: Terminal 

Specification Type: C 

Explanation: Indexing can be specified for arrays only. 

RPG-0231 GOTO DOES NOT BRANCH TO A 
TAG. 

Severity: Terminal 

Specification Type: C 

Explanation: The label in factor 2 of this GOTO 
operation is not the same as the label in factor 1 
of a TAG or ENDSR operation. 



RPG-0232 THIS NAME WAS PREVIOUSLY 
USED ON A TAG, BEGSR OR 
ENDSR. 

Severity: Terminal 

Specification Type: C 

Explanation: The label in factor 1 was previously 
specified in another TAG, BEGSR, or ENDSR 
operation. 

RPG-0233 CONFIGURATION, COLUMN 15 
CONTAINS AN ENTRY OTHER 
THAN P, S, M OR BLANK. IF 
CONTROL/TRIBUTARY, COLUMN 
17 IS BLANK, ASSUME 
SWITCHED NETWORK. IF 
COLUMN 17 IS NOT BLANK, 
ASSUME MULTIPOINT 
NETWORK. 

Severity: Terminal 

Specification Type: T 

RPG-0234 TRANSMITTER/RECEIVER, 
COLUMN 16, DOES NOT 
CONTAIN T OR R. 

Seventy: Terminal 

Specification Type: T 

Explanation: The type of station entry in column 16 is 
neither T nor R. Enter T (for a transmitter station) 
or R (for a receiver station). 

RPG-0235 CONTROL/TRIBUTARY, COLUMN 
17, CONTAINS A CHARACTER 
OTHER THAN T OR BLANK. IF 
THIS IS A SWITCHED OR POINT 
TO POINT NETWORK, ASSUME 
BLANK. IF MULTIPOINT ASSUME 
T. 

Severity: Warning 

Specification Type: T 

Explanation: The type of control entry in column 1 7 is 
neither T nor blank. Blank is assumed if this is a 
switched network or a point-to-point leased line 
(column 15 contains an S or P); T is assumed if 
this is a multipoint leased line (column 15 contains 
an M). 
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RPG-0236 ASCII/EBCDIC, COLUMN 18, IS 
NOT U, A, E, OR BLANK. 
ASSUME EBCDIC. 

Severity: Warning 

Specification Type: T 

Explanation: The type of code entry in column 18 is 
not U or A for ASCII, or E or blank for EBCDIC. 

RPG-0237 TRANSPARENT FEATURE, 

COLUMN 19, IS NOT Y, N, OR 
BLANK. ASSUME NO 
TRANSPARENCY. 

Severity: Warning 

Specification Type: T 

Explanation: The entry in column 19 is not Y for 
transparency or N or blank for no transparency. 

RPG-0238 INVALID ENTRY IN COLUMN 20, 
MUST CONTAIN AN A, B, M, OR 
BLANK. 

Severity: Terminal " 

Specification Type: T 

Explanation: The entry in column 20 is not M, A, B, 
or blank. The system ignores entries in columns 
21 through 31. 

RPG-0239 ENTRY FOR DIAL NUMBER, 
COLUMNS 21-31, IS NOT 
ALLOWED. 

Severity: Terminal 

Specification Type: T 

RPG-0240 IDENTIFICATION TYPE FOR THIS 
STATION, COLUMN 32, IS NOT S, 
E, OR BLANK. COLUMNS 33-39 
WILL NOT BE CHECKED. 

Severity: Warning 

Specification Type: T 



RPG-0241 IDENTIFICATION FOR THIS 
STATION, COLUMNS 33-39, 
CONTAIN AN INVALID ENTRY 
FOR THE IDENTIFICATION TYPE 
INDICATED IN COLUMN 32. 

Seventy: Terminal 

Specification Type: T 

Explanation: The identification entry in columns 33 
through 39 is invalid for the identification type 
specified in column 32. Enter identification 
sequence in columns 33 through 39 if column 32 
contains an E; enter symbolic name in columns 33 
through 39 if column 32 contains an S. 

RPG-0242 IDENTIFICATION TYPE FOR THE 
REMOTE STATION, COLUMN 40, 
IS NOT S, E, OR BLANK. 
COLUMNS 41-47 WILL NOT BE 
CHECKED. 

Severity: Warning 

Specification Type: T 

RPG-0243 REMOTE STATION 

IDENTIFICATION IN COLUMNS 
41-47, IS INVALID FOR THE 
IDENTIFICATION TYPE GIVEN IN 
COLUMN 40. 

Severity: Terminal 

Specification Type: T 

RPG-0244 COLUMNS 48-51 AND/OR 65-70 
MUST BE BLANK. 

Severity: Terminal 

Specification Type: T 

RPG-0245 ITB, COLUMN 52, IS NOT I OR 
BLANK. ASSUME I. 

Severity: Warning 

Specification Type: T 
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RPG-0246 PERMANENT ERROR INDICATOR, 
COLUMNS 53-54, IS INVALID. 

Seventy: Terminal 

Specification Type: T 

Explanation: The indicator specified in columns 53 
and 54 is not 01-99, L1-L9, LR, or H1-H9. 

RPG-0247 WAIT TIME, COLUMNS 55-57, IS 
INVALID. ASSUME SYSTEM 
CONVENTION FOR TIMEOUT, 180 
SECONDS. 

Seventy: Warning 

Specification Type: T 

Explanation: The wait time entry specified in columns 
55 through 57 is not 1 -999 or blank. 

RPG-0248 RECORD AVAILABLE INDICATOR, 
COLUMNS 58-59, IS INVALID. 

Seventy: Terminal 

Specification Type: T 

Explanation: The record available indicator specified 
in columns 58 and 59 is not 01-99, L1-L9, LR, or 
H1-H9. 

RPG-0249 LAST FILE PROCESSED, COLUMN 
60, IS NOT L OR BLANK. 

Severity: Terminal 

Specification Type: T 

Explanation: The last file processed entry in column 
60 is not L or blank. Enter L in column 60 if the 
BSCA input file must be processed last; blank if 
not. 



RPG-0250 POLLING CHARACTERS 

COLUMNS 61-62, CONTAIN AN 
INVALID CHARACTER FOR THE 
CODE TYPE ENTRY IN COLUMN 
18. 

Severity: Terminal 

Specification Type: T 

Explanation: The polling characters specified in 

columns 61 and 62 are invalid, or are missing on a 
line configuration that requires them. 

(A list of the valid polling characters is included in 
the IBM System/34 Data Communications 
Reference Manual, SC21 -7703.) 

RPG-0251 ADDRESSING CHARACTERS, 

COLUMNS 63-64, ARE INVALID 
FOR THE CODE TYPE ENTRY IN 
COLUMN 18. ENTRY IS 
IGNORED. 

Severity: Terminal 

Specification Type: T 

Explanation: The addressing characters in columns 63 
and 64 are invalid for the code type specified in 
column 18, or are missing on a line configuration 
that requires them. (A list of the valid addressing 
characters is included in the IBM SYSTEM/34 Data 
Communications Reference Manual, SC21 -7703.) 

RPG-0258 SPACE AND/OR SKIP ENTRIES IN 
COLUMNS 17-22 INVALID FOR 
DEVICE, ASSUME BLANK. 

Severity: Warning 

Specification Type: 

Explanation: The space and /or skip entries in 

columns 17 through 22 are invalid for the device. 
Leave columns 17 through 22 blank for all devices 
except CRT and PRINTER. 



RPG Messages B-25 



RPG-0259 SKIP ENTRIES IN COLUMNS 
19-22 INVALID OR GREATER 
- THAN FORM LENGTH SPECIFIED, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: The skip entries in columns 19 through 
22 are not specified properly or they exceed the 
form length in your line counter specifications. 

RPG-0260 INVALID SPACE ENTRIES IN 
COLUMNS 17-18, ASSUME 
SPACE 1 AFTER OR BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: The space entries in columns 17 and 18 
are not a number from to 3 or blank. If the 
space entries in columns 17 and 18 are invalid and 
the skip-after entry is blank, a space-after of 1 is 
assumed. When skip- and space-before entries 
are valid but space-after is not, space-after is 
assumed blank. 

RPG-0261 FETCH OVERFLOW ENTRY IN 
COLUMN 16 INVALID FOR 
DEVICE, ASSUME BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: The fetch overflow entry specified in 
column 16 is invalid for the device. Specify fetch 
overflow for printer files only. Blank is assumed; 
therefore, no fetch overflow is done. 

RPG-0262 OVERFLOW INDICATOR INVALID 
FOR AN EXCEPT RECORD. 

Severity: Terminal 

Specification Type: O 

Explanation: An overflow indicator must not be 

specified for an exception record (E in column 15). 



RPG-0263 FETCH OVERFLOW INVALID 

WITH OVERFLOW INDICATOR 
ENTERED IN COLUMNS 23-31, 
ASSUME NO FETCH. 

Severity: Warning 

Specification Type: O 

Explanation: An overflow indicator and fetch overflow 
(F in column 16) must not be specified on the 
same output line. Blank in column 16 is assumed; 
therefore, no fetch overflow is done. 

RPG-0264 OVERFLOW INDICATOR USED IS 
NOT ASSIGNED TO THIS FILE. 

Severity: Terminal 

Specification Type: O 

Explanation: The overflow indicator specified was not 
assigned to this file in your file description 
specifications. 

RPG-0265 1P INDICATOR INVALID WITH 
TOTAL OR EXCPT RECORDS. 

Severity: Warning 

Specification Type: 

Explanation: First page (1 P) indicator must not be 
specified for total or exception records. Specify 
the 1 P indicator with heading and detail records 
only. 

RPG-0266 FETCH OVERFLOW INVALID 

WITH 1P INDICATOR, ASSUME 
NO FETCH OVERFLOW. 

Severity Warning 

Specification Type: 

Explanation: A fetch overflow line (F in column 16) 
must not be conditioned by the 1 P indicator. 

RPG-0267 1P INDICATOR INVALID FOR 
COMBINED FILES. 

Severity: Terminal 

Specification Type O 
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RPG-0269 INVALID INDICATORS USED IN 
AN AND RELATIONSHIP WITH 
1P. 

Severity: Terminal 

Specification Type: O 

Explanation: Only external indicators (U1-U8) can be 
specified in an AND relationship with the 1P 
indicator. 

RPG-0270 END POSITION ENTRY IN 
COLUMNS 40-43 FOR 
CONSTANT, DATA STRUCTURE, 
EDIT WORD, FIELD, TABLE, OR 
ARRAY EXCEEDS RECORD 
LENGTH. 

Seventy; Terminal 

Specification Type: 

Explanation: The end position entry in columns 40 
through 43 exceeds the record length specified in 
your file description specifications. 

RPG-0271 LENGTH OF TABLE ELEMENT 

ARRAY, ARRAY ELEMENT, DATA 
STRUCTURE, OR FIELD EXCEEDS 
RECORD LENGTH. 

Severity: Terminal 

Specification Type: O 

Explanation: The length specified for a table element, 
array, array element, data structure, or field 
exceeds the record length specified in your file 
description specifications. 

RPG-0272 END POSITION ENTRY IN 
COLUMNS 40-43 FOR 
CONSTANT, EDIT WORD, FIELD, 
DATA STRUCTURE, OR ARRAY 
TOO LOW. 

Severity: Terminal 

Specification Type: 

Explanation: The end position entry in columns 40 
through 43 is too small to allow data to be written, 
printed, or displayed in its entirety. 



RPG-0273 OUTPUT INDICATORS IN 

COLUMNS 23-31 MISSING OR 
ALL NEGATIVE. 

Severity: Warning 

Specification Type: O 

Explanation: No output indicators are specified in 
columns 23 through 31 or all those indicators 
specified are negative. Output may be written 
when not desired. Specify at least one positive 
indicator to condition output records to ensure that 
output is written only when desired. 

RPG-0274 INDICATORS MISSING FOR AN 
AND OR OR LINE. 

Severity: Warning 

Specification Type: O 

Explanation: No conditioning indicators were specified 
in columns 23 through 31 for an AND or OR line. 

RPG-0275 CONDITIONING INDICATORS 

COLUMNS 23-31, MAY NOT BE 
SPECIFIED ON THE OUTPUT LINE 
CONTAINING THE WORKSTN 
FORMAT NAME. 

Seventy: Terminal 

Specification Type: O 

Explanation: Conditioning indicators must not be used 
to condition output of a WORKSTN format except 
by entire record. 

RPG-0276 INVALID EDIT CODE IN COLUMN 
38. 

Severity: Terminal 

Specification Type: 

Explanation: The edit code specified in column 38 is 
not one of the following: 1-4, A-D, J-M, X, Y, Z, 
or blank. 

RPG-0277 INVALID EDIT WORD SIZE. 

Severity: Terminal 

Specification Type: 

Explanation: The number of replaceable characters in 
this edit word (columns 45 through 70) must equal 
the length of the field to be edited. 
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RPG-0278 EDIT CODES INVALID WITH 

FIELDS OTHER THAN UNPACKED 
NUMERIC FIELDS OR 
CONSTANTS OTHER THAN * OR 
THE CURRENCY SYMBOL 

Severity: Terminal 

Specification Type: O 

RPG-0279 CONSTANTS IN COLUMNS 45-70 
INVALID FOR X, Y AND Z EDIT 
CODES. 

Severity: Terminal 

Specification Type: 

Explanation: Edit codes X, Y, and Z must not be 
specified for edit words with the currency symbol 
or * in columns 45 through 47. 

RPG-0280 FIELD LENGTH FOR Y EDIT CODE 
LESS THAN 3 OR GREATER THAN 
6. IF GREATER THAN 6 ONLY 
LOW ORDER 6 DIGITS ARE 
EDITED. 

Severity: Warning 

Specification Type: O 

Explanation: The field edited by the Y edit code is not 
from 3 to 6 characters long. If less than 3 
characters long, the field is not edited; if more 
than 6 characters long, only the 6 low-order digits 
are edited. 

RPG-0281 DECIMAL POSITIONS INVALID 
FOR FIELD EDITED BY Y CODE. 

Severity: Terminal 

Specification Type: O 

Explanation: Decimal positions must not be specified 
for a field edited by the Y code. 

RPG-0282 NAME OF FIELD TO BE EDITED, 
BY CODE SPECIFIED IN COLUMN 
38, MISSING. 

Severity: Terminal 

Specification Type: 

Explanation: An edit code is specified in column 38, 
but the name of the field to be edited is not 
entered in columns 32 through 37. 



RPG-0283 INVALID FILE TYPE FOR OUTPUT 
RECORD. 

Severity: Terminal 

Specification Type: 

Explanation: The file specified in columns 7 through 
14 of your output specifications is not an update 
file, combined file, output file, or a file associated 
with ADD. 

RPG-0287 COLUMNS 32-37 NOT BLANK 
WHEN 40-43 IS K1-K8. 

Severity: Terminal 

Specification Type: 

Explanation: Format names and operation codes may 
not be in fields; they must be constants. 

RPG-0288 BLANK AFTER ENTRY IN 

COLUMN 39 INVALID WITH 
RESERVED WORD OTHER THAN 
PAGE, ASSUME BLANK. 

Severity: Warning 

Specification Type: O 

RPG-0290 "PLACE PRECEDES ALL FIELD 
NAMES AND CONSTANTS. 

Severity: Terminal 

Specification Type: O 

Explanation: When *PLACE is used, it must be 
specified after fields that are to be placed in 
different locations. Specify the fields to be moved 
before you specify *PLACE. 

RPG-0291 INVALID ENTRIES IN COLUMNS 
38, 39, OR 44-74 FOR OUTPUT 
OPERATION, ASSUME BLANKS. 

Severity: Terminal 

Specification Type: O 

Explanation: Columns 38, 39, and 44 through 74 
must be blank for "PLACE. 
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RPG-0292 TOO MANY AND/OR LINES. 

Severity: Terminal 

Specification Type: I, 

Explanation: More than 20 AND/OR lines are 
specified in your input or output specifications. 

RPG-0293 BLANK AFTER SPECIFIED FOR A 
CONSTANT. 

Severity: Warning 

Specification Type: 

Explanation: Blank after (B in column 39) should not 
be specified for a constant because constants will 
be blanked out whenever they are used. 

RPG-0294 INVALID ENTRY IN COLUMN 42, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: I 

Explanation: Column 42 must be left blank. 

RPG-0295 INVALID ENTRY IN COLUMN 16, 
ASSUME BLANK. 

Seventy: Warning 

Specification Type: 

Explanation: Column 16 was not F, R, or blank. 

RPG-0296 FORMAT NAME FOR WORKSTN 
FILE OUTPUT REQUIRED BUT 
MISSING OR MULTIPLE FORMAT 
NAMES SPECIFIED FOR ONE 
OUTPUT RECORD. 

Severity: Terminal 

Specification Type: 

Explanation: One format name is required, but no 
more than one format name is allowed for each 
WORKSTN output record. 



RPG-0300 VALUE OF ARRAY INDEX 

EXCEEDS NUMBER OF ARRAY 
ELEMENTS. 

Severity: Terminal 

Specification Type: 

Explanation: The array index specified exceeds the 
number of elements in the array. The index must 
not exceed the number of array elements specified 
for the array in columns 36 through 39 of your 
extension specifications. 

RPG-0302 BLANK AFTER ENTRY IN 

COLUMN 39 INVALID FOR LOOK 
AHEAD FIELD, ASSUME BLANK. 

Severity: Warning 

Specification Type: 

Explanation: Column 39 must be blank for a 
look-ahead field. 

RPG-0304 INVALID INDICATOR OR 

IMPROPER USE OF A VALID 
INDICATOR. 

Severity: Terminal 

Specification Type: I, C, 

Explanation: The indicator specified is invalid or used 
improperly, or a data structure is specified 
incorrectly. If the indicator is invalid, make the 
proper indicator entry (only indicators 01 -99, 
H1-H9, L1-L9, LR, U1-U8, OA-OG, OV, KA-KN, 
KP-KY can be assigned). If the indicator has been 
used improperly, see the restrictions concerning 
proper use of indicators under Operation Codes, 
Setting Indicators in Chapter 10 of this manual. A 
data structure (DS) is specified incorrectly in 
columns 19 and 20 of the input specifications. 

RPG-0305 INDICATOR ASSIGNED BUT NOT 
USED TO CONDITION 
OPERATIONS. 

Severity Warning 

Specification Type: I, C, O 
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RPG-0306 INDICATOR USED TO CONDITION 
OPERATIONS BUT NOT 
ASSIGNED. 

Seventy: Terminal 

Specification Type: I, C, O 

Explanation: All indicators except LR, MR, 1P, LO, 
and, if a WORKSTN file is specified, KA-KN and 
KP-KY must be assigned before they can be used 
to condition operations. 

RPG-0307 FILENAME DEFINED BUT NEVER 
USED. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: F 

Explanation: A filename was defined in columns 7 
through 14, but no input or output specifications 
exist for this file. Remove the file description 
specifications for files not used in the program. 

RPG-0308 SEQUENCING INVALID FOR FILE 
WITH NO MATCH FIELD, 
ASSUME COLUMN 18 ON FILE 
DESCRIPTION SPECIFICATION 
BLANK. 

Severity: Warning 

Specification Type: F 

RPG-0309 SEQUENCE ENTRY INVALID OR 
BLANK FOR FILE WITH MATCH 
FIELD SPECIFIED, ASSUME FIRST 
VALID SEQUENCE OR A. 

Severity: Warning 

Specification Type: F 

Explanation: No sequence entry (A or D) or an invalid 
sequence entry is specified in column 18 for a file 
with match fields. For a primary file, A is 
assumed. If no valid sequence entry is specified 
for a secondary file, the primary sequence value is 
assumed. 



RPG-0310 EXTENSION CODE SPECIFIED IN 
COLUMN 39 ON FILE 
DESCRIPTION SPECIFICATION 
FOR THIS FILE BUT EXTENSION 
SPECIFICATION MISSING. 

Seventy: Terminal 

Specification Type: F 

Explanation: An extension code is specified (E in 
column 39) in your file description specifications, 
but no extension specifications were supplied. 
Either supply the proper extension specifications or 
delete the E for column 39 of your file description 
specifications if nO extension specifications are 
required for this program. 

RPG-0311 AN EXTENSION OR LINE 

COUNTER SPECIFICATION WAS 
PROVIDED FOR THIS FILE BUT 
AN EXTENSION CODE WAS NOT 
ENTERED IN COLUMN 39 OF THE 
FILE DESCRIPTION 
SPECIFICATIONS. 

Severity: Warning 

Specification Type: F 

Explanation: An extension code (E in column 39 of 
file description) is assumed. 

RPG-0314 FIELD, TABLE OR ARRAY NAME 
DEFINED BUT NEVER USED. 

Severity: Warning 

Specification Type: E, I, C 

RPG-0315 FIELD NAME USED BUT NEVER 
DEFINED, OR TABLE NAME OR 
ARRAY ELEMENT USED AS AN 
ARRAY INDEX. 

Severity: Terminal 

Specification Type: C, 
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RPG-0316 INVALID DEFINITION FOR 

RESERVED WORD, ASSUME 
VALID DEFINITION. 

Seventy: Terminal 

Specification Type: I, C 

Explanation: The field named by one of the RPG II 
reserved words is not specified according to the 
predefined format. Reserved words are not valid in 
a data structure. 

RPG-0317 NUMBER OF DECIMAL 

POSITIONS SPECIFIED EXCEEDS 
FIELD LENGTH. 

Severity: Terminal 

Specification Type: I, C, O 

RPG-0318 MISSING A RECORD 

CONDITIONED BY 1P AND 
FORMS POSITIONING SPECIFIED 
ON CONTROL SPECIFICATION. 

Severity: Warning 

Specification Type: H, 

Explanation: Repetitive 1 P output for forms 
positioning is specified in the control 
specifications, but 1 P is not used to condition an 
output record. 

RPG -03 19 NO DATA FOR ALTERNATE 

COLLATING SEQUENCE OR FILE 
TRANSLATION. 

Severity: Terminal 

Specification Type: H 

Explanation: Alternate collating sequence or file 
translation is specified in the header line, but no 
alternate collating sequence table or file translation 
table was supplied. 

RPG-0320 INVALID ALTERNATE COLLATING 
SEQUENCE DATA RECORD. 

Seventy: Terminal 

Specification Type: Not applicable 

Explanation: Columns 1 through 6 in the alternate 
collating sequence data records do not contain 
ALTSEQ. 



RPG-0321 INVALID OR UNDEFINED OR A 
TABLE FILENAME ON FILE 
TRANSLATION DATA RECORD. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: The entry in columns 1 through 8 of the 
file translation data record is invalid, was not 
previously defined, or is a table filename. Make 
the entry in columns 1 through 8 of each file 
translation data record a filename previously 
defined in file description specifications or the 
characters *FILESb& (b = blank). The entry must 
not be a table filename. 



RPG-0322 ALTERNATE COLLATING 
SEQUENCE OR FILE 
TRANSLATION DATA INVALID. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: The data supplied for alternate collating 
sequence or file translation is invalid (not 0-9 and 
A-F). 

RPG-0323 TABLE OR ARRAY NAME 

SPECIFIED MORE THAN ONCE 
ON EXTENSION SPECIFICATIONS 
OR REDEFINED ELSEWHERE. 
DATA STRUCTURE SPECIFIED 
MORE THAN ONCE ON INPUT 
SPECS. 

Seventy: Terminal 

Specification Type: E, C, I 

Explanation: A table or array name can be specified 
only once in extension specifications and cannot 
be redefined elsewhere in the program. Make sure 
that the names specified in columns 27 through 32 
and columns 46 through 51 of the extension 
specifications are specified only once, and that the 
table or array is defined only on the extension 
specifications. A data structure has been defined 
more than once on input specifications. 
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RPG-0324 TOTAL LENGTH OF ALL 

CONTROL OR ALL MATCHING 
FIELDS EXCEEDS 144 
CHARACTERS. 

Severity: Terminal 

Specification Type: I 

Explanation: The total length of all control or all 
matching fields is too long. Make the total length 
of all matching fields (M1-M9) or all control fields 
(L1-L9) equal to or less than 144. 

RPG-0325 ALL PRIMARY AND SECONDARY 
FILES CONDITIONED BY 
EXTERNAL INDICATORS. 

Severity: Warning 

Specification Type: I 

Explanation: When all primary and secondary files are 
conditioned by external indicators (U1-U8), be 
sure all indicators are not off. If they are all off, 
the job will not be done. 

RPG-0326 COMPILE TIME TABLES 

SPECIFIED BUT NO DATA 
FOUND. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: Compile-time table specified (from 
filename in columns 11 through 18 of extension 
specifications blank), but no table input records 
were supplied after the source program. 

RPG-0327 SPLIT CONTROL FIELDS MAY 
NOT HAVE PARTS THAT ARE 
PACKED. 

Severity: Terminal 

Specification Type: I 

Explanation: All parts of a split control field must be 
either packed or unpacked. 



RPG-0328 PACKED OR BINARY DATA 

ALLOWED FOR THIS DEVICE BUT 
MAY CAUSE ERRORS. 

Severity: Warning 

Specification Type: I, 

Explanation: Packed or binary data is allowed for this 
device but in some cases may cause errors to the 
device. 

RPG-0329 PACKED OR BINARY DATA NOT 
VALID FOR DEVICE, ASSUME 
ZONED DECIMAL. 

Severity: Warning 

Specification Type: I, O 

Explanation: Packed or binary data can be specified 
for disk and WORKSTN files only. Data errors 
may occur if program is executed. 

RPG-0330 ALPHAMERIC FIELD SPECIFIED 
AS PACKED OR BINARY. 

Severity: Terminal 

Specification Type: 

Explanation: Packed data cannot be specified for 
alphameric fields. Specify packed data for numeric 
fields only. 

RPG-0331 NO INPUT SPECIFICATIONS 
FOUND. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: No valid input specifications are supplied 
for this job. Input specifications are required for 
update or combined files and input files unless the 
input comes from the KEYBORD device. 

RPG-0332 SEQUENCE ERROR FOUND IN 
COMPILE TIME TABLE/ARRAY. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: Compile time table or array is not in the 
sequence specified in columns 45 or 57. Make 
sure the data is in the sequence specified (A or D) 
in column 45 or 57. 
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RPG-0333 TABLE/ARRAY FULL OR NO 
TABLES/ARRAYS FOR 
FOLLOWING DATA. 

Severity: Warning 

Specification Type: Not applicable 

Explanation: Either too much data is supplied for the 
table or array, or no table or array is defined for 
the data supplied. Make sure that the data 
supplied does not exceed the maximum table size, 
or that a table or array is defined for the data you 
supply. The system accepts no more data for 
tables or arrays. 



RPG-0334 SHORT TABLE. 

Severity: Warning 

Specification Type: Not applicable 

Explanation: The number of entries supplied is less 
than the maximum number of entries the table can 
contain. The remaining entries are filled with 
blanks or zeros. 

RPG-0335 EDIT WORD SPECIFIED WITH 
OTHER THAN UNPACKED 
NUMERIC FIELDS. 

Severity: Terminal 

Specification Type: 

Explanation: Edit words are allowed only with 
unpacked numeric fields. 

RPG-0337 INVALID SEQUENCE FOR EXIT 

AND RLABL OPERATION CODES. 

Severity: Terminal 

Specification Type: C 

Explanation: The RLABL operation code does not 
immediately follow an EXIT operation. 



RPG-0339 AN OUTPUT REFERENCE IS 

REQUIRED FOR EACH UPDATE 
FILE, OR IF ADD IS SPECIFIED. 

Severity: Terminal 

Specification Type: F 

Explanation: The proper output specifications have 
not been specified for the update file. 

RPG-0340 CONTROL/TRIBUTARY, COLUMN 
17, CONTAINS A BLANK FOR A 
MULTIPOINT LINE. ASSUME T. 

Severity: Warning 

Specification Type: T 

Explanation: Column 17 was left blank for a 
multipoint line (M in column 15). 

RPG-0341 CONTROL/TRIBUTARY, COLUMN 
17, CONTAINS AT FOR A 
SWITCHED OR A POINT TO 
POINT NETWORK. ASSUME 
BLANK. 

Severity: Warning 

Specification Type: T 

Explanation: Column 17 contains a T for a 
point-to-point network (P in column 15). 

RPG-0342 TRANSPARENT MODE IS 

SPECIFIED, COLUMN 19, WHEN 
ASCII CONTROL CHARACTERS, 
COLUMN 18, ARE TO BE USED. 

Severity: Terminal 

Specification Type: T 

Explanation: The transparent mode cannot be 
specified on an adapter using ASCII data link 
characters. 



RPG-0338 SUBR MUST BE USED WITH EXIT 
OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: The entry specified in factor 2 of an 
EXIT operation does not start with SUBR. 



RPG-0343 AUTOANSWER, COLUMN 20, IS 
NOT BLANK FOR 
NON-SWITCHED NETWORK. 

Seventy: Terminal 

Specification Type: T 

Explanation: Column 20 contains an entry for a 
network that is not switched. Leave column 20 
blank for a network that is not switched. 
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RPG-0346 COLUMN 32 IS NOT BLANK FOR 
A NON-SWITCHED NETWORK. 

Severity: Terminal 

Specification Type: T 

Explanation: Column 32 must be left blank for a 
non-switched network. 

RPG-0347 IDENTIFICATION FOR THIS 
STATION, COLUMNS 33-39, 
CONTAINS AN ARRAY. 

Seventy: Terminal 

Specification Type: T 

Explanation: An array name was used as the station 
identification. Enter the table element or field 
name to be used as the station identification in 
columns 33 through 39. If you want to use an 
array element as the station identification, you 
must use calculation specifications to move the 
contents of the array element into the field you 
specify in columns 33 through 39. 



RPG-0348 COLUMN 40 IS NOT BLANK FOR 
A NON-SWITCHED NETWORK. 

Severity: Terminal 

Specification Type: T 

Explanation: Column 40 must be left blank for a 
non-switched network. 

RPG-0349 IDENTIFICATION FOR THE 

REMOTE STATION, COLUMNS 
41-47, CONTAINS AN ARRAY. 

Severity: Terminal 

Specification Type: T 

Explanation: An array name was used as the remote 
station identification. Enter the table element or 
field name to be used as the remote station 
identification in columns 41 through 47. If you 
want to use an array element as the remote 
station identification, you must use calculation 
specifications to move the contents of the array 
element into the field you specify in columns 41 
through 47. 



RPG-0350 RECORD AVAILABLE INDICATOR 
IS PRESENT ON TRANSMIT FILE, 
OR A PROGRAM WITH ONLY 1 
BSCA FILE. INDICATOR IS 
DROPPED. 

Severity: Warning 

Specification Type: T 

Explanation: A record-available indicator was 
specified for a transmit file or in a program that 
has only one BSCA file. Remove the 
record-available indicator or define the other 
BSCA file if a transmit interspersed with a receive 
program is desired. 

RPG-0351 LAST FILE PROCESSED, COLUMN 
60, IS NOT A BLANK ON A 
TRANSMIT FILE OR A PRIMARY 
INPUT FILE. ENTRY IS IGNORED. 

Severity: Warning 

Specification Type: T 

Explanation: L was entered in column 60 for a 
transmit file or for a primary input file. Remove 
the L from column 60 if the file is a transmit file. 
If it is a primary input file, remove the L or change 
the file designation to secondary. 

RPG-0352 POLLING CHARACTERS WERE 
GIVEN ON OTHER THAN A 
TRANSMIT FILE ON A 
MULTIPOINT NETWORK. ENTRY 
IS IGNORED. 

Seventy: Warning 

Specification Type: T 

Explanation: Polling characters are specified in 

columns 61 and 62 for a file other than a transmit 
file on a multipoint network. 

RPG-0353 THERE IS AN ENTRY IN THE 
ADDRESSING CHARACTERS 
COLUMNS 63-64, ON A FILE 
THAT IS NOT A MULTIPOINT 
RECEIVER FILE. ENTRY IS 
IGNORED. 

Severity: Warning 

Specification Type: T 
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RPG-0354 CORRESPONDING FILE 

DESCRIPTION SPECIFICATION 
FILE IS NOT A BSC FILE. 

Seventy: Terminal 

Specification Type: T 

Explanation: A BSCA device entry was not made for 
this file on the file description specifications sheet. 

RPG-0356 PACKED OR BINARY FIELD 

SPECIFIED IN A FILE WITHOUT 
THE TRANSPARENT FEATURE. 

Seventy: Terminal 

Specification Type: T 

RPG-0357 THE FILE CORRESPONDING TO 
THIS TRANSMITTER 
SPECIFICATION IS NOT AN 
OUTPUT FILE ON THE FILE 
DESCRIPTION SPECIFICATIONS. 

Severity: Terminal 

Specification Type: T 

RPG-0358 CORRESPONDING FILE 

DESCRIPTION SPECIFICATIONS 
FILE IS NOT DEFINED AS AN 
INPUT FILE FOR THIS RECEIVE 
FILE. 

Seventy: Terminal 

Specification Type: T 

RPG-0360 THERE IS NO 

TELECOMMUNICATIONS 
SPECIFICATION FOR A FILE 
DEFINED AS A BSCA FILE ON 
THE FILE DESCRIPTION 
SPECIFICATIONS. 

Severity: Terminal 

Specification Type: T 

RPG-0361 LOOK AHEAD FIELDS SPECIFIED 
FOR BSC FILE. 

Severity: Terminal 

Specification Type: T 

Explanation: Look-ahead fields are not allowed for a 
BSCA file. 



RPG-0363 MATCHING FIELDS DEFINED FOR 
A FILE DESIGNATED TO BE THE 
LAST FILE PROCESSED IN 
COLUMN 60 OF THE 
TELECOMMUNICATIONS 
SPECIFICATIONS. 

Severity: Terminal 

Specification Type: T 

Explanation: Matching fields were defined for a file 
designated as the last file to be processed (L in 
column 60). Remove the matching fields definition 
if the file was the last one to be processed, or 
remove the L entry in column 60. 

RPG-0364 FOR A TRANSMIT THEN RECEIVE 
BSCA PROGRAM, IF 
END-OF-FILE IS SPECIFIED FOR 
ANY INPUT FILE, E IS ASSUMED 
IN COLUMN 17 OF THE BSCA 
INPUT FILE. 

Severity: Warning 

Specification Type: T 

Explanation: E was entered in column 17 of some 
input files, but not for the BSCA file, which has an 
L in column 60 of the telecommunications 
specifications sheet. End of file is assumed if end 
of file (E in column 17 of the file description 
specifications sheet) is specified for any input file 
the program uses. 

RPG-0365 ITB IS SPECIFIED ON A FILE 

WITHOUT BLOCKED RECORDS. 
ITB IS DROPPED. 

Severity: Warning 

Specification Type: T 

Explanation: The intermediate block check 
specification (I in column 52) is ignored. 

RPG-0366 AUTOANSWER, COLUMN 20, IS 
BLANK FOR A SWITCHED 
NETWORK. 

Seventy: Terminal 

Specification Type: T 

Explanation: Column 20 was left blank for a switched 
network. Column 20 should contain M, A, or B. 
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RPG-0368 THE FIELD OR TABLE HOLD AREA 
FOR A STATION IDENTIFICATION, 
COLUMNS 33-39 OR 41-47, IS 
MORE THAN FIFTEEN 
CHARACTERS IN LENGTH. 

Seventy: Terminal 

Specification Type: T 

Explanation: Either the field or table hold area used 
for a station identification (columns 33 through 39 
or 41 through 47) contains more than 15 
characters, or the dial number (columns 21 through 
31) contains more than 12 digits. The field or 
table hold area used for a station identification 
should be numeric and from 2 to 1 5 characters 
long. 

RPG-0369 WARNING-ONLY ONE 

INPUT/OUTPUT AREA WAS 
SPECIFIED FOR A BSCA FILE. 

Severity: Warning 

Specification Type: T 

Explanation: Because only one I/O area is specified 
for a BSCA fjle, processing time is likely to be 
slow. 

RPG-0370 THE LINE CONFIGURATION AND 
LINE CONTROL ENTRIES, 
COLUMNS 17-47, ARE NOT THE 
SAME ON EACH 
TELECOMMUNICATIONS 
SPECIFICATION. 

Severity: Terminal 

Specification Type: T 

RPG-0371 WARNING-THE STATION 

IDENTIFICATION, COLUMNS 
33-39 OR 41-47, HAS BEEN 
DEFINED AS ONLY ONE 
CHARACTER IN LENGTH. THE 
CHARACTER WILL BE 
DUPLICATED SO A TWO 
CHARACTER IDENTIFICATION 
WILL BE USED. 

Severity: Warning 

Specification Type: T 



RPG-0372 A B IN COLUMN 37 OF THE 

CONTROL SPECIFICATION IS AN 
INVALID ENTRY IN A BSCA 
PROGRAM. 

Severity: Terminal 

Specification Type: H 

RPG-0373 THE SAME FILE NAME WAS 
GIVEN ON TWO 
TELECOMMUNICATION 
SPECIFICATIONS. 

Severity: Terminal 

Specification Type: T 

RPG-0374 ENTRY IN COLUMN 16 INVALID. 

Severity: Warning 

Specification Type: F, O 

Explanation: The entry in column 1 6 of the file 

description specifications is not P, S, C, R, T, D, or 
blank, or the entry in column 16 of the output 
specifications is not F (fetch overflow), R (release), 
A (if ADD is specified in columns 16 through 18), 
or blank. For the file description specifications, 
blank is assumed if the file is an output file; 
otherwise, S is assumed. 

RPG-0376 INVALID OR BLANK NAME IN 
COLUMNS 75-80 OF CONTROL 
SPECIFICATION, ASSIGNED 
NAME ASSUMED. 

Severity: Warning 

Specification Type: H 

Explanation: The entry in columns 75 through 80 of 
your control specification is neither a valid RPG 
program name nor blanks. Blanks are assumed. 

RPG-0377 RECORD ADDRESS FILE, 

COLUMN 31, IS NOT ALLOWED 
ON A BSCA FILE. 

Severity: Terminal 

Specification Type: F 
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RPG-0388 FACTOR 1 MUST BE EITHER A 
FIELD NAME OR A LITERAL 
WHEN USED WITH THIS 
OPERATION. 

Severity: Terminal 

Specification Type: C 

RPG-0390 SEQUENCE CHECKING IS NOT 
PERFORMED ON EXECUTION 
TIME ARRAYS. 

Severity: Warning 

Specification Type: E 

Explanation: Sequence must be specified if high or 
low LOKUP is to be done; however, no sequence 
checking is done at input time. A sequenced array 
is assumed. 

RPG-0391 A FIELD WITH A LENGTH 

GREATER THAN 8 CHARACTERS 
CANNOT BE USED IN FACTOR 1 
WITH DEBUG OPERATION. 

Severity: Terminal 

Specification Type: C 

RPG-0392 LAST ENTRY IN ONE OR MORE 
COMPILE TIME TABLE/ARRAYS 
WAS BLANK. 

Severity: Warning 

Specification Type: E 

Explanation: The compile time table/array contains 
fewer entries than the number of entries specified 
in columns 36 through 39 of the extension 
specifications. 

RPG-0394 ADD OR DEL IN COLUMNS 16-18 
NOT ALLOWED ON AND/OR 
LINES, ASSUME BLANK. 

Severity: Terminal 

Specification Type: O 

Explanation: ADD or DEL must be specified on the 
file and record identification line of the output 
specifications, and applies to all AND/OR lines. 
Columns 16 through 18 are assumed to be blank. 



RPG-0397 FILE DESCRIBED AS 'ADD' TYPE 
FILE. EACH OUTPUT RECORD 
LINE MUST HAVE 'ADD' IN 
COLUMNS 16-18. ASSUME 
'ADD'. 

Seventy: Warning 

Specification Type: O 

Explanation: The ADD function (A in column 66) was 
specified in the file description specifications for 
this file, but ADD was not specified in columns 16 
through 18 of the output sheet for each record 
type output line to be written. 



RPG-0398 COLUMNS 54-59, INVALID FOR 
DEVICE, OR WRONG ENTRY. 
ASSUME BLANK. 

Seventy: Terminal 

Specification Type: F 

Explanation: Columns 54 through 59 contain an entry 
for a file that was not assigned to a SPECIAL 
device (SPECIAL in columns 40 through 46). 

RPG-0399 INVALID ENTRY IN COLUMNS 
54-59. 

Seventy: Terminal 

Specification Type: F 

Explanation: The entry in columns 54 through 59 of 
your file description specifications for a SPECIAL 
file is neither SUBRxx (x = any alphabetic 
character) nor SRyzzz (y = one of 15 valid 
characters; z = one of 16 valid characters). Enter 
the name of the user-written subroutine (SUBRxx) 
or IBM-written subroutine (SRyzzz) that will 
perform the input/output operations for the 
SPECIAL file. 

RPG-0400 INVALID MODE OF PROCESSING 
ENTRY IN COLUMN 28. 

Severity: Terminal 

Specification Type: F 

Explanation: The entry in column 28 is not R, L, or 
blank. R is assumed for valid file type or mode of 
processing. 
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RPG-0401 ONLY ONE TABLE/ARRAY PER 
FILENAME ALLOWED FOR THIS 
DEVICE. 

Seventy: Terminal 

Specification Type: E 

RPG-0403 INVALID LENGTH OF KEY FIELD 
IN COLUMNS 29-30, ASSUME 3. 

Severity: Terminal 

Specification Type: F 

Explanation: The length of key field entry in columns 
29 and 30 is not specified properly. The entry 
must be 29 or less for unpacked keys, or 8 or less 
for packed keys. 

RPG-0404 INVALID RECORD ADDRESS TYPE 
ENTRY IN COLUMN 31, ASSUME 
A. 

Severity: Terminal 

Specification Type: F 

Explanation: The entry in column 31 is not A, P, I, or 
blank, or the entry is I when sequential within 
limits is specified. 

RPG-0405 INVALID KEY START LOCATION 
ENTRY IN COLUMNS 35-38, 
ASSUME 1. 

Seventy: Terminal 

Specification Type: F 

Explanation: Columns 35 through 38 do not contain a 
number from 1 to 4096 for an indexed file. 

RPG-0406 INVALID MAIN STORAGE INDEX 
ENTRY IN COLUMNS 60-65, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Columns 60 through 65 do not contain a 
number from 6 to 9999 for an indexed file 
processed randomly. 



RPG-0407 INVALID FILE ADDITION OR 

UNORDERED ENTRY IN COLUMN 
66, ASSUME A. 

Severity: Terminal 

Specification Type: F 

Explanation: The file addition or unordered load entry 
in column 66 is not A, U, or blank. 

RPG-0408 NUMBER OF EXTENTS ENTRY IN 
COLUMNS 68-69 IS INVALID OR 
NOT ALLOWED WITH THIS 
DEVICE. 

Severity: Terminal 

Specification Type: F 

Explanation: Columns 68 and 69 must be blank for 
nondisk devices. If the device is disk, the columns 
contain an entry that is not 01 or blank. Blank is 
assumed. 

RPG-0409 ENTRY OF K MADE IN COLUMN 
31 FOR RECORD ADDRESS TYPE, 
ASSUME A. 

Severity: Warning 

Specification Type: F 

Explanation: An entry of K is not allowed in column 
31 for record address type. 

RPG-0410 EXTENSION SPECIFICATION LINE 
BLANK. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: An E was specified in column 39 of a 
file description line, but no extension specifications 
were found in the program. 

RPG-0411 RESERVED COLUMNS 71-74 ARE 
NOT BLANK. 

Severity: Warning 

Specification Type: T 
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RPG-0451 CONTINUATION, K IN COLUMN 

53, INVALID FOR DEVICE OR FILE 
TYPE. 

Seventy: Terminal 

Specification Type: F 

Explanation: Continuation is allowed only for 

SPECIAL, WORKSTN, or delete-capable disk files. 
An A in column 66 of the file description 
specifications is invalid for a delete-capable, 
output file load. Continuation is ignored. 

RPG-0452 ENTRY IN COLUMNS 54-59 OF A 
CONTINUATION RECORD IS 
INVALID OR MISSING. 

Severity: Terminal 

Specification Type: F 

Explanation: For a SPECIAL file you must enter a 
table or array name in columns 54 through 59. 
The table or array must be defined on the 
extension specifications. Blanks are invalid. The 
continuation record is ignored. For a WORKSTN 
file, you can enter the following keywords: NUM, 
ID, IND, SAVDS, SLN, FMTS, INFSR, or INFDS. 
For a disk file, the valid entry is RECNO. 

RPG-0453 CONTINUATION ENTRY IN 

COLUMNS 54-59 IS REPEATED 
FOR A FILE. SECOND ENTRY IS 
IGNORED. 

Severity: Warning 

Specification Type: F 

Explanation: For a SPECIAL file only one continuation 
is allowed. For a WORKSTN file, each keyword 
(NUM, ID, IND, SAVDS, SLN, FMTS, INFSR, 
INFDS) may appear only once. For a disk file, 
RECNO may appear only once. The first keyword 
is used, and later duplications are dropped. 



RPG-0456 IMPROPER OR NO 

CONTINUATION LINE FOUND 
FOR DIRECT FILE LOAD OR ADD 
TO RANDOM FILE. 

Severity: Terminal 

Specification Type: F 

Explanation: File addition (A in column 66) for 
delete-capable file processed randomly or direct 
file load of delete-capable file requires a file 
description specifications continuation line with the 
keyword RECNO and associated value. 

RPG-0461 INVALID ENTRY IN COLUMN 70, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: Column 70 must be blank. 

RPG-0462 CONTINUATION, K IN COLUMN 
53, INVALID FOR MAIN FILE 
DESCRIPTION LINE, ASSUME 
BLANK. 

Seventy: Warning 

Specification Type: F 

Explanation: K is valid only on a continuation file 
description specification. 

RPG-0500 FROM NAME INVALID OR 

MISSING FOR RECORD ADDRESS 
FILE. 

Severity: Terminal 

Specification Type: E 

Explanation: The from filename entry in columns 1 1 
through 18 is missing or not specified properly for 
a record address file. 



RPG-0455 COLUMNS 7-52 AND 66-72 OR 
68-72 ON FMTS LINE ARE NOT 
BLANK FOR A CONTINUATION 
LINE, ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

Explanation: An FMTS continuation line can contain a 
format load member name in columns 60-67. 



RPG-0502 FROM FILENAME IS A RECORD 
ADDRESS FILE THAT IS USED 
MORE THAN ONCE. 

Severity: Terminal 

Specification Type: E 

Explanation: The record address file named in 

columns 11 through 18 is used more than once in 
the extension specifications. Oniy one record 
address file is allowed in a program. 
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RPG-0503 TO FILE NAME FOR A RECORD 
ADDRESS FILE TYPE IS EITHER 
1-NOT A PRIMARY, SECONDARY, 
OR DEMAND FILE, OR 
2-MISSING, INVALID OR A 
NON-DISK FILE. 

Seventy; Terminal 

Specification Type: E 

Explanation: The to filename entry in columns 19 
through 26 must be a primary or secondary disk 
file, in order to be processed by a record address 
file. 

RPG-0504 TO FILENAME IS INCORRECT FILE 
TYPE. 

Severity: Terminal 

Specification Type: E 

Explanation: The filename specified in columns 19 
through 26 is not an input, output, or update file. 

RPG-0510 LENGTH GIVEN FOR BINARY 

FIELD IS NOT 2 OR 4, ASSUME 2. 

Seventy: Terminal 

Specification Type: I, O 

RPG-0511 PACKED LENGTH GREATER THAN 
8 FOR A FIELD, TABLE OR 
ARRAY. 

Severity: Terminal 

Specification Type: I, 

RPG-0516 MORE THAN 7 AN/OR LINES 
SPECIFIED. 

Severity: Terminal 

Specification Type: C 

Explanation: More than seven consecutive AN /OR 
lines are specified in the calculation specifications. 
Specify up to seven consecutive AN, OR, or 
AN /OR lines to condition an operation. 



RPG-0517 AN/OR LINES OUT OF ORDER. 

Severity: Terminal 

Specification Type: C 

Explanation: The line immediately following a line 
with an operation code is an AN /OR line. Remove 
the AN/OR entry in columns 7 and 8 from the 
first line in an AN /OR group. 

RPG-0518 NO INDICATORS GIVEN WITH 
AN/OR LINES. 

Severity: Terminal 

Specification Type: C 

Explanation: At least one indicator must be given in 
an AN or OR line. 

RPG-0519 COLUMNS 18-59 ARE INVALID 
WITH AN/OR LINES, OR 
OPERATION CODE IS MISSING 
WITH INDICATORS PRESENT. 
ASSUME BLANK. 

Severity: Terminal 

Specification Type: C 

Explanation: Only the last line of a group of AN /OR 
lines can have entries in columns 18 through 59, 
or indicators are specified in columns 7 through 
17, but no operation is specified in columns 28 
through 32. 

RPG-0520 THIS LINE IS NOT AN AN/OR 
LINE AND PREVIOUS LINE HAS 
NO OPERATION CODE OR THIS 
LINE HAS NO INDICATORS AND 
NO OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: This line is not an AN/OR line, and the 
previous line has no operation code specified. If 
this line should be an AN /OR line, enter an 
AN /OR entry in columns 7 and 8; if this line 
should have had an operation code (an operation 
code must be entered in the last line of a group of 
AN /OR lines), make the proper operation code 
entry in columns 28 through 32. 
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RPG-0521 MINUS INDICATOR NOT 
ALLOWED FOR TEST BIT 
OPERATION OF ONLY ONE BIT. 

Severity: Warning 

Specification Type: C 

Explanation: Columns 56 and 57 (minus) must be 
blank when only 1 bit is specified for a TESTB 
operation. Blank is assumed. 

RPG-0522 ALL THREE RESULTING 

INDICATORS ARE THE SAME. 

Severity: Warning 

Specification Type: C 

Explanation: Usually the same indicator is used for 
only one or two of the conditions. Make sure the 
proper resulting indicator entries have been made 
in columns 54 through 59. The indicator specified 
will be set on each time the calculation is 
executed. 

RPG-0523 A NEGATIVE FACTOR FOR THE 
SQUARE ROOT OPERATION IS 
NOT ALLOWED. 

Severity: Terminal 

Specification Type: C 

Explanation: The entry specified in factor 2 of an 
SQRT operation is negative. 

RPG-0524 WHOLE ARRAYS ARE NOT 

ALLOWED AS FACTOR 1 WITH 
CHAIN OR LOKUP OPERATION 
CODE. 

Severity: Terminal 

Specification Type: C 



RPG-0526 FACTOR 1 MUST BE A 2 

POSITION ALPHAMERIC FIELD 
WITH ACQ/REL/NEXT/POST 
OPERATION CODES. 

Seventy: Terminal 

Specification Type: C 

RPG-0527 WHOLE ARRAYS OR TABLES 
CANNOT BE SPECIFIED IN 
FACTOR 2 WITH THE ENDSR OP 
CODE. 

Seventy: Terminal 

Specification Type: C 

RPG-0528 FACTOR 2 MUST BE A 6 

POSITION ALPHAMERIC FIELD OR 
ARRAY ELEMENT WITH THE 
ENDSR OP CODE. 

Severity: Terminal 

Specification Type: C 

RPG-0529 FACTOR 2 INVALID LITERAL, 
BLANKS ASSUMED. 

Severity: Warning 

Specification Type: C 

RPG-0541 FILE DESIGNATION IS INVALID 
FOR ADDROUT FILE, ASSUME R. 

Severity: Terminal 

Specification Type: F 

Explanation: The file designation entry in column 16 
is not R for an addrout file. 



RPG-0525 OPERATION CODE IS INVALID 

FOR DEVICE TYPE OR MODE OF 
PROCESSING. 

Severity: Terminal 

Specification Type: C 

Explanation: The CHAIN operation can be specified 
only for disk files processed randomly; READ may 
not be used with the KEYBORD file. 
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RPG-0543 LENGTH OF KEY, COLUMNS 

29-30, OR LENGTH OF KEY AND 
KEY START LOCATION GREATER 
THAN RECORD LENGTH. 

Severity: Terminal 

Specification Type: F 

Explanation: The key field entry in columns 29 and 30 
must be less than 29 characters and must be less 
than the record length. The sum of the key field 
starting location (columns 35 through 38) plus the 
key length must not exceed the record length. Key 
field length of 03 is assumed, key field starting 
location of 01 is assumed. 

RPG-0544 LENGTH OF RECORD ADDRESS 
FIELD OR KEY FIELD, COLUMNS 
29-30, BLANK OR INVALID, 
ASSUME 3. 

Severity: Terminal 

Specification Type: F 

RPG-0548 FILE ADDITION/DELETION 

INVALID FOR FILE TYPE, DEVICE, 
OR MODE OF PROCESSING, 
ASSUME BLANK. 

Seventy: Terminal 

Specification Type: F, 

Explanation: File addition /deletion can be specified 
for sequential, direct, and indexed output files on 
disk only. 

RPG-0549 KEY FIELD START LOCATION IS 
BLANK OR EXCEEDS RECORD 
LENGTH. 

Severity: Terminal 

Specification Type: F 

Explanation: Columns 35 through 38 are blank, or the 
entry specified exceeds the record length in your 
file description specifications. 

RPG-0550 NO MORE THAN 20 FILE 

DESCRIPTION SPECIFICATIONS 
ALLOWED. 

Severity: Terminal 

Specification Type: F 



RPG-0551 RECORD LENGTH MISSING OR 

INVALID FOR DISK FILE, ASSUME 
256. 

Severity: Terminal 

Specification Type: F 

Explanation: The record length entry in columns 24 
through 27 is missing. It can be a number from 1 
to 4096. 

RPG-0552 NO MORE THAN 15 DEMAND 

AND CHAIN FILES MAY BE USED 
IN ONE PROGRAM. 

Severity: Terminal 

Specification Type: F 

RPG-0553 MAIN STORAGE INDEX IS 

INVALID FOR DEVICE TYPE OR 
MODE OF PROCESSING. 

Severity: Warning 

Specification Type: F 

Explanation: Main storage index can be specified in 
columns 60 through 65 for indexed disk files 
processed randomly. Blank is assumed. 

RPG-0554 ADD SPECIFIED ON THE FILE 

DESCRIPTION SPECIFICATIONS 
BUT ADD NOT REFERENCED ON 
OUTPUT. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: Column 66 contains an A, but record 
addition ADD in columns 16 through 18 is not 
specified in your output specifications. 

RPG-0555 NO ADD SPECIFIED ON FILE 
DESCRIPTION. 

Seventy: Terminal 

Specification Type: Not applicable 

Explanation: ADD is specified in columns 16 through 
18 of your output specifications, but the ADD 
function was not specified in file description 
specifications (column 66) for this file. 
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RPG-0556 FILE DESIGNATED FOR DELETE 
NOT IN UPDATE MODE. 

Severity: Terminal 

Specification Type: F 

Explanation: Only update files (U in column 15) can 
have records deleted. 

RPG-0557 MASK FOR BIT OPERATION IS 
NOT 0-7. 

Severity: Terminal 

Specification Type: C 

RPG-0558 INVALID USE OF, OR MISSING, 
RESULTING INDICATORS WITH 
THIS OPERATION CODE. 
ASSUME INVALID RESULTING 
INDICATORS BLANK. 

Seventy: Warning 

Specification Type: C 

Explanation: For CHAIN, columns 56 through 59 must 
be blank. It is suggested that columns 54 and 55 
contain an indicator that can be tested for record 
not found. 

For READ, columns 54 and 55 must be blank. It is 
suggested that columns 58 and 59 contain an 
indicator that can be tested for end of file. If the 
READ is to a WORKSTN file, columns 56 and 57 
can contain an indicator that is set on if an 
exception /error condition occurs. 

For ACQ, REL, and NEXT columns 54, 55, 58, and 
59 must be blank. It is suggested that columns 56 
and 57 contain an indicator that can be tested for 
an unsuccessful acquire, release, or next operation, 
respectively. 



RPG-0559 FACTOR 2 OR THE RESULT FIELD 
IS INVALID FOR SPECIFIED 
OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: MOVEA operation code: (1) either factor 
2 or the result field must contain the name of an 
array; (2) both factor 2 and the result field may 
contain the name of an array (the same name 
cannot be used for both). 

XFOOT and SORTA operation codes: factor 2 
must be a whole array. Make the proper entries in 
columns 33 through 42 and/or columns 43 
through 48. 

RPG-0560 MODE OF PROCESSING COLUMN 
28 GIVEN BUT NOT ALLOWED, 
ASSUME BLANK. 

Severity: Terminal 

Specification Type: F 

Explanation: The mode of processing entry specified 
in column 28 is invalid. An entry is allowed only 
for limits or for random processing of disk files. 

RPG-0561 KEY FIELD START LOCATION 
COLUMNS 35-38 GIVEN BUT 
NOT ALLOWED, ASSUME BLANK. 

Seventy: Terminal 

Specification Type: F 

Explanation: The key field start location entry 
specified in columns 35 through 38 is invalid. 
Place the proper entry in columns 35 through 38 
of file description specifications for indexed files 
only. 



RPG-0562 FILE TYPE FOR FROM FILENAME 
AND/OR TO FILENAME INVALID 
WITH TABLE/ARRAY. 

Severity: Terminal 

Specification Type: T 

Explanation: The from filename and /or the to 

filename specified is invalid. Make sure the from 
filename specified in columns 11 through 18 of 
extension specifications is an input file and that 
ti iS tc liiGriafTiS in columns \<j mrougn Z.o is an 
output file. 
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RPG-0564 RECORD LENGTH IS NOT AT 

LEAST TWICE THE KEY LENGTH. 

Severity: Terminal 

Specification Type: F 

RPG-0565 COLUMN 31 INVALID FOR 
DEVICE TYPE. 

Severity: Terminal 

Specification Type: F 

Explanation: The entry in column 31 is valid for 
update, chained output (or addrout) disk files only. 

RPG-0566 INVALID USE OF DEVICE AS 
FROM FILENAME. 

Severity: Terminal 

Specification Type: E 

Explanation: The file named in columns 1 1 through 
18 of extension specifications is not assigned to 
the disk or console. 

RPG-0567 TABLE RECORD SIZE GREATER 
THAN FROM FILENAME DEVICE 
RECORD SIZE. 

Severity: Terminal 

Specification Type: E 

Explanation: Table or array record length specified 
exceeds the maximum record allowed for the 
device. Make the table or array record length 
equal to or less than the maximum record length 
for the device. 

RPG-0568 LENGTH OF KEY FIELD OR 
RECORD ADDRESS LENGTH, 
COLUMNS 29-30, GIVEN BUT 
NOT ALLOWED, ASSUME BLANK. 

Severity: Terminal 

Specification Type: F 

Explanation: Length of key field or record address 
length specified in columns 29 and 30 is invalid for 
this file type. 



RPG-0569 ENTRY OF I IN COLUMN 32 NOT 
GIVEN FOR AN INDEXED FILE, 
ASSUME I. 

Severity: Terminal 

Specification Type: F 

RPG-0570 LOOK AHEAD WITH NUMERIC 
SEQUENCE OR LOOK AHEAD 
FOLLOWS A NUMERIC RECORD. 

Severity: Terminal 

Specification Type: I 

Explanation: A look-ahead record type (** in columns 
19 and 20) cannot be specified on the same line 
as a numeric sequence entry in columns 15 and 
16. 

RPG-0571 MORE THAN ONE LOOK AHEAD 
RECORD IN A FILE, OR LOOK 
AHEAD FIELD NOT VALID IN A 
DATA STRUCTURE. 

Severity: Terminal 

Specification Type: I 

RPG-0572 LOOK AHEAD CANNOT BE THE 
ONLY RECORD IN A FILE. 

Severity: Terminal 

Specification Type: I 

Explanation: Look- ahead records specified do not 
follow other file or record type specifications. 

RPG-0573 MULTIPLE RECORD ADDRESS 
FILES DEFINED. 

Severity: Terminal 

Specification Type: F 

Explanation: Only one record address file is allowed 
per program. 
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RPG-0574 EXTERNAL INDICATOR, 

COLUMNS 71-72, NOT THE 
SAME AS RECORD ADDRESS 
FILES. 

Severity: Terminal 

Specification Type: F 

Explanation: The record address file and the file it is 
used to process are not conditioned by the same 
external indicator. 

RPG-0575 NO INPUT SPECIFICATIONS 
FOUND FOR THIS FILE. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: Input specifications are required for this 
file, but none were supplied. 

RPG-0576 COMPILE TIME TABLE DATA 

FOUND. COMPILE TIME TABLE 
OR ARRAY NOT SPECIFIED IN 
EXTENSION SPECIFICATIONS. 

Severity: Warning 

Specification Type: E 

Explanation: No extension specifications were 

supplied for compile time table. Table data is not 
processed. 

RPG-0577 ONLY ONE FILE ASSOCIATED 

WITH RECORD ADDRESS FILE IS 
ALLOWED IN A PROGRAM. 

Severity: Terminal 

Specification Type: F, E 

Explanation: More than one record address file or 
more than one file associated with a record 
address file is defined in this program. 

RPG-0578 A RECORD ADDRESS FILE OR A 
FILE ASSOCIATED WITH A 
RECORD ADDRESS FILE IS 
REQUIRED BUT NOT DEFINED. 

Severity: Terminal 

Specification Type: F 



RPG-0579 FIRST 1P LINE NOT FOR 

PRINTER. ASSUME COLUMN 41 
IN CONTROL SPECIFICATION 
BLANK. 

Seventy: Warning 

Specification Type: 

Explanation: Forms alignment is requested but the 
first 1 P line is not specified for a printer file. 
Column 41 of the control specifications is assumed 
to be blank; therefore, no forms alignment is done. 

RPG-0580 REFERENCED A MATCH LEVEL 
WHICH IS NOT VALID, OR 
DEFINED A LEVEL MORE THAN 
ONCE. 

Seventy: Terminal 

Specification Type: I 

Explanation: Valid match levels are M1 through M9. 

RPG-0581 MISSING OR INVALID AN/OR 
ENTRY IN COLUMNS 7-8. 

Severity: Terminal 

Specification Type: C 

RPG-0582 THE RELATIVE RECORD NUMBER 
FOR THE CHAIN OPERATION 
MUST BE NUMERIC WITH ZERO 
DECIMAL. 

Severity: Warning 

Specification Type: C 

Explanation: The decimal positions are ignored. 

RPG-0583 BINARY LENGTH SPECIFIED 

GREATER THAN 9. ASSUME 9. 

Severity: Terminal 

Specification Type: I 

RPG-0584 THIS MATCH LEVEL WAS 

REFERENCED PREVIOUSLY IN 
THIS RECORD GROUP. 

Severity: Terminal 

Specification Type: I 
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RPG-0585 CHAIN OR DEMAND FILE 

SPECIFIED, BUT APPROPRIATE 
OPERATION CODE NOT FOUND 
IN THE CALCULATION 
SPECIFICATIONS. 

Severity: Terminal 

Specification Type: C 

RPG-0586 MORE THAN ALLOWABLE 

TABLE/ARRAY NAMES USED IN 
THE PROGRAM. 

Severity: Terminal 

Specification Type: E 

Explanation: More than 70 compile-time tables 

and /or arrays were defined or a total of more than 
75 tables or arrays were defined in this program. 

RPG-0587 IF FACTOR 1 OR FACTOR 2 IS A 
WHOLE ARRAY, THE RESULT 
FIELD MUST BE A WHOLE 
ARRAY. 

Severity: Terminal 

Specification Type: C 

RPG-0588 TESTB, BITON AND BITOF MAY 
NOT REFERENCE AN ENTIRE 
ARRAY. 

Severity: Terminal 

Specification Type: C 

RPG-0589 RESULT FIELD MUST BE A ONE 

POSITION ALPHAMERIC FIELD. IF 
FACTOR 2 IS A FIELD NAME, IT 
MUST BE A ONE POSITION 
ALPHAMERIC FIELD. 

Seventy: Terminal 

Specification Type: C 

Explanation: The result field is not a 1-byte 

alphameric field for TESTB, BITON, and BITOF, or 
factor 2 is a field name but not a 1-byte 
alphameric entry. 



RPG-0590 WHENEVER HIGH IS USED IN A 
MOVE ZONE OPERATION, IT 
MUST REFERENCE AN 
ALPHAMERIC FIELD. 

Severity: Terminal 

Specification Type: C 

Explanation: The high portion of a move zone 

instruction does not reference an alphameric field. 

RPG-0591 LENGTH OF FIELD IN FACTOR 1 
NOT EQUAL TO KEY LENGTH OF 
FILE SPECIFIED IN FACTOR 2. 

Seventy: Terminal 

Specification Type: C 

Explanation: The length of the field in factor 1 of a 
SETLL or CHAIN operation is not equal to the key 
field length specified in factor 2. 

RPG-0592 FOR SEQUENTIALLY PROCESSED 
UPDATE FILE-T ENTRY IN 
COLUMN 15 IS INVALID OR 
L0-L9 INDICATOR USED WITH E 
IN COLUMN 15. 

Seventy: Terminal 

Specification Type: O 

Explanation: Total output cannot be specified for 
update files processed sequentially. 

RPG-0593 TABLE/ARRAY NAME MISSING 
FOR 'TO' AND/OR 'FROM' 
FILENAME. 

Severity: Warning 

Specification Type: E 

Explanation: No table name was specified in columns 
27 through 32 for a table load operation (from 
filename in columns 11 through 18) or for a table 
output operation (to filename in columns 19 
through 26). 
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RPG-0594 'TO' FILENAME MAY NOT BE 
USED WITH EXECUTION TIME 
TABLE/ARRAY. 

Severity: Terminal 

Specification Type: E 

Explanation: An array output operation (to filename in 
columns 19 through 26) must not be specified for 
execution-time arrays. 

RPG-0595 COLUMNS 27-32 AND 46-51 

MUST BE BOTH TABLE OR BOTH 
ARRAY NAMES. 

Severity: Terminal 

Specification Type: E 

Explanation: For alternating tables, columns 27 

through 32 and 46 through 51 do not both contain 
table names; or columns 27 through 32 and 46 
through 51 do not both contain array names for 
alternating arrays. 



RPG-0603 INPUT SPECIFICATIONS INVALID 
FROM KEYBORD FILE. 

Severity: Terminal 

Specification Type: I 

Explanation: Records to be supplied from the 
KEYBORD file are specified in your input 
specifications. Specify the input records for a 
KEYBORD file with the KEY operation code in 
calculation specifications, not in input 
specifications. 

RPG-0604 INVALID OR MISSING MESSAGE 
INDICATOR SPECIFIED ON SET 
OR KEY OPERATION. 

Seventy Terminal 

Specification Type: C 

Explanation: Message indicator entries in columns 31 
and 32 are missing, or the entry specified is not in 
the range 01-99. 



RPG-0597 END POSITION SPECIFIED FOR 

*PLACE LESS THAN TWICE THAT 
OF HIGHEST PREVIOUSLY 
SPECIFIED FIELD END POSITION, 
OR END POSITION GREATER 
THAN 256. 

Severity: Terminal 

Specification Type: O 

RPG-0598 ALPHAMERIC TABLE/ARRAY 

SPECIFIED AS PACKED. ASSUME 
NUMERIC. 

Severity: Terminal 

Specification Type: E 

RPG-0599 LENGTH OF ELEMENT FOR 
BINARY TABLE/ARRAY NOT 
SPECIFIED AS 4 OR 9. DEFAULT 
TO 4 IF LENGTH SPECIFIED IS 
LESS THAN 4, OTHERWISE 
DEFAULT TO 9. 

Severity: Terminal 

Specification Type: E 



RPG-0609 KEYBORD SPECIFIED AS 

PRIMARY FILE, BUT FUNCTION 
NEVER USED. 

Seventy; Terminal 

Specification Type: C 

Explanation: KEYBORD is specified as the primary 
file, but it is not used. The SET/KEY operation 
code must be used with a KEYBORD file. 

RPG-0610 ONLY COMMAND KEY 
INDICATORS VALID AS 
RESULTING INDICATORS ON SET 
OPERATION. 

Severity: Terminal 

Specification Type: C 

Explanation: The resulting indicator entries specified 
in columns 54 through 59 of a SET operation are 
not command key indicators. 
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RPG-0614 OPERATION REQUIRES KEYBORD 
SPECIFICATION ON FILE 
DESCRIPTION. 

Severity: Terminal 

Specification Type: C 

Explanation: The KEYBORD file is not defined in your 
file description specification, but KEY and SET 
operations are used. 

RPG-0616 KEYBORD AND WORKSTN MUST 
HAVE PRIMARY OR DEMAND 
DESIGNATION, ASSUME 
DEMAND. 

Seventy: Terminal 

Specification Type: F 

Explanation: A KEYBORD or WORKSTN file is not 
specified as a primary or a demand file (P or D in 
column 16). 

RPG-0617 RESULT FIELD MAY NOT BE AN 
ARRAY. 

Severity: Terminal 

Specification Type: C 

RPG-0618 CANNOT HAVE ANY OTHER 

PRIMARY OR SECONDARY FILES 
WHEN KEYBORD OR WORKSTN 
IS SPECIFIED AS PRIMARY. 

Severity: Terminal 

Specification Type: F 

Explanation: When KEYBORD or WORKSTN are 
specified as primary files, no other file can be 
specified as primary or secondary. Remove the 
secondary file designation entry (column 16). 

RPG-0625 FACTOR 1 MUST BE NUMERIC 
FOR CHAIN OPERATION WHEN 
FACTOR 2 FILENAME HAS 
PACKED KEYS. 

Severity: Terminal 

Specification Type: C 



RPG-0631 FACTOR 1 MUST HAVE THE 

SAME LENGTH WHEN PACKED 
AS LENGTH OF PACKED KEYS 
FOR FACTOR 2 FILENAME. 

Seventy: Terminal 

Specification Type: C 

Explanation: The entry in factor 1 of a CHAIN 

operation is not the same length when packed as 
the record keys in the file named in factor 2. 

RPG-0632 SET OR KEY OPERATION 

SPECIFIED WITH NO FUNCTION. 

Seventy: Terminal 

Specification Type: C 

Explanation: The SET or KEY operation code was 
entered in columns 28 through 32 without 
specifying the SET or KEY operation to be 
performed. Specify the function of the SET or 
KEY operation you want to perform (columns 7 
through 27, 33 through 39). 

RPG-0645 IMPROPER USE OF THE 

PACK/UNPACK FEATURE FOR 
LIMITS FILE PROCESSING. 

Severity: Terminal 

Specification Type: E 

Explanation: The unpacked key length must be one or 
two less than twice the packed key length. 

RPG-0646 WHOLE ARRAY IN RESULT FIELD 
INVALID FOR SPECIFIED 
OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: An entire array cannot be specified as 
the result field for the operation specified. Make 
the result field a field (which must be numeric for 
XFOOT), an array element, or a table element. 
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RPG-0647 



UNEQUAL KEY LENGTHS 
SPECIFIED FOR KEYS OF 
IDENTICAL FORMAT. 



Seventy: Warning 

Specification Type: E 

Explanation: The key length of a limits file (record 
address file) should be equal to the key length of 
the file to be processed by limits. The key length 
of the file processed by limits is assumed as the 
key length of the limits file. 

RPG-0650 COMPILE TIME ARRAYS 

OVERLAPPING ARRAYS IN THE 
SAME DATA STRUCTURE. 

Severity: Terminal 

Specification Type: E 

Explanation: Two or more compile time arrays have 
been defined in the same data structure such that 
they overlap. The from and to positions for the 
definitions of these arrays in the input 
specifications should be changed to correct the 
overlap. 

RPG-0652 COMPILE TIME ARRAY IS NOT 
VALID IN DATA STRUCTURE 
SPECIFIED AS SAVDS. 

Severity: Terminal 

Specification Type: I 

Explanation: If a data structure is defined as SAVDS 
in a program, a compile-time array cannot be 
defined as part of this data structure. 



RPG-0654 DEFINED LENGTH OF THE DATA 
STRUCTURE IN THE RECORD IS 
LESS THAN THE HIGH TO 
POSITION OF FIELDS DEFINING 
THE CONTENTS OF THE DATA 
STRUCTURE. ASSUME LENGTH 
OF DATA STRUCTURE IN 
RECORD TO BE CORRECT. 

Severity: Terminal 

Specification Type: I 

Explanation: If a data structure is defined as a field in 
a record, this definition overrides the definition of 
the fields describing the contents of the data 
structure. If the data structure is not defined 
previously as a field in a record, the length of the 
data structure is assumed to be the highest to 
position of a field in the data structure. 

RPG-0655 OVERLAPPING FIELDS IN A DATA 
STRUCTURE CANNOT BE USED 
IN THE CALCULATION 
SPECIFICATION. 

Seventy: Terminal 

Specification Type: C 

Explanation: Overlapping fields in a data structure 
cannot be used in the same calculation 
specification. If factor 1, factor 2, or the result 
field references an array or array element with a 
variable subscript, the entire array is used to 
determine whether overlap exists. The same array 
name can be referenced in the appropriate factors 
of a calculation specification without violating the 
overlap rule. 



RPG-0653 THE SAME DATA STRUCTURE 
CANNOT BE SPECIFIED AS THE 
SAVDS AND AS THE DISPLAY 
STATION LOCAL DATA AREA. 

Seventy: Terminal 

Specification Type: I 

Explanation: The same data structure cannot be 
specified as the SAVDS and as the display station 
local data area in the same program. 



RPG-0656 RECORD INFORMATION OR DATA 
STRUCTURE SPECIFIED ON 
SAME SPECIFICATION AS FIELD 
TYPE ENTIRES FOR A DATA 
STRUCTURE. ASSUME 
COLUMNS 7-43 BLANK. 

Severity: Terminal 

Specification Type: I 

Exp/anat/on: Columns 7 through 43 must be blank for 
a field specified in a data structure. 
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RPG-0657 SEQUENCE ENTRY IN COLUMNS 
15-16 MUST BE BLANK FOR A 
DATA STRUCTURE. 

Seventy: Terminal 

Specification Type: I 

Explanation: If a data structure is specified in 

columns 19 and 20, columns 15 and 16 must be 
blank. 

RPG-0658 COLUMNS 21-74 MUST BE 
BLANK FOR A DATA 
STRUCTURE. 

Severity: Terminal 

Specification Type: I 

Explanation: Columns 21 through 74 must be blank if 
a data structure is specified correctly in columns 
19 and 20 of the same input specification. 

RPG-0659 DATA STRUCTURE DEFINED AS 
THE DISPLAY STATION LOCAL 
DATA AREA MUST NOT EXCEED 
LENGTH OF 256. LENGTH OF 256 
IS ASSUMED. 

Severity: Terminal 

Specification Type: I 

RPG-0660 DATA STRUCTURE NAME 

INVALID IN CALCULATIONS 
EXCEPT WITH RLABL OR WITH 
RESULT FIELD OF POST 
OPERATION. 

Severity: Terminal 

Specification Type: I 

RPG-0707 RESULT FIELD MUST BE EITHER 
A 6 OR 12 POSITION NUMERIC 
FIELD WHEN USING THE TIME 
OPERATION CODE. 

Severity: Terminal 

Specification Type: C 

RPG-0720 COLUMN 15 NOT C FOR 

WORKSTN FILE, ASSUME C. 

Severity: Warning 

Specification Type: F 



RPG-0721 MORE THAN 1 WORKSTN FILE IS 
INVALID. 

Severity: Terminal 

Specification Type: F 

RPG-0722 CONSOLE/KEYBORD/CRT FILES 
ARE NOT ALLOWED WITH 
WORKSTN FILES. 

Severity: Terminal 

Specification Type: F 



RPG-0725 COLUMNS 60-65 DO NOT 

CONTAIN A VALID FIELD NAME 
FOR A CONTINUATION RECORD. 

Severity: Terminal 

Specification Type: F 

Explanation: The keyword in columns 54 through 59 
was ID, SLN, SAVDS, INFDS, or INFSR but 
columns 60 through 65 did not contain a valid 
field, label, or data structure name. Or, the 
keyword in columns 54 through 59 was RECNO, 
but columns 60 through 65 did not contain a valid 
field name. Or, the keyword in columns 54 
through 59 was FMTS, but columns 60 through 67 
did not contain a valid format load member name 
or the keyword *NONE. 

RPG-0726 COLUMNS 64-65 DO NOT 

CONTAIN A VALID VALUE FOR 
NUM OR IND KEYWORDS. 

Severity: Terminal 

Specification Type: F 

Explanation: With IND or NUM a two-digit numeric 
value must be entered in columns 64 and 65. 

RPG-0727 INVALID DEFINITION FOR FIELD 
ASSOCIATED WITH KEYWORD. 

Severity: Terminal 

Specification Type: F 

Explanation: The field associated with the keyword 
RECNO is not defined as a seven- position, 
numeric field with zero decimal positions. 
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RPG-0728 BLOCK LENGTH MUST BE BLANK 
FOR WORKSTN, ASSUME BLANK. 

Severity: Warning 

Specification Type: F 

RPG-0729 COLUMNS 54 AND 55 MUST 
CONTAIN A VALID RESULTING 
INDICATOR AND COLUMNS 
56-59 MUST BE BLANK FOR 
THIS OP CODE. 

Severity: Terminal 

Specification Type: C 

Explanation: The SHTDN op code requires a valid 
indicator in columns 54 and 55. No other 
indicators can be specified in columns 56 through 
59 nor can columns 54 and 55 be blank. 

RPG-0730 THE RESULT FIELD MUST BE A 
DATA STRUCTURE NAME WHEN 
USING THE POST OPERATION 
CODE. 

Severity: Terminal 

Specification Type: C 

RPG-0799 ERROR FILE FULL. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: Too many errors were made in this 
program. The errors are listed on the output 
listing. 

RPG-0801 AND LINE IS INVALID FOR THIS 
DEVICE, COLUMNS 14-16. 

Severity: Terminal 

Specification Type: I 

Explanation: Use of AND lines in record ID codes is 
not valid with this device. 



RPG-0802 RECORD IDENTIFICATION CODES 
IN COLUMNS 35-41 ARE NOT 
ALLOWED WITH THIS DEVICE. 

Severity: Terminal 

Specification Type: I 

Explanation: Record ID codes in columns 21 through 
34 only are valid for this device. Entries in 
columns 35 through 41 are not allowed. 

RPG-0803 INVALID OR BLANK ENTRIES IN 
COLUMNS 21-34 FOR THIS 
DEVICE. 

Severity: Terminal 

Specification Type: I 

Explanation: One of the following error conditions 
exists: 

. Column 24 does not contain a 1. 

• Column 25 is not blank. 

• Column 26 does not contain a C, and /or two 
record ID codes are used. 

• Column 31 does not contain a 2. 

• Column 32 is not blank. 

• Column 33 does not contain a C. 

RPG-0804 INCONSISTENT RECORD 

IDENTIFICATION CODE USAGE 
ON 'OR' LINE. 

Severity: Terminal 

Specification Type: I 

Explanation: The number of record ID codes on an 
OR line must be the same as its associated record 
line. 

RPG-0805 RECORD IDENTIFICATION CODES 
CAN ONLY BE USED ONCE. 

Severity: Terminal 

Specification Type: I 

Explanation: A record ID code character can only be 
used once in a file. 
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RPG-0806 INVALID OR NO RECORD 

IDENTIFICATION INDICATOR 
DEFINED, ASSUME 10. 

Severity: Terminal 

Specification Type: I 

Explanation: A record line for a CONSOLE file must 
have a record ID indicator between 01 and 10 
assigned. 

RPG-0807 FIELD LENGTH DEFINED FOR 

RECORD IDENTIFICATION IS NOT 
LENGTH OF IDENTIFICATION. 

Severity: Terminal 

Specification Type: I 

Explanation: A field was defined starting in column 1 
but was not equal to the length of the record ID 
code for the CONSOLE file. If the record ID code 
is given a field name, the field can only be as long 
as the ID code. 

RPG-0808 INVALID START POSITION FOR 
FIRST FIELD TO BE PROMPTED. 

Severity: Terminal 

Specification Type: I 

Explanation: The start position of the first field to be 
prompted for does not start immediately following 
the record ID for the CONSOLE file. 

RPG-0809 INVALID FROM OR TO ENTRY IN 
COLUMNS 44-51 FOR FIELD 
PROMPT DESCRIPTION. 

Severity: Terminal 

Specification Type: I 

Explanation: Prompt format description entry for the 
CONSOLE file is invalid for one of the following 
reasons: 

• From entry (columns 44 through 47) is 1, and to 
entry (columns 48 through 51) is greater than 2. 

• Field prompt description overlaps previously 
defined field prompt. From position is less than 
previous to position, and the to position is 
greater than the previous to position. 

• From entry is greater than previous to position 
plus 1. 



RPG-0810 FIELD RECORD RELATION 

INDICATORS, COLUMNS 63-64, 
ARE INVALID WITH A PROMPT 
FIELD. 

Severity: Terminal 

Specification Type: I 

Explanation: Field record relation indicators, columns 
63 and 64, must be left blank on a field prompt 
definition for a CONSOLE file. 

RPG-0811 LENGTH OF PROMPT FIELD IN 
COLUMNS 44-51 EXCEEDS 
LIMIT. MAXIMUM FIELD 
LENGTHS-ALPHAMERIC 66, 
NUMERIC 15. 

Severity: Terminal 

Specification Type: I 

RPG-0813 RECORD IDENTIFICATION 

INDICATORS MUST BE UNIQUE. 

Severity: Terminal 

Specification Type: I 

Explanation: A record identification indicator can be 
used only once for a CONSOLE file. 

RPG-0815 A CONSOLE FILE MUST HAVE AT 
LEAST 1 FIELD DEFINED FOR 
WHICH THERE IS A PROMPT. 

Severity: Terminal 

Specification Type: I 

Explanation: A CONSOLE file was defined with no 
prompted fields. Define at least one field in the 
CONSOLE file other than a record identification 
field. 

RPG-0816 FACTOR 2 MUST BE A CONSOLE 
FILE FOR A VALID RESULT FIELD 
ENTRY. 

Severity: Terminal 

Specification Type: C 

Explanation: The ERASE function applies only to a 
CONSOLE file, which must be specified in factor 
2. The job is terminated, and the entire 
specification line is ignored. 
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RPG-0817 FACTOR 2 GIVEN ON SET 

OPERATION WITHOUT RESULT 
FIELD ENTRY 'ERASE'. 

Severity: Terminal 

Specification Type: C 

Explanation: Factor 2 on a set operation requires an 
associated keyword (ERASE) specified in the result 
field (columns 43 through 48). The job is 
terminated, and the entire specification is ignored. 

RPG-0818 INVALID ENTRY IN COLUMNS 
49-51. 

Severity: Warning 

Specification Type: C 

Explanation: The entry in columns 49 through 51 is 
not valid for a SET operation code. The entry in 
columns 49 through 51 is ignored by the system. 

RPG-0819 LENGTH OF FACTOR 1 OR 

RESULT FIELD MAY NOT EXCEED 
40 CHARACTERS IF 6X40 
WINDOW SPECIFIED OR 79 
CHARACTERS IF FULL SCREEN 
SPECIFIED. 

Seventy: Terminal 

Specification Type: C 

Explanation: A record length of 40 or less was 
specified for the KEYBORD file but factor 1 on a 
SET or KEY operation or the result field on a KEY 
operation is greater than 40 characters. Or, if a 
record length of greater than 40 was specified, 
factor 1 or the result field is greater than 79 
characters. 

RPG-0821 MULTIPLE CONSOLE FILES 
DEFINED BUT ONLY ONE IS 
ALLOWED. DEFAULT IS TO DISK. 

Severity: Terminal 

Specification Type: F 

RPG-0822 CONSOLE CAN ONLY BE AN 
INPUT FILE, DEFAULT IS TO 
INPUT. 

Severity: Terminal 

Specification Type: F 



RPG-0823 CONVERSATIONAL FILES ARE 

NOT ALLOWED, DEFAULT IS TO 
INPUT. 

Severity: Terminal 

Specification Type: T 

Explanation: BSCA conversational files are not 
allowed. The file is assumed to be an input file. 

RPG-0825 FOR CONSOLE THE RECORD 
LENGTH MUST BE TWICE AS 
LARGE AS THE RECORD 
ADDRESS FIELD LENGTH. 
DEFAULT IS 2 TIMES RECORD 
ADDRESS FIELD LENGTH. 

Seventy; Warning 

Specification Type: F 

RPG-0826 BOTH ITB AND TRANSPARENCY 
CANNOT BE SPECIFIED FOR A 
TRANSMITTING FILE; ITB WAS 
DROPPED. 

Severity: Terminal 

Specification Type: T 

Explanation: Capability is not supported on system. 

RPG-0828 WHOLE ARRAY NAME INVALID 
FOR FIELD NAME ENTRY IN 
COLUMNS 53-58 FOR CONSOLE 
FILE. 

Seventy: Terminal 

Specification Type: I 

Explanation: An array name was specified in columns 
53 through 58 of the input specifications sheet. 
For CONSOLE files, whole array names must be 
entered in either of the following ways: 

• Define the whole array as a subfield within a 
field for a CONSOLE record. 

• Define each element of the array with an index, 
and place this entry in columns 53 through 58 
of the input specifications sheet. The index 
must be an integer value. 
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RPG-0999 PROGRAM EXCEEDS MAIN 

STORAGE IN COLUMNS 12-14 
OF CONTROL SPECIFICATION. 

Severity: Warning 

Specification Type: H 

Explanation: The program requires more storage for 
execution than specified in columns 12 through 14 
of the control specification. The program will run, 
but will use the amount of storage shown on the 
compiler listing next to MAIN STORAGE 
REQUIRED TO EXECUTE. You can increase the 
number specified in columns 12 through 14 of the 
control specifications to equal the amount of main 
storage required, or you can redesign your 
program to use less storage. 



RPG II DISPLAYED MESSAGES 

RPG II messages that appear on a display station 
display screen are described in the Displayed Messages 
Guide. 
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RPG II AUTO REPORT MESSAGES 

NOTE 001 SOURCE PROGRAM IS MISSING. 
PROGRAM IS TERMINATED. 

Severity: Terminal 

Specification Type: Not applicable 

Explanation: /* or ** was encountered as the first 
record in the source program. 

NOTE 002 RPG II CONTROL SPECIFICATION 
IS MISSING. A CONTROL 
SPECIFICATION WITH BLANK 
ENTRIES IS CREATED. 

Severity: Warning 

Specification Type: H 

NOTE 003 SOURCE PROGRAM CONTAINS 
MORE THAN ONE RPG II 
CONTROL SPECIFICATION. ALL 
BUT THE FIRST ARE DROPPED. 

Severity: Warning 

Specification Type: H 

Explanation: Multiple RPG II control specifications are 
present in the source program. The copied 
member may contain a control specification. 

NOTE 004 DUPLICATE FILENAMES ARE 
PRESENT ON THE FILE 
DESCRIPTION SPECIFICATIONS 
READ FROM THE SOURCE FILE. 
DUPLICATE IS DROPPED. 

Severity: Warning 

Specification Type: F 

NOTE 005 REQUESTED LIBRARY MEMBER 
CANNOT BE FOUND. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: /COPY 

Explanation: The requested library member was not 
found for one of the following reasons: 

• The wrong name was used for the member. 

• The wrong library was specified. 

• There are no records in the library member. 



NOTE 006 DUPLICATE FILENAMES ARE 
PRESENT ON THE FILE 
DESCRIPTION SPECIFICATIONS 
READ FROM THE LIBRARY 
SOURCE MEMBER. DUPLICATE 
IS DROPPED. 

Severity: Warning 

Specification Type: F 

Explanation: The library member can contain only one 
file description specification for a filename. The 
error occurred for one of the following reasons: 

• One library source member contains two file 
description specifications for the same filename. 

• More than one library source member has file 
description specifications for the same filename. 

NOTE 007 TABLE AREA PROVIDED FOR 
INPUT OVERRIDES EXCEEDED. 
OVERRIDE FUNCTION IS 
DISCONTINUED FOR THIS 
/COPY. 

Severity: Warning 

Specification Type: /COPY 

Explanation: The number of input field modifier 
statements following a /COPY exceeds the 
available space in the table. Those fields that 
could be overridden will be added to the file. 
Therefore, it is possible to have invalid 
specifications in the generated program. Auto 
report always handles at least 20 overrides. Place 
override statements first, followed by input fields 
to be added to the copied specifications. This 
allows all table space to be used for override 
statements. 

NOTE 008 INVALID RPG II SPECIFICATION 
TYPE. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: /COPY 

Explanation: The error occurred for one of the 
following reasons: 

• Position 6 does not contain an H, F, E, L, T, I, 
C, or O, and position 7 does not contain an 
asterisk. 

• /COPY appears on an H (control) specification. 
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NOTE 009 INVALID OR UNDEFINED FILE 

FOR *AUTO LINES. PROGRAM IS 
TERMINATED. 

Seventy: Terminal 

Specification Type: F, 

Explanation: The error occurred for one of the 
following reasons: 

• *AUTO file is not a printer or line counter file. 

• The file description specification for *AUTO file 
is missing. 

• The names on the file description specification 
and "AUTO file do not match. 

NOTE 010 TABLE AREA FOR FIELD NAMES 
USED ON *AUTO LINES 
EXCEEDED. SPECIFICATION IS 
DROPPED. 

Seventy: Warning 

Specification Type: 

Explanation: Each field used in the H-*AUTO and 
D/T-*AUTO lines is placed in a table. 

NOTE Oil TABLE AREA PROVIDED FOR 
FIELD NAMES EXCEEDED. 
NON-UNIQUE FIELD NAMES 
MAY BE GENERATED. 

Seventy: Warning 

Specification Type: 

Explanation: Generated field names that end in 1 -9 
or R are added to the field name table. 

NOTE 012 GENERATED TOTAL FIELD 

PREVIOUSLY DEFINED WITH 
DIFFERENT ATTRIBUTES. 
PREVIOUS DEFINITION IS USED. 

Seventy: Warning 

Specification Type: 

Explanation: For the *AUTO specification, the 
generated total field was previously defined with 
either a different field length or a different number 
of decimal positions. The first or previous 
definition is used, and both the total field and the 
generated field names are printed with the error 
note number. 



NOTE 013 *AUTO PREVIOUSLY USED FOR A 
DIFFERENT FILE. DROP ALL 
SPECIFICATIONS TO NEXT 
RECORD TYPE. 

Severity: Warning 

Specification Type: O 

Explanation: "AUTO can be specified for only one 
file. 

NOTE 014 POSITIONS 7-22 ARE NOT 
BLANK ON OUTPUT FIELD 
SPECIFICATION. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: 

Explanation: Positions 7 through 22 of output field 
specifications must be blank. 

NOTE 015 INVALID INDICATOR. BLANKS 
ARE ASSUMED. 

Severity: Warning 

Specification Type: 

Explanation: Positions 24 and 25, 27 and 28, or 30 
and 31 are not 01-99, KA-KN, KP-KY, L0-L9, 
MR, 1P, H1-H9, OA-OG, OV or blank. Positions 
23, 26, or 29 are not N or blank. The invalid 
indicator is printed with the note number. Blanks 
are assumed. 

NOTE 016 INVALID FIELD NAME. 

SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: 

Explanation: The field name is invalid for one of these 
reasons: 

• The field name was not found. 

• The field name was not defined. 

• The array index contains a blank after the 
comma or a comma as the first character. 

The specification is dropped, and the column 
headings for the field are also dropped. 
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NOTE 017 INVALID ENTRY IN POSITION 38 
AND/OR 44. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: 

Explanation: Position 38 and position 44 must be 
blank for alphameric fields. 



NOTE 022 INVALID EDIT CODE, POSITION 
38. BLANK IS ASSUMED. 

Seventy: Warning 

Specification Type: O 

Explanation: Position 38 is not one of the following 
valid edit codes: A, B, C, D, J, K, L, M, 1, 2, 3, 4. 
X, Y, or Z. 



NOTE 018 INVALID ENTRY IN POSITION 39. 
BLANK IS ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 39 was not a blank or B for any 
field on an H-*AUTO line. 

NOTE 019 INVALID ENTRY IN POSITIONS 
40-43. BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: The end position cannot be specified on 
field specifications in an H-*AUTO line. 

NOTE 020 INVALID ENTRY IN POSITIONS 
45-70. BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: A literal or edit word cannot be specified 
with an alphameric field. 



NOTE 023 INVALID ENTRY IN POSITION 44. 
BLANK IS ASSUMED. 

Seventy: Warning 

Specification Type: O 

Explanation: Position 44 is not used with *AUTO 
because packed and binary data cannot be used. 
Position 44 must be blank. 

NOTE 024 CONDITIONING INDICATORS IN 
POSITIONS 23-31 ARE NOT 
BLANK FOR A TOTALING FIELD. 
A IN POSITION 39, ON A T 
*AUTO LINE. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: 

Explanation: The indicators specified on a totaling 
field in a T *AUTO specification are not used 
when generating specifications. 



NOTE 021 



FIELD NAME WILL BE 
CONDITIONED BY THE 
INDICATOR N1P. 



Severity: Warning 

Specification Type: O 

Explanation: A field name is used and the H-*AUTO 
line is unconditioned. If printed on the first page, 
the field may not contain meaningful data because 
the first record has not been read. An N1P 
indicator will be generated by the system for this 
specification. 
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NOTE 025 LITERAL IN POSITIONS 45-70 

HAS APOSTROPHE MISSING AT 
BEGINNING OR END. BLANKS 
ARE ASSUMED IN POSITIONS 
45-70. 

Severity: Warning 

Specification Type: 

Explanation: The error occurred for one of these 
reasons: 

• Position 45 is not an apostrophe, but 45 
through 70 are not blank. 

• Position 45 is an apostrophe, but there are no 
apostrophes in 46 through 70. 

• There is an embedded single apostrophe (not 
paired) in positions 46 through 69. 

• Positions through position 70 are not blank after 
the last apostrophe. 

This specification is dropped if no field name is 
present. 

NOTE 026 UNABLE TO DETERMINE IF FIELD 
OR RECORD SPECIFICATION. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 15 is blank indicating it is a field 
specification, but positions 32 through 37 and 45 
through 70 are also blank. This specification and 
its possible column headings are dropped. 

NOTE 027 POSITIONS 38-44 ARE NOT 
BLANK WHEN A LITERAL IS 
SPECIFIED. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Positions 38 through 44 must be blank 
when a literal is specified on an H-*AUTO line. 



NOTE 028 POSITIONS 7-13 ARE NOT 
BLANK ON AND/OR 
SPECIFICATION. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Positions 7 through 13 are not blank 
when 14 through 16 contain AND or 14 and 15 
contain OR. 

NOTE 029 SPACE AND/OR SKIP ENTRIES IN 
POSITIONS 17-22 ARE INVALID. 
BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 17 and/or 18 do not contain 
0-3 or blank, or positions 19 and 20 and 21 and 
22 do not contain 01 -84. 

NOTE 030 POSITIONS 37-70 NOT BLANK 
ON RECORD SPECIFICATION. 
BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Positions 37 through 70 must be blank 
for record types. 

NOTE 031 INVALID ENTRY IN POSITION 38. 
BLANK IS ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Edit code cannot be specified for a literal 
on D/T-*AUTO lines. 

NOTE 032 END POSITION IN 40-43 IS 
INVALID. BLANKS ARE 
ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Error occurred because either positions 
40 through 43 contain invalid numbers or the end 
position exceeds the record length. 
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NOTE 033 GENERATED FIELD LENGTH 

EXCEEDS 15. 15 IS ASSUMED. 

Severity: Warning 

Specification Type: 

Explanation: Two positions have been added to a 
field specified with an A in position 39 in order to 
generate a total field. The length of the generated 
total field exceeds 1 5. Decrease the length of the 
field on the specification where definition of the 
field occurred. 

NOTE 034 DEFINITION OF FIELD IS INVALID. 
DEFINITION IS NOT USED. 

Severity: Warning 

Specification Type: F, E, I, C 

Explanation: This error occurred for one of these 
reasons: 

• Length equals 0. 

• Length is greater than 1 5 for a numeric field. 

• Length entry is nonnumeric. 

• Length is less than decimal position. 

• Decimal position entry is nonnumeric. 

• Position 43 is not P, B, or blank. 

NOTE 035 ARRAY NAME SPECIFIED ON 

•AUTO LINE. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: This error occurred for one of these 
reasons: 

• The field name in this H-*AUTO or 
D/T-*AUTO specification is an array name. 

• A generated name for this D/T-*AUTO 
specification total field is an array name. In this 
case, the specification is dropped along with all 
its column headings. 

In positions 32 through 37, enter the name 
of a numeric field that is to be accumulated. Both 
the total field name and the generated field array 
name are printed with the note number, or the 
specification is dropped. 



NOTE 036 RECORD LENGTH FOR FILE WITH 
*AUTO LINES IS INVALID. 
ASSUME RECORD LENGTH OF 
96. 

Severity: Warning 

Specification Type: F 

Explanation: This error occurred for one of these 
reasons: 

• Record length is 0. 

• Record length is nonnumeric. 

• Record length is blank. 

NOTE 037 TOTALING, A IN POSITION 39, 
SPECIFIED FOR AN INVALID 
FIELD NAME. ASSUME POSITION 
39 IS BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: Position 39 of a D/T-*AUTO 

specification field has an A, yet the field name is 
one of the following: 

• Blank 

• A table name 

• An indexed array name 

• A page field 

In positions 32 through 37, enter the name of a 
numeric field that is to be accumulated. The 
system drops the specification and all its column 
headings. 

NOTE 038 TOTALING, A IN POSITION 39, 

SPECIFIED FOR AN ALPHAMERIC 
FIELD. ASSUME POSITION 39 IS 
BLANK. 

Severity: Warning 

Specification Type: O 

Explanation: The D/T-*AUTO line field name is 
alphameric, and position 39 is an A. In positions 
32 through 37, enter the name of a numeric field 
that is to be accumulated. 
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NOTE 039 POSITIONS 7-38 NOT BLANK 
FOR A COLUMN HEADING. 
BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 39 is a C: therefore, positions 7 
through 38 must be blank. 

NOTE 040 INVALID ENTRY IN POSITION 39. 
BLANK IS ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: This error occurred for one of these 
reasons: 

• Position 39 is B, but the field name is blank. 

• This is a field specification of a D/T-*AUTO 
line, and position 39 is not A, B, C, 1 -9, R, or 
blank. 

NOTE 041 COLUMN HEADING, C IN 

POSITION 39, SPECIFIED BUT 
LITERAL NOT PRESENT. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: 

Explanation: Position 39 is a C, and positions 45 
through 70 are blank. 

NOTE 042 EDIT CODE AND EDIT WORD ARE 
BOTH SPECIFIED. EDIT WORD IS 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: Edit code in position 38 and edit word in 
positions 45 through 70 are both specified. 
Positions 45 through 70 are assumed blank. 



NOTE 043 EDITING SPECIFIED FOR AN 
ALPHAMERIC FIELD ASSUME 
BLANKS IN POSITIONS 38 AND 
45-70. 

Severity: Warning 

Specification Type: 

Explanation: Positions 38 and 45 through 70 must be 
blank for alphameric fields. 

NOTE 044 INVALID ENTRY IN POSITION 16. 
BLANK IS ASSUMED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 1 6 is not F or blank. 

NOTE 045 AND/OR SPECIFICATION OUT OF 
SEQUENCE. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: The AND/OR (positions 14 through 16) 
does not follow a record specification. Ensure that 
record identification entries in columns 1 5 through 
31 precede AND or OR lines. 

NOTE 046 MULTIPLE D/T *AUTO LINES 
SPECIFIED IN THE PROGRAM. 
DROP ALL SPECIFICATIONS TO 
NEXT RECORD TYPE. 

Severity: Warning 

Specification Type: O 

Explanation: Only one D/T-*AUTO line is allowed in 
the program. 

NOTE 047 COLUMN HEADING 

SPECIFICATION OUT OF ORDER. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: A field specification with a C in position 
39 does not follow a specification with a C, B, A, 
or blank (with a field name in positions 32 through 
37) in position 39. 
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NOTE 048 END POSITION INVALID FOR 
THIS SPECIFICATION TYPE. 
ASSUME BLANKS IN POSITIONS 
40-43. 

Severity: Warning 

Specification Type: 

Explanation: The end position cannot be specified for 
these specifications if there is a C, R, or 1 -9 in 
position 39. 

NOTE 049 SPECIFIED END POSITION IS 
LESS THAN FIELD OR LITERAL 
LENGTH. ASSUME BLANKS IN 
POSITIONS 40-43. 

Severity: Warning 

Specification Type: O 

Explanation: End positions (40 through 43) must be at 
least as large as the field or literal. 

NOTE 050 MORE THAN THREE COLUMN 
HEADING LINES SPECIFIED. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: 

Explanation: Only two consecutive *AUTO 
specifications may have a C in position 39. 

NOTE 051 NO VALID TOTALING FIELDS 
SPECIFIED. ONLY ONE D/T 
OUTPUT LINE IS GENERATED. 
TOTAL LINE CONSTANTS, 1-9, R 
IN POSITION 39, ARE DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 39 of D/T-*AUTO line does not 
contain an A. Therefore no automatic totaling is 
done and no total lines are generated. Use a 
specification with an A in position 39 if you want 
automatic totaling done. 



NOTE 052 1-9, R IS INVALID IN POSITION 
39. SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: Position 39 contains 1 -9, but the 

associated level indicator (L1-L9) was not defined 
on input specifications (positions 59 and 60), or 
this is a T-*AUTO line and the lowest level 
indicator used on the T-*AUTO line is of greater 
or equal level. If a 2 was specified in position 39, 
then L2 must be defined as a level indicator on the 
input specifications; if this is a T-*AUTO line, the 
lowest control level indicator present on the 
T-*AUTO line must be L1. 

NOTE 053 INDICATORS NOT ALLOWED ON 
THIS SPECIFICATION TYPE. 
BLANKS ARE ASSUMED IN 
POSITIONS 23-31. 

Severity: Warning 

Specification Type: 

Explanation: Indicators cannot be used on: 

• A field description following an H-*AUTO 
specification 

• A field description with position 39 containing a 
1-9 or R following a D/T-*AUTO line 

NOTE 054 SPECIFIED END POSITION 

CAUSES OVERLAYS OF FIELDS 
OR LITERALS. BLANKS ARE 
ASSUMED IN POSITIONS 40-43. 

Severity: Warning 

Specification Type: 

Explanation: The length of the line up to this 

specification plus the length of the field /literal of 
this specification is greater than the specified end 
position. An end position will automatically be 
generated if positions 40 through 43 are left blank. 
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NOTE 055 I/O ERROR OCCURRED. 

PROGRAM IS TERMINATED. 

Severity: Terminal 

Specification Type: Not Applicable 

Explanation: The additional information printed with 
the error describes the problem: 

• (41) Permanent disk error. 

• (44W) The number of tracks allocated for 
$WORK is too small. 

• (44S) The number of tracks allocated for 
$SOURCE is too small. 

NOTE 056 LIBRARY OR SOURCE MEMBER 
NAME IS INVALID. ENTRY IS 
DROPPED. 

Severity: Warning 

Specification Type: U and /COPY 

Explanation: A /COPY statement cannot have a U or 
H in column 6 of the specification sheet. When 
using Auto Report Option Specifications, the 
specification sheet must have a U in column 6. 

For the U specification, the library name can be 
F1, #LIBRARY, or a valid 8-character library name, 
and must begin in column 8. The member name 
can be up to 8 characters long and must be 
separated from the library name by a comma. 

For the /COPY statement, the library name can be 
F1, #LIBRARY, or a valid library name, and must 
begin in column 13. The member name can be up 
to 8 characters long and must be separated from 
the library name by a comma. 

NOTE 057 TOTALING SPECIFIED MORE 
THAN ONCE FOR THIS FIELD 
NAME. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: Totaling for any particular field name 
specified with an A in position 39 may be 
specified only once in each program. 



NOTE 058 MAXIMUM NUMBER OF H *AUTO 
LINES EXCEEDED. DROP ALL 
SPECIFICATIONS TO THE NEXT 
RECORD TYPE. 

Severity: Warning 

Specification Type: O 

Explanation: More than five H-*AUTO lines were 
specified. 

NOTE 059 INVALID ENTRY IN POSITION 7 
OF U SPECIFICATION. BLANK IS 
ASSUMED. 

Severity: Warning 

Specification Type: U 

Explanation: Valid entries are C or blank. 

NOTE 060 LIBRARY AND MEMBER NAME IN 
POSITIONS 8-24 ARE NOT 
BLANK. BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: U 

Explanation: Positions 8 through 24 must be blank if 
position 7 is blank. 

NOTE 061 INVALID ENTRY IN DATE 

SUPPRESS, POSITION 27. BLANK 
IS ASSUMED. 

Severity: Warning 

Specification Type: U 

Explanation: Valid entries are N and blank. 

Page/date is not suppressed. If position 27 is 
blank, the heading line generated by the first 
H-*AUTO specification will contain a date and 
page number. 



B-62 Printed Messages 



NOTE 062 INVALID ENTRY IN ASTERISK 

SUPPRESS, POSITION 28. BLANK 
IS ASSUMED. 

Severity: Warning 

Specification Type: U 

Explanation: Valid entries are N and blank. Asterisks 
will appear. An asterisk is printed on the first 
generated total line to the right of the highest end 
position generated from the D/T-*AUTO 
specification. One additional asterisk is printed on 
each higher-level line including the final total. 

NOTE 063 AND/OR SPECIFICATION IS 
INVALID. SPECIFICATION IS 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: This error occurred for one of these 
reasons: 

• The main record specification does not have 
conditioning indicators. 

• The AND/OR specification has no indicators. 

You can use AND and OR specifications with 
*AUTO output indicators if you enter an output 
indicator on the first record description 
specification. Normal RPG II rules for AND and 
OR lines apply. 

NOTE 064 D/T *AUTO LINE OVERFLOW 

WILL OCCUR WITH GENERATION 
OF ASTERISK INDICATION. ALL 
ASTERISKS ARE SUPPRESSED. 

Severity: Warning 

Specification Type: 

Explanation: One or more of the asterisks will cause 
overflow of the defined printer record length. Put 
an N in column 28 of the U specification to 
suppress the asterisk indication. 



NOTE 065 POSITIONS FOLLOWING LIBRARY 
MEMBER NAME ARE NOT 
BLANK. BLANKS ARE ASSUMED. 

Severity: Warning 

Specification Type: U 

Explanation: Positions 30 through 49 of the /COPY 
statement are not blank. This may be caused by 
an embedded blank in the name. In this case, 
characters up to the blank are considered the 
name. The rest of the characters are dropped. 

NOTE 066 MORE THAN 19 AND/OR LINES 
CONDITION AN *AUTO LINE. 
THIS AND ALL FOLLOWING 
AND/OR SPECIFICATIONS ARE 
DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: The RPG II language does not permit 
over 19 AND/OR lines on output specifications. 

NOTE 068 NUMBER OF FILE DESCRIPTION 
SPECIFICATIONS EXCEEDS THE 
MAXIMUM ALLOWED. 
SPECIFICATION IS DROPPED. 

Severity: Warning 

Specification Type: F 

Explanation: The maximum number of file description 
specifications allowed is 20. 

NOTE 069 AUTOMATIC TOTALING OF THIS 
FIELD RESULTS IN GENERATED 
FIELD NAME CONFLICTS. 
ASSUME POSITION 39 BLANK. 

Seventy; Warning 

Specification Type: 

Explanation: This error occurred for one of these 
reasons: 

• A field name that was generated for totaling 
was previously defined as alphameric. 

• Another field name, which is a duplicate 
through 5 characters to this field name, appears 
in the program and is used as a totaling field. 

Beth names are printed, which may cause 
incorrect format of the output line. 



RPG II Auto Report Messages B-63 



NOTE 070 GENERATED LINE IS TOO LONG. 
EXCESS IS DROPPED. 

Severity: Warning 

Specification Type: 

Explanation: Either the length of H-*AUTO line 
exceeds the record length or the length of 
D/T*AUTO line exceeds twice the record length, 
depending on which is specified. 

NOTE 071 INVALID OUTPUT RECORD TYPE 
IN POSITION 15. SPECIFICATION 
IS DROPPED. 

Severity: Warning 

Specification Type: 

Explanation: Entry must be either H, D, T, or E. 

NOTE 072 PAGE FIELD NOT AVAILABLE FOR 
USE IN PAGE HEADING. NO 
PAGE NUMBERING WILL OCCUR. 

Severity: Warning 

Specification Type: O 

Explanation: Auto report uses one of the unused RPG 
II page fields (PAGE, PAGE1-PAGE7) for page 
numbering. If all the page fields have been used in 
the program, no page numbering will occur. 
Format of the output line may be incorrect. 

NOTE 073 ERROR OCCURRED WHILE 

•ATTEMPTING TO PUT A LIBRARY 
SOURCE MEMBER IN THE 
LIBRARY. SOURCE WAS NOT 
PUT IN LIBRARY. 

Seventy: Warning 

Specification Type: Not applicable 

Explanation: This error occurred for one of these 
reasons: 

• Library is full. 

• Invalid operation (library may not be allocated). 
The program is not cataloged. 



NOTE 074 DUPLICATE LIBRARY SOURCE 

MEMBER NAME WAS FOUND IN 
THE LIBRARY. PREVIOUS 
MEMBER WAS REPLACED. 

Severity: Warning 

Specification Type: Not applicable 

NOTE 075 ENTRIES IN COLUMNS 25-26, 29, 
AND/OR 31-74 ARE NOT BLANK, 
ASSUME BLANK. 

Severity: Warning 

Specification Type: U 

NOTE 076 GENERATED END POSITION FOR 
TOTAL LINE CONSTANT, 1-9 OR 
R IN POSITION 39, EXCEEDS 
RECORD LENGTH. DROP ALL 
TOTAL LINE CONSTANTS. 

Severity: Warning 

Specification Type: 

Explanation: This error occurred for one of these 
reasons: 

• The length of the constants for a particular level 
exceeds the record length. 

• The first A-type field encountered has a 
beginning position greater than the record 
length. 

NOTE 077 LEVEL INDICATORS USED ON T 
*AUTO LINE IS UNDEFINED. 
INDICATOR IS DROPPED. 

Severity: Warning 

Specification Type: O 

Explanation: A control level indicator used on a 

T-*AUTO line must be defined in positions 59 and 
60 of the input field specifications. The invalid 
indicator will be printed with the error note and no 
total lines will be generated. 
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NOTE 078 PUNCH OPTION IS INVALID 

Severity: Warning 

Specification Type: U 

Explanation: Punching of a generated source deck is 
not supported. Use a valid entry in position 7 of 
the U specification. There is no punching since the 
option is invalid. 

NOTE 079 D-*AUTO IS CONDITIONED BY 
MORE THAN 7 AN/OR LINES. 
ONLY THE FIRST 7 WILL APPLY. 

Severity: Warning 

Specification Type: C 

Explanation: The indicators that condition a D-*AUTO 
line are used to condition the generated EXSR 
calculation specification needed for total rolling. 
RPG II will allow only seven lines of AN /OR 
conditioning indicators in the calculations. 

NOTE 080 INVALID ENTRY IN LISTING 

OPTION, POSITION 30. BLANK IS 
ASSUMED. 

Seventy: Warning 

Specification Type: U 

Explanation: Valid entries are B, P, or blank. 
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RPG II LINKAGE EDITOR MESSAGES 

Following is a list of RPG linkage editor messages. If 
you receive any of these terminal messages, call your 
program support representative. 

RPG 4000 FIRST RECORD IN $WORK IS 
NOT A PHASE RECORD 

RPG 4001 PHASE NAME ERROR 

RPG 4002 ORIGIN ADDRESS 

SPECIFICATION IN ERROR 

RPG 4003 MORE THAN 128 PHASES 

RPG 4004 ESL TABLE EXCEEDS CORE 

RPG 4005 WORK AREA OVERFLOW 

RPG 4011 INVALID OR DUPLICATE 

PARAMETER ON PHASE RECORD 

RPG 4013 DUPLICATE OPTION RECORD 



RPG 4014 INVALID RECORD TYPE 

RPG 4016 TEXT RECORDS OUT OF 
SEQUENCE 

RPG 4018 DUPLICATE ESL RECORD FOUND 

RPG 4020 TEXT RECORD 'LENGTH- 
EXCEEDS MAXIMUM ALLOWED 

RPG 4021 TEXT RECORD RLD POINTS 
OUTSIDE TEXT AREA 

RPG 4022 NO '/*' RECORD IN $WORK FILE 

RPG 4023 RPG OVERLAY PROGRAM WITH 
ONLY ONE PHASE 

RPG 4024 $SOURCE WORK FILE EXCEEDED 

Explanation: The $SOURCE parameter on the 
command statement can be increased and the 
compile rerun. The $SOURCE parameter is the 
second parameter on the command statement. 
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Appendix C. WORKSTN Return Codes 



Columns 23 through 26 of the WORKSTN INFDS data 
structure contain the following information: 



Major 

Return 

Code 


Minor 

Return 

Code 


Explanation 


00 


00 


Operation successful 


01 


00 


New requestor successfully attached to program 


02 


00 


Stop requested by system operator 


04 


00 


Output exception occurred 


08 


00 


Attempt to acquire terminal already attached-no error 


11 


00 


Accept rejected-no invites (end-of-file) 


18 


00 


Acquire failed temporarily 


24 


00 


Terminal released by operator taking 2 option on 
inquiry display 


28 


00 


Operation rejected-program previously released single 
requestor 


32 


00 


Acquire failed-unauthorized user 


34 


01 


Input rejected-buffer too small 


38 


00 


Attempt to acquire terminal failed 


40 


00 


Requested terminal offline 


41 


00 


Print operation rejected-would cause more than eight 
spool files 


42 


00 


Print operation rejected— file not valid 


46 


00 


Print request from unlocked keyboard 


48 


00 


Printer allocated on print operation 


80 


00 


Permanent system error occurred 



See Specifications for the INFDS Data Structure in 
Chapter 13 for more information about how the INFDS 
uses these return codes. For information on major and 
minor return codes that result from the use of the 
Interactive Communications Feature, see the Interactive 
Communications Feature Reference Manual. 
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C-2 WORKSTN Return Codes 



Glossary 



This glossary contains some terms that are used in this 
manual. Data processing terms are defined in IBM Data 
Processing Glossary, GC20-1699. 

This glossary includes definitions developed by the 
American National Standard Institute (ANSI) and the 
International Organization for Standardization (ISO). This 
material is reproduced from the American National 
Dictionary for Information Processing, copyright 1977 by 
the Computer and Business Equipment Manufacturers 
Association, copies of which may be purchased from the 
American National Standards Institute, 1430 Broadway, 
New York, New York 10018. 

ANSI definitions are identified by an asterisk. An 
asterisk to the right of the term indicates that the entire 
entry is reprinted from the American National Dictionary 
tor Information Processing; where definitions from other 
sources are included in the entry, ANSI definitions are 
identified by an asterisk to the right of the item number. 

$SOURCE file: The file into which the RPG II program 
reads the RPG II source programs. 

$WORK file: The file required by the RPG II program 
while processing the RPG II source program. 

access method: A technique for moving data between 
main storage and input/output devices. 

accumulating: The process of totaling a particular 
field's values as records are being processed. 

acquire: To assign a nonrequesting display station to a 
program. 

add file: An indexed or sequential disk file defined as 
an input, output, or update file to which records are 
added if the appropriate entries are made on the file 
description and output specifications. 

address: A name, label, or number that identifies a 
register, location in storage, or any other data source. 

addressing: In data communications, the means by 
which the sending or control station selects the unit to 
which it will send a message. 



addrout file: A record address disk file produced by the 
sort program. An addrout file contains the binary 
relative record numbers of records in a disk file and can 
be used to process input files and to update files that 
are designated as primary or secondary files. 

alphabetic character: Any one of the letters A through 
Z, or one of the special symbols #, $, and @. 

alphameric character: An alphabetic character, or one 
of the digits through 9. 

AND relationship: The specifying of conditioning 
indicators so that the operation is performed only when 
all conditions are met. 

application program: A program used to perform a 
particular data processing task; for example, inventory 
control or payroll. 

array: A series of elements with like characteristics. 
Like a table, an array can be searched for a uniquely 
identified element. Unlike a table, however, elements in 
an array can be accessed by their position relative to 
other elements. Contrast with table. 

array file: An input file containing array entries. 

ASCII: American National Standard Code for 
Information Interchange. Synonymous with USASCII. 

auto-answer: In data communications, a machine 
feature that allows a station to respond to a call that it 
receives over a switched line without operator action. 

auto-call: In data communications, a machine feature 
that allows a station to initiate a connection with 
another station over a switched line without operator 
action. 

auto line: A line that is a part of the auto report 
specifications in an auto report program. 

auto report: A function of the RPG II program product 
that simplifies the defining of formats for printed 
reports, and allows the inclusion of previously written 
statements in new programs. Auto report uses 
simplified specifications and standard RPG II 
specifications to generate a complete RPG II source 
program. 
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auto report option specifications sheet: An RPG II 

coding sheet used to identify the library member to be 
cataloged by the auto report program. 

auto report program: A set of instructions (program) 
that use the RPG II auto report function. See auto 
report. 

backup diskette: A diskette that contains information 
that was copied from another diskette or from disk. A 
backup diskette is used in case the original information 
is unintentionally altered or destroyed. 



calling station: On a switched line in data 
communications, the location that initiates a connection. 

central station: See control station. 

chained file: An input, output, or update disk file for 
which the CHAIN operation code is used to read records 
randomly or to load a direct file. 

character: *A letter, digit, or other symbol that is used 
as part of the organization, control, or representation of 
data. 



basic data exchange: A data file format for exchanging 
data on diskettes between systems or devices. Basic 
data exchange refers to data files only, not entire 
diskettes. 

batch processing: A method of running jobs that does 
not require continuous operator attention; that is, 
processing that is not interactive. Contrast with 
interactive processing. 

binary: Relating to, being, or belonging to a system of 
numbers having 2 as its base (for example, the binary 
digits and 1). 

binary synchronous communications (BSC): A 
flexible form of line control that provides a set of rules 
for transferring data over a communications line 
connecting two or more devices that use a 
communications adapter. 

block: (1) A record or a collection of contiguous records 
recorded or processed as a unit. (2) On System /34, a 
10-sector unit of disk storage that contains 2,560 bytes. 

BSC: Binary synchronous communications. 

BSCA: The device name specified on the file 
description specifications for a communications adapter. 

byte: The representation of a character by 8 binary bits; 
the amount of storage required for one EBCDIC 
character. 

calculation specifications sheet: An RPG II coding 
sheet used to describe processing to be done by the 
program. 

called station: On a switched line in data 
communications, the location to which a connection is 
initiated. 



character set: A defined collection of graphic symbols. 

Cmd (key): A display station function control key that, 
when pressed, causes System/34 to recognize the 14 
keys on the top row of the keyboard as command 
function keys. See command function keys. 

collating sequence: The order each character holds in 
relation to other characters according to the bit 
structure. 

combined file: Used as both an input and output file. 
A combined file can be specified on the file description 
specifications only for a SPECIAL device or a 
WORKSTN device. 

command display station: (1) A display station defined 
during system configuration as able to request and 
initiate jobs. (2) A display station that can be used for 
data entry or interactive processing. See also data 
display station. 

command function keys: The 14 keys on the top row 
of the display station keyboard that are used with the 
Cmd key to request functions of program products and 
user programs. By using the uppercase shift key, 24 
different key functions are available. In RPG II, the 
command function keys correspond to command key 
indicators KA through KN and KP through KY. 

command statement: A statement that requests the 
performance of a particular function. A command 
statement always contains the name of the command 
and may include parameters or data. The two types of 
command statements are control commands and 
procedure commands. See control command; procedure 
command. 

comments: Words or statements in a program that 
serve as documentation rather than as instructions to 
the compiler. 
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communications adapter: A hardware feature that 
enables System/34 to become a part of a data 
communications network. 

compile: *To prepare a machine language program 
from a computer program written in another 
programming language by making use of the overall 
logic structure of the program, or generating more than 
one machine instruction for each symbolic statement, or 
both, as well as performing the function of an 
assembler. 

compile-time table or array: A table or array compiled 
with the source program that becomes a permanent part 
of the object program. See also execution-time array; 
preexecution-time table or array. 

compiler: A program that translates a series of 
instructions, written in a programming language, into a 
program the system can execute. 



control command: A command statement used by an 
operator to control system or display station operations. 
A control command does not run a procedure and 
cannot be used in a procedure. See also command 
statement; procedure command. 

control field: One or more specified fields that are 
compared to determine the record sequence that 
identifies a record's relationship to other records (such 
as a part number in an inventory record). Control fields 
are compared from record to record to determine when 
certain operations are to be performed. 

control group: A set of records all having the same 
control field information. 

control level indicator: An indicator used to specify 
certain fields as control fields and to control which 
operations are performed at total time in the RPG II 
program cycle. 



computer: An electronic device or group of interrelated 
devices capable of processing data, either separately or 
in conjunction with other interrelated devices. 

conditioning: Using indicators to control when 
calculations or output operations are done. 

consecutive processing: File processing that reads 
records in the order in which they exist in the file. 

CONSOLE files: Files assigned to the device CONSOLE 
on the file description specifications. A CONSOLE file 
can be either an input data file or a record address file. 
Input to a CONSOLE file is received from only one 
command display station. 

constant: A data item that does not change during 
execution of a program. This item represents itself and 
is actually used in processing rather than being a field 
name representing the data. For example, cost is a 
name representing a field containing data that changes. 
The constant 100 is actual data used that does not 
change. 

control and file description specifications sheet: An 

RPG II coding sheet on which the programmer provides 
special information about the program, describes the 
system to the RPG II compiler, and describes the files 
used. 

control break: A change in the contents of a control 
field. 



control statement: A specification that provides special 
information about the program and describes the system 
to the RPG II compiler. 

control station: The primary or controlling computer in 
a multipoint data communications configuration. The 
control station controls the sending and receiving of 
data. 

CRT: The device name specified on the file description 
specifications when the display screen is used as an 
output device for normal and exception output. 

data: *A representation of facts, concepts, or 
instructions in a formalized manner suitable for 
communications, interpretation, or processing by human 
or automatic means. 

data display station: (1) A display station that was 
defined during system configuration as only capable of 
being acquired by an executing program. A data display 
station cannot request or initiate jobs. (2) A display 
station that can be used for data entry only. See also 
command display station. 

data link: The equipment and protocols used for data 
transmission over a communications line. 

data link message: A message sent over a data link 
that is in the form of EBCDIC or ASCII code. 

data processing: Performing a series of planned 
instructions on information to achieve a desired result. 
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delete-capable file: A file that allows deletion of 
records. It is defined by specifying the DFILE parameter 
on the FILE OCL statement that builds the file. 

demand file: A file that can be specified as an input, 
update, or combined file and that is used with the READ 
or KEY operation code. 

descending order: The arrangement of data in a 
specified field from high to low. See collating sequence. 

detail record: An output record produced during the 
detail output operation of the RPG II program cycle. 

detail time: A portion of the RPG II program cycle in 
which calculation and output operations for specified 
fields are performed for each record read. 

diagnostic message: An output message that identifies 
RPG II specification errors and their severity. 

digit: One of the characters through 9. 

direct file: A disk file in which records are assigned 
specific record positions. Regardless of the order in 
which records are put in a direct file, they always 
occupy the assigned position in the file. Direct files can 
be processed by the consecutive, random by relative 
record number, and addrout file processing methods. 

disk: A flat, circular plate with a magnetic surface on 
which program libraries and data files can be stored. 

disk file: An organized collection of related records on 
disk that are treated as a unit. 

diskette: A thin, flexible magnetic disk permanently 
enclosed in a semirigid protective jacket. 

display: When a display screen format is executed, all 
of the information on the display screen. See display 
screen format. 

display screen: The part of a display station on which 
data, messages, or other information is displayed. 

display screen format: A two-part table that defines a 
display presented by display station data management. 
Display screen formats are generated and placed in a 
library load member by the display screen format 
generator utility program ($SFGR). 



display station: An input/output device containing a 
display screen on which data is displayed and an 
attached keyboard from which data is entered. A 
display station can be designated as the system console 
or as a command or data display station at system 
configuration time. 

display station local data area: A 256- byte area on 
disk that can be used to pass information between jobs 
and job steps during a session. A separate local data 
area exists for each command display station. 

displayed message: A message that appears on the 
display screen and is documented in the Displayed 
Messages Guide. 

documentation: A written explanation of a program, its 
use, function, and operations. 

EBCDIC: Extended binary coded decimal interchange 
code. 

EBCDIC transparency: See transparent text mode. 

edit: To punctuate a field by suppressing zeros and 
inserting commas, decimal points, dollar signs, or other 
constant information. 

edit code: A number or letter indicating that editing 
should be done according to a predefined pattern. This 
includes zero suppression and punctutation. 

element: The smallest addressable unit of a table or 
array. 

end of file: The end of records in a file. 

entry function key: Any of the following four keys that 
the operator can use to perform an enter function: Field 
Exit, Field -, Field +, or Enter/ Rec Adv. 

EOF: End of file. The end of records in a file. 

EOJ: End of job. 

erase: To remove a unit of data. 

error message: See diagnostic message. 

execute: To cause an instruction, program, utility, or 
other machine function to be performed. 



display screen layout sheet: A form used to plan the 
location of data on the display screen. 
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execution-time array: An array that is loaded by input 
specifications after actual execution begins. See 
compile-time table or array; preexecution-time table or 
array. 

extension and line counter specifications sheet: An 

RPG II coding sheet used to provide information about 
record address, table, and array files used by the 
program and the number of lines to be printed on the 
forms that are used. 

external indicators: Eight indicators (U1 through U8) 
that are normally set by the SWITCH OCL statement 
prior to processing. The indicators can be altered by the 
job during execution. External indicators are sometimes 
used to specify which files are to be used in multifile 
processing. 

factor: In RPG programming, a field name or constant 
used in a calculation operation. 

field: One or more bytes of related information in a 
record. 

field indicator: An indicator used to indicate whether a 
given field in an input record is plus, minus, zero, or 
blank. 



filename: The name associated with a file. A filename 
can be from 1 to 8 characters long. The first character 
must be alphabetic, and the remaining characters can be 
any combination of alphabetic or numeric characters. 
Blanks cannot appear between characters in a name. 

first page (IP) indicator: An indicator used to specify 
which lines (such as headings) should be printed on the 
first page only. 

generated program: A program that has been 
compiled. 

group indication: In RPG II programming, the printing 
of control information for only the first record of a group 
of records containing identical control information. 

half adjust: A method of rounding off a number by 
adjusting the last significant digit. 

heading: A constant, usually printed at the top of the 
page, identifying the information or report on that page. 

hex: Hexadecimal. 

hexadecimal: Pertaining to a number system with a 
base of 16; valid digits range from (zero) through F. 



field length: The number of positions allowed for a 
given field, determined by the maximum length of 
information that will be entered in the field. 

field name: In RPG programming, a combination of no 
more than 6 alphabetic or numeric characters that 
identify a field. The first character must be alphabetic, 
and no blanks can appear between characters. 

figurative constant: An implied literal specified in the 
calculation specifications without a length definition. The 
length is determined by the fields with which the 
constant is used. 

file: A set of related records. See disk file; input file; 
output file; primary file; secondary file. For types of file 
organization, see sequential file; indexed file; direct file. 
For types of file processing, see consecutive; sequential 
by key; random by key; random by relative record 
number; addrout file. 



host: See control station. 

ideographic: Consisting of both pictograms and 
graphics and often other types of symbols. 

ideographic character: A pictogram or graphic that 
requires 2 bytes of storage. 

ideographic character set: A character set that 
contains pictograms or graphics that can be used to 
represent ideas. 

ideographic field: In a record, one or more ideographic 
characters of related information bracketed by S/O and 
S/l control characters. 

ideographic support: The combination of hardware and 
software elements allow the use of ideographic data on 
a System/34. 

index key: The field within a record that identifies that 
record in an indexed file. The index key and record 
location for each record in the file are stored in the file 
index. 
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indexed file: A file in which the position of each record 
is recorded in a separate portion of the file called an 
index. The index contains an index key and disk address 
for each record in the file. Indexed files can be 
processed by the consecutive, sequential by key, 
sequential within limits, random by key, or addrout file 
processing methods. Contrast with direct file; sequential 
file. 



instruction: A statement that specifies an operation to 
be performed by the computer and the locations in 
storage of all data involved in that operation. 

interactive processing: A method of processing in 
which each operator action causes a response from a 
system or program, as in an inquiry system or an airline 
reservation system. 



indicator: (1) A two-digit or 2-character entry on the 
specification sheets used to tell when certain operations 
are to be performed. (2) An internal switch used by the 
object program to remember when a certain event 
occurs and what to do when the event occurs. See 
control level indicator; field indicator; first page indicator; 
last record indicator; overflow indicator; record identifying 
indicator; resulting indicator. 

input: (1) Information to be transferred from disk or 
keyboard to storage. (2) Data that is to be operated on 
(processed) by the computer. 

input file: A set of records a program uses as source 
information. 



intermediate block checking: In binary synchronous 
communications, a provision that allows validity 
checking of each logical record, rather than checking of 
the total buffer, when large buffers of data are received. 

ITB: Intermediate block check. 

keyboard: A systematic arrangement of keys by which 
commands, control statements, and data are entered 
into a computer. 

KEYBORD: The device name for an input or demand 
file to be used with the KEY and /or SET operation 
codes, which control input and prompts to a command 
display station. 



input job queue: A list of jobs that are waiting to be 
processed by the system. This list is maintained on the 
disk. Each entry in the list references a procedure 
stored in a library on disk. 

input specifications sheet: An RPG II coding sheet 
used to identify the different types of records in each 
input file and to describe the fields of each record. 

inquiry: (1) A request (entered from a display station) 
for information in storage. See also inquiry program. (2) 
A request for information that puts the sytem into 
inquiry mode. (The operator initiates an inquiry by 
pressing the Attn key.) 

inquiry file: The file into which an inquiry is made using 
the inquiry function of the customer program. 

inquiry mode: A method of operation when the system 
is responding to an inquiry. (The operator puts the 
system in inquiry mode by pressing the Attn key.) 

inquiry program: (1) A program that enables the 
operator to access information from a disk file. See 
inquiry. (2) A program that is executed while the system 
is in inquiry mode. 



last record indicator: An indicator that signifies when 
the last data record is processed and that is used to 
condition all operations that are to be done at the end 
of job (EOJ). 

library: An area on disk that can contain load members, 
procedure members, source members, and subroutine 
members. See also system library; user library. 

library member: A named collection of records or 
statements in a library. See load member; procedure 
member; source member; subroutine member. 

limits file: A record address file containing limits 
records when the sequential within limits processing 
method is used. 

limits record: A record that consists of the lowest 
record key and the highest record key of the records in 
the indexed disk file that are to be read. 

literal: A symbol or a quantity in a source program that 
is itself data, rather than a reference to data. 

load member: A collection of instructions that the 
system can execute to perform a particular function, 
regardless of whether the function is requested by the 
operator or specified in an OCL statement. Load 
members are stored in a library. 
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look-ahead field: A field that allows the program to 
look at information in a field on the next record that is 
available for processing in any input or update file. 

LR indicator: Last record indicator. 

machine language: A language that can be interpreted 
and used by a computer. 

main storage: (1) General purpose storage of a 
computer. (2) Program-addressable storage from which 
instructions can be executed and from which data can 
be loaded directly into registers. 

manual answer: In data communications, operator 
actions to make a called station ready in response to a 
call received over a switched line. Contrast with 
auto-answer. 

manual call: In data communications, operator actions 
taken to initiate a connection with a station over a 
switched line. Contrast with auto-call. 

master file: A collection of permanent information, for 
example, a customer address file, that is often 
processed along with a transaction file. 

match fields: In multifile processing, fields used to 
condition operations to be done when the fields of 
records in different files containing these fields match. 

match level: The value assigned to the match field (M1 
through M9). The match level identifies fields by which 
records are matched during multifile processing. 

message identification code (MIC): A four-digit 
number that identifies a record in a message member. 
This number can be part of the message identifier. 

message identifier: A field in the display or printout of 
a message that directs the user to the description of the 
message in a message guide or a reference manual. 
This field consists of up to four alphabetic characters, 
followed by a dash or a blank, followed by a four-digit 
number (the message identification code). 

message load member: A special type of library load 
member from which the system support program 
product retrieves the text associated with a specified 
message identification code. 

message member: A library load member in which 
each record contains a message. 



message source member: A special type of library 
source member containing control and message text 
statements (MIC and text) required for creating a 
message load member. 

MIC: Message identification code. 

MRT: Multiple requestor terminal program. 

multiple requestor terminal program: A program that 
can process requests from more than one requesting 
display station concurrently. Compare with single 
requestor terminal program. 

nonswitched line: In data communications, a 
connection between systems or devices that does not 
have to be established by dialing. Contrast with 
switched line. 

null response: The action of pressing the Enter/ Rec 
Adv key without having previously keyed any data. 

numeric characters: The digits through 9. 

object program: A set of instructions in machine 
language. The object program is produced by the 
compiler from the source program. 

OCL: Operation control language. 

operation: A defined action performed on one or more 
data items, such as adding, multiplying, comparing, or 
moving information. 

operation code: A word or abbreviation specified on 
the calculation specifications sheet to identify an 
operation, such as SUB for subtract or ADD for 
addition. 

operation control language (OCL): A programming 
language used to identify a job and its processing 
requirements to the System Support Program Product. 

OR relationship: Specifying conditioning indicators so 
that the operation conditioned is performed when either 
one or both of the conditions are met. 

output: Data delivered or ready to be delivered from a 
device or program, usually after some processing. 

output file: A file containing the data that results from 
processing. 
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output specifications sheet: An RPG II coding sheet 
used to specify the records to be written in each output 
file and the format of the records. 

overflow: The condition that occurs when the last line 
to be printed on the page has been passed. 

overflow indicator: An indicator that signifies when the 
last line on a page has been printed or passed. It can 
be used to specify which lines are to be printed on the 
next page. 

overflow line: The line specified to be the last line 
printed on a page. 

overflow page: The new page after an overflow has 
occurred. 

overlay: A program segment or phase that is loaded 
into main storage. It replaces all or part of a previously 
loaded segment. 

packed data field: One byte is used to store two 
numeric digits. Bits through 3 for one digit and bits 4 
through 7 for the other. 

packed decimal format: Each byte within a field 
represents two numeric digits except the rightmost byte, 
which contains one digit in bits through 3 and the sign 
in bits 4 through 7. For all other bytes, bits through 3 
represent one digit; bits 4 through 7 represent one digit. 
For example, the decimal value +1 23 is represented as 
0001 0010 001 1 1111. Contrast with zoned decimal 
format. 



primary file: If specified, the main file from which a 
program first reads records. In multifile processing, the 
primary file is used to determine the order in which 
records are selected for processing. 

printer: The output device that records information on 
paper in the form of printed characters. 

printer spacing chart: A form used to plan the location 
of data in the printer output file. 

procedure: A set of related OCL statements, and 
possibly utility control statements, that cause a specific 
function or set of functions to be performed. A 
procedure in a library is called a procedure member. 

procedure command: A command statement that runs 
a procedure. A procedure command is a special form of 
the INCLUDE OCL statement. See also command 
statement; control command. 

procedure member: A procedure that is stored in a 
library. 

processing: The handling of input according to specific 
instructions or rules; performing a series of planned 
actions upon information (data) to achieve a desired 
result. 

processing unit: The parts of a computer that perform 
the processing and control functions for the system, 
perform operations on data, and control output. These 
units include main storage, main storage processor, 
control storage, and control processor. 



packed field: A field that contains data in the packed 
decimal format. 

packed key: An index key in the packed decimal 
format. 

polling: In a multipoint environment for data 
communications, an invitation to send, transmitted from 
the primary station to a specific tributary station. 



program: (1) A sequence of instructions to a computer, 
written in a special form the computer can interpret. A 
program tells the computer where to get input, how to 
process it, and where to put the results. (2) A set of 
instructions that tells the computer which operations are 
to be done and how to do them. 

program cycle: A series of operations performed by 
the computer for each record read. 



preexecution-time table or array: A table or array that 
is loaded at the same time as the object program, 
before actual execution of the program begins. See also 
complle-time table or array; execution-time array. 



program listing: A computer printout that gives 
information about the source program, such as source 
statements, diagnostic messages, indicators used, 
storage address of fields and constants used. 
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program name: The name or code specified in columns 
75 through 80 of the RPG II specifications sheets, which 
identify a program. You can name the program 
according to its function or use any letters and numbers 
to identify the program. 

prompt: A message issued by a program that requests 
either information or an operator action to continue 
processing. 

protected field: A field on a display in which operators 
cannot key data. 

random by key: A method of processing chained files 
using the CHAIN operation code. Records to be 
processed are identified by record keys. 



relative record number: A number that specifies the 
location of a record in relation to the beginning of the 
file. 

result field: The name of a field specified on the 
calculation specifications where the outcome of 
arithmetic calculations is kept. 

resulting indicator: An indicator that signifies whether 
the result of a calculation is plus, minus, or zero; 
whether a field is greater than, less than, or equal to 
another field; or whether an element of a table or array 
was found. 

right justify: The placement of data in a field with the 
least significant digit in the rightmost position. 



random by relative record number: A method of 
processing chained files using the CHAIN operation 
code. Relative record numbers are used to identify the 
records to be processed. 



RPG II: A commercially oriented programming language 
specifically designed for writing application programs 
that meet common business data processing 
requirements. 



record: A collection of related data, treated as a unit. 
For example, one line of an invoice can comprise a 
record. A complete set of records could form a file. 

record address file: An input file that indicates to your 
program which records are to be read from a disk file, 
and the order in which the records are to be read from 
the disk file. 

record identification code: Characters placed in a 
record to identify that record type. 

record identifying indicator: An indicator that 
identifies the type of record being processed during the 
current program cycle. 

record key: A field within a record that identifies the 
record in a file. 

record length: The total number of characters (bytes) in 
a record. 

record type: The classification of records in a file. 
Records are classified according to a specific field or 
fields within each record. Records of the same type 
have the same fields in the same order and identical 
record identification codes. 



RPG II display format generator: A program within 
RPG II that uses the input specifications to generate 
source input to the $SFGR utility program, if the RPG II 
program contains a CONSOLE device. 

RPG II program cycle: A series of operations 
performed by the computer for each record read. 

RPG II source program: The program used as input to 
the RPG II compiler. The program is translated into 
machine language and stored in a library as a load 
member. 

RPGR: RPG II display format generator. 

S/l control character: See shift-in (S/l) control 
character. 

S/O control character: See shift-out (S/O) control 
character. 

search word: Data for which you want to find a match 
in a table or array. The search word is specified in the 
LOKUP statement. 

secondary file: Any file other than the primary file used 
in multifile processing. 



region: The amount of main storage available for a 
task. Region size is specified by a REGION OCL 
statement, by the SET procedure, or by the $SETCF 
utility program. 



sequence checking: An RPG II function that checks 
the sequence of records in input, update, or combined 
files used as primary and secondary files. 
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sequential by key: A method of file processing that 
reads records in the order in which the record keys are 
arranged in the index portion of the file. 

sequential file: A file in which records are entered one 
after the other; one in which there is no relationship 
between the contents of the records and their positions 
in the file. Contrast with direct file; indexed file. 
Sequential files can be processed by the consecutive, 
random by relative record number, and addrout file 
processing methods. 

SEU (source entry utility): A part of the Utilities 
Program Product that is used to enter and update 
source and procedure members. 

shift-in (S/l) control character: A character that 
indicates the end of a string of ideographic characters. 
The shift-in control character is represented by hex OF. 

shift-out (S/O) control character: A character that 
indicates the start of a string of ideographic characters. 
The shift-out control character is represented by hex OE. 

single requestor terminal program: A program that 
can have only one requesting display station at a time. 
Contrast with multiple requestor terminal program. 

source member: A collection of records, such as RPG 
II specifications, that is used as input for a program. 
Source members are stored in a library. 

source program: A set of instructions that represents a 
particular job as defined by the programmer. These 
instructions are written in a programming language, such 
as RPG II. 

special character: A character other than a digit, a 
letter, or #, $, @. For example, *, +, and % are special 
characters. 

specification sheets: Forms on which an RPG II 
program is coded and described. See control and file 
description specifications sheet; extension and line counter 
specifications sheet; input specifications sheet; calculation 
specifications sheet; output specifications sheet; auto 
report option specifications sheets; telecommunications 
specifications sheet. 

station: A system or device that is capable of sending 
or receiving data over a communication line. 



subroutine: In RPG II programming, (1) a group of 
instructions that are coded last on the calculation 
specifications and that can be referenced one or more 
times elsewhere in the calculation specifications; (2) a 
group of assembler instructions, assembled as a 
subroutine, that can be referenced by an RPG II 
program. 

subroutine member: A subroutine that needs to be link 
edited (joined) before being loaded for execution. 
Subroutine members are stored in a library. 

switched line: In data communications, a connection 
between a communication controller and a remote 
station, or between two stations, that is established by 
dialing. Contrast with nonswitched line. 

system console: A display station designated to 
activate certain system functions, and control and 
monitor system operation, in addition to functioning as a 
command display station. 

system input: The statements and commands that 
make up the system input stream. 

system input device: The device from which the 
system input stream is being read. 

system library: The library containing the members that 
are part of the System Support Program Product. The 
system library is labeled ^LIBRARY and cannot be 
deleted from disk. See also library; user library. 

table: A series of elements with like characteristics. 
Like an array, a table can be searched for a uniquely 
identified element. Unlike an array, however, elements 
in a table cannot be accessed by their position relative 
to other elements. Contrast with array. 

table file: An input file containing table entries. 

telecommunications specifications sheet: An RPG II 
coding sheet that describes the information necessary to 
establish and maintain the BSC link. 

total operations: Operations performed only after a 
group of records has been processed. 

total rolling: The transfer of accumulated totals from 
one field to another during a control break. 

total time: That part of the RPG II program cycle in 
which calculation and output operations specified for a 
group of records are done. 
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transmission control characters: In data 
communications, nondata characters that are included in 
a message to control communication over a data link. 
For example, the sending station and the receiving 
station use transmission control characters to exchange 
status information; the receiving station uses 
transmission control characters to flag errors in data it 
receives. 

transparent literal: A literal that begins with an 
apostrophe followed immediately by the shift-out (S/O) 
control character and that terminates with the shift- in 
(S/l) control character followed immediatedly by an 
apostrophe. 

transparent text mode: In data communications, a 
mode of binary synchronous transmission in which only 
transmission control characters preceded by the DLE 
control character are acted upon as line control 
characters. All other characters having the same bit 
pattern as transmission control characters are 
transmitted as data. 



WORKSTN: The device name specified for a combined 
file that is used to communicate with one or more 
display stations. 

zero suppression: The elimination of preceding zeros in 
a number. For example, 00057 when zero suppressed 
becomes 57. 

zoned decimal format: Representation of a decimal 
value by 1 byte per digit. Bits through 3 of the 
rightmost byte represent the sign; bits through 3 of all 
other bytes represent the zone portion; bits 4 through 7 
of all bytes represent the numeric portion. For example, 
in zoned decimal format, the decimal value +123 is 
represented as 1111 0001 1111 0010 1111 0011. 
Contrast with packed decimal format. 

zoned field: A field that contains data in the zoned 
decimal format. 



tributary station: A secondary or noncontrolling device 
in a multipoint data communications configuration. 

update file: Disk files from which a program reads a 
record, updates fields in the record, and writes the 
record back into the location it came from. 

USASCII: United States American Standard Coded 
Information Interchange. 

user library: A library created by the user. A user 
library is in addition to the system library and may 
contain any type of library member. 

valid RPG II names: The following rules apply to 
names used in RPG II programs. (1) RPG II filenames 
can be from 1 to 8 characters long. (2) RPG II field or 
data structure names can be from 1 to 6 characters 
long. (3) The first character of either a filename, a field 
name, or a data structure name must be an alphabetic 
character. The remaining characters can be any 
combination of alphabetic and numeric characters. (4) 
Blanks cannot appear between characters in a name. 
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/COPY statement specifications 
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input field 15-28 
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asterisk fill (asterisk 
protection) 9-28 
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generated edit codes 15-14 
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*AUTO output specifications (continued) 

generated end positions 15-30 

generated RPG II 
specifications 15-5, 15-34 

generated total fields 15-16 

restrictionsin naming fields "15-16 

group printing 15-21 

indicators, output 15-13 

number of printer files allowed 15-8 

record description entries 15-12 

report format 15-30 

spacing and skipping 15-13 

suppress asterisk indication 15-7 

total rolling 15-15 
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format of page heading 
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generated RPG II specifications 
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♦BLANK 8-13 
"BLANKS 8-13 
♦CANCL 13-29 
*DETC 13-29 
*FILES 2-13 
*GETIN 13-29 
*INP keyword 13-27 
*MODE keyword 13-27 
♦OPCODE 13-27 
♦OUT keyword 13-27 
*PLACE special word 

description 9-17 

example 9-20 
♦RECORD 13-27 
♦STATUS 13-26 
♦suppress (auto report) 
♦ZERO 8-13 
♦ZEROS 8-13 
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A$$SUM subroutine (auto report) 15-34 
accumulating totals (auto report) 15-15 
ACQ (acquire) operation code 

bytes of generated code 16-10 

description 10-7, 13-17 

exception/error indicator 10-7, 13-17 
acquire, definition of G-1 
acquiring devices 13-4 
add a record 
. file description specifications 
entry 3-51 

output specifications entry (ADD) 9-4 
add file, definition of G-1 
ADD operation code 

bytes of generated code 16-9 

description 10-7 
adding records to a file 

delete-capable direct and sequential 
files 3-52, 3-56 

example 3-53 
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indexed file 3-51 

output specifications entry 9-4 

RECNO keyword 3-49 

sequential file 3-52 
additional input/output area 3-22 
address output file (see addrout file) 
addressing characters (BSCA file) 6-6 
addrout file 

(see also record address files) 

binary relative record number 3-17 

definition of G-1 

file description specification entries 
file organization (column 32) 3-20 
length of key field (columns 
29-30) 3-17 

mode of processing (column 28) 3-8 
record address type (column 31) 3-19 
summary charts 3-58 

processing 3-17 
adjusting arithmetic results (see half 
adjust) 

alignment of printer forms 2-11 
alphabetic character, definition of G-1 
alphameric character, definition of G-1 
alphameric field 

length 7-30 

moving (MOVE operations) 10-4 
alphameric literal 8-12 
alternate collating sequence 

coding sheet 2-7 

control specifications entry 2-4 

input record format 2-9 

operations affected 2-4 
alternating format (see related tables) 
ALTSEQ 

(see also alternate collating sequence) 

definition 2-9 



ampersand (&) 

auto report copy function 15-26 

use in edit word 9-29 
AN and OR lines 

calculation specifications entries 8-6 

examples 8-7, 8-8 
AND and OR lines 

(see also output indicators, record 
identification codes) 

*AUTO output specifications 15-13 

*AUT0 page headings 
specifications 15-10 

input specifications 7-2, 7-23, 7-24 

output specifications 9-2, 9-8 
AND relationship 

calculation specifications 8-6 

input specifications 7-24 

output specifications 9-8 
apostrophe 

use with edit word 9-28 

use with output constant 9-26 
AREA field (SUBR21) 13-34 
arithmetic operations 

(see also calculation operations, factor 1, 

factor 2, half adjust individual entries, 
operation codes) 

ADD (add) 10-7 

DIV (divide) 10-16 

length of fields in arithmetic 
operations 10-4 

MULT (multiply) 10-45 

MVR (move remainder) 10-45 

SORT (square root) 10-64 

SUB (subtract) 10-64 

XFOOT (summing elements of an 
array) 10-69 

Z-ADD (zero and add) 10-69 

Z-SUB (zero and subtract) 10-69 
arrangement of source program 1-3 
array 

(see also table) 

*AUTO output field name 15-14, 15-21 
restriction with A in column 39 15-17 

*AUT0 page headings 15-11 

adding records to a short array 14-9 

alternating 14-3- 

auto report specifications 

format of compile-time arrays 15-1 
order in generated program 15-1 

binary format 4-6 

building (see loading) 

building via calculations (see 
execution-time array) 

calculating totals with arrays 14-14 

compile-time 

definition of 14-1 
rules for loading 14-4 

contained in a data structure 14-4 

creating input records 14-3 

decimal positions 4-6 

defining 14-3 
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definitions of terms 14-1 

dynamic arrays (see execution-time array) 

editing 14-10 

element 14-1 

element as result field 8-20 

entries 

length of 4-6 

number of 4-5 

number per record 4-3 
examples of using 14-14 
execution-time 

definition of 14-1 

rules for loading 14-4 
extension specifications 4-1 

summary chart 4-10 
file 

description of 3-5 

sequence 4-8 
file description specifications 
entry 3-4 

filename (when required on file 
description specifications) 3-2 

formatting output 14-14 
full array, definition of 14-1 
index 14-7 

field 14-14 

fixed 14-14 
length of entry 4-6 
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execution-time 14-4 

from more than one record 14-7 

from one record 14-4 

placement in source program 14-4 
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LOKUP operation 10-32 
maximum allowed per program 4-1 
modifying contents 14-9 
moving (MOVEA operation code) 10-40 
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and index 14-7 
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as field name in *AUTO 
output 15-14, 15-17, 15-21 

as field name in *AUTO page 
headings 15-11 

as result field 8-20 

extension specifications 4-2 

file description specifications 3-2 

how to form 4-3 

input specifications 7-30 

rules for 14-7 
number of entries per array 4-5 
number of entries per record 4-3 



array (continued) 

order in source program 14-4 
formatting 14-14 
printing of elements 14-20 
packed format 4-6 
preexecution-time 14-1, 14-4 
printing elements of 14-20 
referencing in calculations 14-8 
referencing in RLABL operation 10-48 
related, definition of 14-1 
relationship of columns 27-32, 11-18, and 
33-85 (extension specifications) 4-5 
searching (see LOKUP operation code) 
sequence of specifications 14-3 
short, definition of 4-6 
square root (SQRT operation) 10-64 
summing elements of (XFOOT 
operation) 10-69 
using field indexes 14-14 
using fixed indexes 14-14 
using name and index 14-7 
using name only 14-7 
XFOOT operation 10-69 
assembler language 

input/output subroutine 3-36 
subroutines 

considerations for programmer 10-53 
linkage to 10-18 
asterisk (*) comment line 1-13 
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on auto report total lines 15-18 
suppression of 15-7 
asterisk fill (asterisk protection) 9-28 
attributes, program 13-1 
AUTO command statement 18-8 
AUTO procedure 18-9 

use of display station local data 
area 18-8 
auto report copy function (see /COPY 
statement specifications) 
auto report function 

(see also *AUTO output specifications, 
*AUT0 page headings specifications, 
/COPY statement specifications, auto 
report option specifications) 
A$$SUM subroutine 15-34 
compilation of source program 18-8 
definition of G-1 
examples of 15-45 
generated specifications 
calculation 15-34 
format of 15-1 
order of 15-5 
output 15-34 
halts 18-10 
messages B-54 
operations of 15-4 
programming aids 15-39 
sample program 19-21 
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auto report output function (see *AUTO 

output specifications) 
auto report page heading function (see 

*AUTO headings specifications) 



B-type program 2-9 
back space key (see function control keys) 
BEGSR (begin subroutine) operation 
code 10-7 
binary field 

comparison with packed and zoned decimal 
fields 7-28 

for table or array file 4-6 

format 7-29 

input specifications 7-26 

output specifications 9-26 
binary relative record number 3-17 

(see also addrout file) 
binary synchronous communications (BSC) 

definition of G-2 

description 6-1 
binary synchronous communications adapter 

(see also BSCA file, telecommunications 
specifications) 

BSCA device name 3-28 
bit operations 10-5 

(see also BITON, BITOF and TESTB) 
bit testing (TESTB) 10-67 
BITOF (set bit off) operation code 

bytes of generated code 16-9 

description 10-8 
BITON (set bit on) operation code 

bytes of generated code 16-9 

description 10-8 
blank after 

*AUTO output 15-15 

generated for total fields 15-18 

*AUTO page headings 1 5- 11 

output specifications 9-22 
block length 

file description specifications 
entry 3-7 

relation to record length entry 3-8 
branching operations 10-6 

see also GOTO operation code, TAG 
operation code) 
branching to assembler language 
subroutine 10-18 
BSC (binary synchronous 
communications) 6-1 
BSCA file ■■-■ ' ' 

addressing characters 6-6 

block length 3-7 



BSCA file (continued) 

description of 3-29 

file description specifications 6-6 

polling characters 6-6 

record length 3-7 

wait time 6-5 
buffer erasing, CONSOLE 8-20 
bypass (halt recovery option) 18-11 
bytes (see packed or binary fields) 
bytes of generated code for 
calculations 16-9 



C/Z/D (character/zone/digit) 

in record identification code 7-23 
calculation 

bytes of generated code 16-9 

detail time 1-6 

factors 1 and 2 8-12 

generated by auto report 15-5, 15-34 

indicators 

conditioning 8-6 
control level 8-2 
in AND relationship 8-6 
resulting 8-23 
operations 

(see also operation codes) 
coding techniques 16-8 
summary of 8-14, 10-4 
order in auto report generated 
program 15-5 
specifications 8-1 

general description 1-5 
order of 8-1 

relationship between columns 7-8 and 
9-17 8-11 
summary A-19 
subroutines 10-6 
coding of 10-19 
operation codes 10-6 
total time 1-6 
cataloged RPG II source specifications 

used by /COPY function 15-22 
cataloging auto report generated 
program 15-7 
CHAIN operation code 10-11 
(see also direct file load, random 
processing) 

bytes of generated code 16-10 
specifying storage index 3-49 
chained file 

description of 3-5 
number allowed per program 3-5 
random processing 3-11 
character 

(see also record identification codes) 
collating sequence 2-6 
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character (continued) 

considering characters equal 2-5 
grouping by zone and digit 7-23 
hexadecimal equivalents 2-6 
in record identification code 7-22 
structure (see collating sequence, packed 
or binary field) 
unprintable character option 2-14 
checking sequence (see sequence checking) 
clear key (see function control keys) 
Cmd (see command key) 
code (see edit code, record identification 
code) 

codes, operation (see operation codes) 
coding sheet (see calculation 
specifications, control specifications, 
display screen format specifications, display 
screen layout sheet, extentsion 
specifications, file description 
specifications, input specifications, 
line counter specifications, output 
specifications, telecommunications 
specifications, translation table 
and alternate collating sequence 
coding sheet) 

coding subroutines 10-19 
collating sequence 2-6 

(see also alternate collating sequence) 
column headings 

(see also *AUTO page headings 
specifications) 
centering of 15-30 

overflow of D/T-*AUTO print lines 15-32 
spacing and skipping 15-30 
combined file 

definition G-2 
description 3-4 
translation 2-11 
command display station (definition) G-2 
command function keys (see command keys) 
command key indicators (KA-KN, KP-KY) 
(see also SET operation code, WORKSTN 
file) 

conditioning calculation operations 8-6 
conditioning output operations 9-8, 9-11 
corresponding command keys 1-12, 10-54 
general description 1-12 
setting indicators 1-12 
specified by SET operation 10-54 
command keys 
Cmd 10-54 

corresponding indicators 10-54 
definition G-2 
enabling/disabling 13-32 
end of file (CONSOLE) 3-6 
null response 10-54 
resetting 10-54 
using SET operation to specify ones 

to be pressed 8-23, 10-54 
with a WORKSTN file 1-12 
command statements 
AUTO 18-8 
RPG 18-1 
RPGR 18-4 
RPGX 18-4 



comments 

/COPY statement 15-22 • 

for program documentation 1-13 

on calculation specifications 8-25 

on extension specifications 4-10 

on table input records 4-3 

order in auto report generated 
program 15-5 

use of asterisk (*) 1-13 
common entries on specification 
sheets 1-12 
COMP (compare) operation code 

bytes of generated code 16-9 

description 10-13 
compare and testing operations 10-5 
compare, arithmetic 

alternate collating sequence 2-4 

description 10-13 
compilation 

auto report program 18-8 

halts 18-11 

RPG II format generator 18-4 

source program 18-1 
compile-time arrays 

definition 4-2, 14-1 

rules for loading 14-4 
compile-time table 

definition 4-2, 14-1 

rules for loading 14-4 
compiler listing, spacing of 1-13 
compiler messages B-1 
compiler program 1-1 
conditioning files 3-57 

(see also external indicators) 
conditioning indicators (01-99) 

bytes of generated code 16-10 

calculation 8-6 

general description 1-9 

output 9-8 
configuration for data communications 
network 6-2 

consecutive processing of files 3-9 
CONSOLE file 

array name as input field name 7-30 

as record address file 3-29 

block length 3-7 

buffer, erasing 10-57, 12-7 

description of 3-30 

display screen format member 
generation of 12-1 
name 2-15, 12-2 
RPGR command statement 18-4 

end of 3-6 

ERASE function 8-20, 10-57 

file description specifications 
chart 3-62 

how to specify subfields 12-7, 12-8 

record identifying indicators 12-6 

record length 3-7 

restrictions 12-1 
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CONSOLE file (continued) 
sample program 19-1 
sequence checking 3-6 
specifications 12-5 
used with KEYBORD/CRT 12-1 
constants 

(see also edit word, literal) 
*AUTO output 

A in column 39 15-15 
blank or B in column 39 15-13 
C in column 39 15-18 
1-9 or R in column 39 15-20 
*AUTO page headings 15-11 
definition G-3 
rules for use on output 
specifications 9-26 
continuation line 3-45 
continuation line option 
DISK device 3-49 
name of label exit 3-46 
SPECIAL device 3-45 
WORKSTN device. 3-45, 13-14 
continuation record (see continuation line) 
continue (halt recovery option) 18-11 
control break 

(see also control field, control group, 
control level indicators) 

description 1-6 
how to avoid unwanted 7-37 
on first cycle 7-36 
control field 

(see also control break, control level 
indicators) 

assigning on input specifications 7-34 
definition G-3 
description 1-6 
split 7-36, 7-39 
control group 

definition G-3 
description 1-6 

(see also control break, control field, 
control group, control elvel indicators) 
control level 

(see also control break, control 
field, control group, control level indicators) 
calculation specifications 8-2, 8-11 
input specifications 7-34 
control level indicator (L1-L9) 

assigning to input fields 7-34 
auto report 

adding to copied input 
specifications 15-28 
determining levels of generated 
totals 15-16 

effect in group printing 15-22 
calculation specifications 
columns 7-8 8-2 



control level indicator (L1-L9) (continued) 

calculation specifications (continued) 
columns 9-17 8-6 
relation between entries 8-11 

general description 1-11 

record identifying indicator 7-7 

with subroutines 10-6 
control specifications 2-1 

general description 1 -4 

summary A-1 
controlled cancel (halt recovery 
option) 18-11 
controlling calculations 8-2 
controlling output 9-8 
copy function, auto report (see /COPY 
statement specifications) 
CR (negative balance symbol) 9-30 
creating a direct file (see direct file 
load) 

creating a source library member 1-1 
creating overlays 16-1 
cross-reference listing 

format of 18-10 

identification of 2-15 

parameter for 18-1 

RPGX command 18-4 
CRT file 

block length 3-7 

description 3-32 

file description specifications 3-62 

record length 3-7 

spacing and skipping 9-8 
currency symbol (see also fixed currency 
symbol and floating currency symbol) 
cycle, program 

detailed description 17-1 

general description 1-5 

matching record 11-2 

with a WORKSTN file 13-6,13-7 



D-*AUTO 

(see also *AUTO output specifications) 

overflow of print lines 15-33 
D specifications, summary of A-37 
data communications programming 6-1 

(see also telecommunications) 
data display station (definition) G-3 
data format (see character, packed or 
binary field) 
data structure 

as result field 8-20 

description 7-17 

display station local data area 7-6 

examples 7-18 

INFDS subfields 7-21, 13-25 
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data structure (continued) 

length 7-22 

overlapping subfields 8-12 

referenced in RLABL operation 10-48 

restrictions 7-22 

subfield names 7-21 
date edit 2-3 
date format 2-3 
date generated for *AUTO page 
headings 15-10 

suppressing the date 15-7 
date option 2-3 

date suppression (auto report) 15-7 
DEBUG operation code 

control specifications entry 2-3 

description 10-15 

format of records 10-15 
debugging WORKSTN programs 13-50 
decimal comma, definition of 2-4 
decimal data format (see packed decimal 
format, zoned decimal format) 
decimal period, definition of 2-4 
decimal positions 

calculation specifications 8-22 

extension specifications 4-6 

generated total fields 15-16 

input specifications 7-30 

with move remainder (MVR) 
operation 10-45 

with square root (SQRT) operation 10-64 
defining a field in calculations (result 
field) 8-20 

defining an alternate collating 
sequence 2-4 
definition of terms G-1 
DEL 

(see also deleting record from a file) 

description 9-4 
delete-capable file 

adding records to 3-52, 3-56 

definition 6-4 

direct file load 3-21 
deleting records from a file 

DEL 9-4 

RECNO keyword 3-49 
demand file 

(see also READ operation code) 

description of 3-5 

number allowed per program 3-5 
description 15-6 
detail calculation time 1-6 
detail lines (see *AUTO output 
specifications) 
detail output record 9-2 
detail output time 1-6 
detail printing, auto report (see *AUTO 
output specifications) 



detail time 1 -6 
detailed object program logic 17-1 
device 

assignment chart 3-31 
file description entry 3-29 
special support 3-33 
with WORKSTN file, (display stations & 
SSP-ICF sessions) 13-1 
device names (see BSCA, CONSOLE, CRT, DISK 
KEYBORD, PRINTER, SPECIAL, WORKSTN) 
digit 

(see also character, record 
identification code) 
grouping by zone and digit 7-25 
direct file 

adding records (delete-capable) 3-52 
adding records (differences from 
sequential and indexed) 3-21 
creating (loading) delete-capable 3-21 
creating (loading) 
nondelete-capable 3-20 
description 3-20 
processing methods 3-9, 3-60 
summary chart 3-60 
synonym records 3-21 
DISK device 3-33 
disk file 

(see also direct file, indexed file, 
sequential file) 
block length 3-7 
device entry 3-29 
organization (see file organization) 
processing methods 3-9, 3-58 
record length 3-7 
sequence checking 3-6 
display format (see display screen format) 
display screen format 

for CONSOLE file 12-2 
for WORKSTN file 13-9 
input field 13-11 
name on output 
specifications 9-28, 13-21 
number of 2-14, 13-14 
output field 13-11 
output/input field 13-11 
steps in creating 13-12 
load member name 

defining with FMTS continuation 
option 3-48, 13-16 
for CONSOLE file 2-15,12-2 
for WORKSTN file 2-15 
name on output 
specifications 9-28, 13-21 
number of 2-14, 13-14 
specifications 13-10 
example 13-32 
summary A-33 
with KEY operation 10-25 
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display screen format 
specifications 13-10 
display screen layout sheet 13-9 
display station 

attaching to a program 13-4 

definition G-4 
display station local data area 

definition G-4 

description 7-6 

how to define 7-6 

input specification entries 7-6 

SUBR21 to input and output with multiple 
display stations 13-34 

use by RPG II procedures 18-1, 18-8 
DIV (divide) operation, code 

(see also MVR operation code) 

bytes of generated code 16-9 

description 10-16 
dollar sign in edit words 9-32 
DS 

(see also data structure) 

input specifications entry 7-7 
dual input/output area 3-22 
duplicate character value, processing 
of 13-31 

duplicate field names on /COPY modifier 
statement 15-28 

duplicate records (see synonym records) 
dynamic array (see execution-time array) 



edit codes 9-21 

*AUTO output specifications 
A in column 39 15-17 
blank or B in column 39 15-14 
generated K edit code 15-14, 15-17 
1-9 or R in column 39 15-21 

*AUTO page headings 
specifications 15-11 

date field 9-25 
control spec 2-3 
control specifications 9-24 
relation to column 21 of 

effect of inverted print 2-4, 9-25 

effect on end position 9-25 

examples 9-23 

zero suppression 9-21 
edit words 9-28 

considerations 9-29 

examples 9-33 

formatting 9-30 

replaceable characters 9-29 

rules for 9-28 

with edit code 9-28 
edit, date 2-3 
editing nonprinter files 9-22 



enable/disable 

command keys 13-32 

function control keys 13-32 
end of file 

file description specifications 
entry 3-6 

for CONSOLE file 3-6 

for WORKSTN file 13-7 

records processed 3-6 
end position 

blank 9-22 

for *AUTO output 
specifications 15-15, 15-30 

in output record 9-22 
ENDSR (end subroutine) operation code 

description 10-16 

factor 2 entries for INFSR 13-29 
entry (see arrays, tables) 
entry function keys, definition of G-4 
ERASE function 8-20 
erasing CONSOLE file buffer 8-20, 12-7 
error handling (see exception/error 
handling for WORKSTN) 
error indicators 13-23 

(see also ACQ, REL, READ, NEXT operation 
codes) 
error return codes 13-26 
error, sequence 

record type 7-2 

recovery from file sequence error 3-6 
exception/error condition codes 13-26 
exception/error handling for WORKSTN 

description 13-21 

error indicators 13-23 

INFDS data structure 13-25 

INFSR subroutine 13-29 
exception/error indicators (see error 
indicators) 

exception/error processing subroutine (see 
INFSR subroutine) 
exception output records 9-2 

(see also EXCPT operation code) 
EXCPT (exception) operation code 10-16 
execute subroutine (EXSR) operation 
code 10-19 

execute, storage size to 2-2 
execution 

halts 18-11 

object program 18-11 

storage size 2-2 
execution-time array 

(see also array) 

description 14-1 

rules for loading 14-4 

specifications 4-10 
EXIT (exit to an external subroutine) 

(see also RLABL operation code) 

operation code 10-18 
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EXSR (execute subroutine) operation code 

bytes of generated code 16-10 

description 10-19 
extension code (file description 
specifications entry) 3-29 
extension specifications 

description 4-1 

general description 1-4 

possible file entries 4-10 

summary A-9 
external indicators (U1-U8) 

as output indicators 9-13 

general description 1-12 

set by SWITCH OCL statement 3-57 

setting and restoring (see SUBR20) 

setting on and off 10-62 

used to condition files 3-57 

used to control calculations 8-11 



factor 1 

as search word 10-30 

entries for 8-12 

in arithmetic operations 10-4 

in compare operations 10-13 
factor 2 

entries for 8-12 

for ENDSR operation 10-16 

in arithmetic operations 10-4 

in compare operations 10-13 
fetch overflow 9-5 

(see also overflow) 
field 

alphameric 7-30, 9-13 

binary 4-6, 7-29, 9-26 

blanking 9-22 

control 1-6, 7-34 

key 3-17, 3-29 

length 7-30, 10-4 

look-ahead 7-10 

match 7-36, 11-1 

numeric 7-30, 9-13 

packed 7-27 

record address 3-17, 7-8 

result 8-20 

zeroing 9-22, 10-69 
field description entries 

(see also *AUTO output specifications) 

input specifications 7-26 

output specifications 9-8 
field indicators (01-99) 

explanation of 7-43 

general description 1-9 

halt indicators as 7-45 

how to assign 7-45 

numeric 7-45 

output specifications 9-8 



field indicators (01-99) (continued) 

used to control calculations 8-6 
field length 

alphameric 7-30 

arithmetic operations 10-4 

calculation specifications 8-21 

compare operations 10-13 

input specifications 7-30 

key 3-17 

numeric 7-30 

output specifications 9-22 

record address 3-17 

relation to decimal positions 8-22 
field location entry (input 
specifications) 7-30 
field name 

as result field 8-20 

definition G-5 

generated by auto report 15-16 

in an OR relationship 7-32 

on input specifications 7-30 

on output specifications 9-13 

referenced in RLABL operation 10-48 

rules for 7-32 

special words 9-13 

(see also *PLACE, PAGE, PAGE1-PAGE7, 
UDATE, UDAY, UMONTH, UYEAR) 
field record relation 

indicators used 7-39 

rules for use of 7-39 
figurative constants 

description 8-13 

with arrays 14-9 
file 

(see also end of file, file designation, 
file organization, file processing, 
multifile processing) 

addrout 3-17, 3-28 

array (see array) 

chained 3-5 

combined 3-4 

CONSOLE 3-30 

demand 3-5 

direct 3-20 

indexed (see indexed file) 

input 3-2 

number allowed on file description 
specifications 3-1 

output 3-2 

primary 3-4 

record address 3-5 

secondary 3-4 

sequential (see sequential file) 

sharing considerations 3-17 

table (see table) 

update 3-2 

WORKSTN 13-1 
file addition 

(see also adding record) 

for direct file 3-20 

for indexed file 3-51 
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file addition (continued) 

for sequential file 3-52 
file and record-type identification entries 

input specifications 7-2 

output specifications 9-2 
file condition 3-57 

(see also external indicators) 
file description specifications 

for BSCA file 6-6 

for CONSOLE file 12-5 

general description 3-1 

maximum number of files allowed 3-1 

summary A-4 

summary charts for device entries 3-58 

using the copy function 15-26 
file designation 3-4 

(see also chained file, demand file, primary file, 
record address file, secondary file, table file) 
file format 3-6 

file information data structure (see INFDS 
Data structure) 

file organization (see indexed files, 
direct files, sequential files) 
file processing (see addrout file processing, 
consecutive processing, random by relative 
record number or key processing, sequential by key 
processing, sequential within limits processing) 
file sharing 2-10 

(see also inquiry function) 
file translation 

description 2-11 

placement of table in source 
program 1-3 

table records 2-13 
file type 3-2 

(see also combined file, input file, 
output file, update file) 
filename 

definition G-5 

file description specifications 3-2 

from 4-2 

input specifications 7-2 

line counter specifications 5-2 

output specifications 9-2 

telecommunications specifications 6-3 

to 4-2 
first page (1P) forms position 2-11 
first page (1P) indicator 

as output indicator 9-13 

general description 1-11 

restrictions 1-11 
fixed currency symbol 9-29, 9-32 
fixed length format 3-6 
floating currency symbol 

auto report 15-21 

examples 9-32 

with edit code 9-22, 9-28 
flowchart 

detailed program logic 17-4 

general program logic 1 -8 



flowchart (continued) 

WORKSTN logic 13-5, 13-7 
FMTS continuation line option 3-48, 13-16 
FORCE operation code 

bytes of generated code 16-10 

description 10-19 
form length 

(see also line counter specifications) 

default value 5-1 

description 10-46 

how to specify 5-2 
form type (column 6) 1-13 
format name (see display screen format) 
format, date 2-3 
format, display screen 

(see also display screen format) 

for CONSOLE file 12-2 

for WORKSTN file 13-9 

with KEY. operation 10-25 
format, file 3-6 
formats, number of 2-14 
formatting edit words 9-30 
formatting report (auto report) 15-30 
forms position, 1P 2-11 
from filename (extension 
specifications) 4-2 
full table or array 14-1 
function control keys 

as exception 13-21 

enabling/disabling 13-32 



general object program logic 1-8 
general storage saving techniques 16-4 
generated calculation code 16-9 
generated RPG II program, auto report 

calculations 15-5, 15-34 

comments 15-5 

date 15-10 

edit codes 15-14, 15-17 

examples 15-44 

field names 15-16 

format of generated specifications 15-1 

group printing 15-21 

order of specifications 15-5 

output specifications 15-5, 15-34 

page number 15-10 

reformatting *AUTO page headings 15-32 

source of specifications 15-22 

subroutine (A$$SUM) 15-34 

total fields 15-16 
generated specifications, auto 
report 15-1, 15-34 

generated total fields, auto report 15-16 
generation of object program (see 
compilation) 
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glossary (definition of terms) G-1 
GOTO (branch to) operation code 

(see also TAG operation code) 

bytes of generated code 16-10 

description 10-22 
group indication 

definition G-5 

description 15-52 
group operations (see total operations) 
group printing, auto report 15-21 
grouping characters by zone and 
digit 7-25 



H-*AUTO record description 15-10 
(see also *AUT0 page headings 
specifications) 

half adjust 8-22 

halt indicators (H1-H9) 

as output indicators 9-13 

as record identifying indicator 7-7 

assigning on input specifications 7-7 

field indicator 7-43 

field record relation 7-39 

general description 1-9 

to control calculations 8-6 

halt recovery procedures 18-11 

halts, auto report 18-10 

header specifications (see control 
specifications) 

heading (H) output records 9-2 

headings (see *AUTO page heading 
specifications, column headings) 
help key (see function control keys) 

hexadecimal equivalents of characters 2-6 



l-type program 2-9 
IBM-supplied procedures 

AUTO 18-9 

RPG 18-3 

RPGR 18-7 

RPGX 18-6 
IBM-written subroutines (see SUBR01, SUBR08, SUBR20, 
SUBR21, SUBR22, SUBR23, SUBR25, SUBR95) 
ID continuation line option 13-16 
identification 

of programs 2-15 

of record types 7-22 
ideographic support 20-1 
immediate cancel (halt recovery 
option) 18-11 



IND continuation line option 13-15 
index key 3-20 
index, array 14-7 
index, storage 3-49 
indexed file 

addition of records 3-51 
addrout processing 3-17 
consecutive processing 3-9 
file addition functions 3-56 
file description summary chart 3-58 
general information 3-20 
key field 3-29 
key length 3-17 
loading 3-17 
random processing 3-11 
sequential by key processing 3-9 
sequential within limits 
processing 3-10 
storage index 3-49 
unordered load 3-56 
indication of total lines, auto 
report 15-18 
indicators 

calculation specifications 

AND/OR relationship 8-6 

conditioning (columns 9-17) 8-6 

control level (columns 7-8) 8-2 

resulting 8-23 
command key (KA-KN, KP-KY) 

calculation specifications 8-6 

general description 1-12 

output specifications 9-8,9-11 

setting 1-12 
conditioning 

calculations 8-6 

general description 1 -9 

output 9-8 
control level (L1-L9, L0) indicators 

assigning to input fields 7-34 

calculation specifications 
entries 8-2, 8-6 

field record relation 7-39 

general description 1-11 

input specifications 
entries 7-7, 7-34, 7-39 

L0 8-2 

output specifications entries 9-8 

record identifying indicator 7-7 

with auto report 15-16, 15-22, 15-28 

with subroutines 10-6 
external (U1-U8) 

conditioning files 3-57 

controlling calculations 8-11 

field record relation 7-39 

general description 1-12 

output specifications 9-13 

set by SWITCH OCL statement 3-57 

setting and restoring (see SUBR20) 
field (01-99) 
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indicators (continued) 

field (01-99) (continued) 

assigning on input 
specifications 7-45 

calculation specifications 8-6 

general description 1 -9 

output specifications 9-8 
field record relation 7-39 
file conditioning 3-57 
first page (1P) 

as output indicator 9-13 

general description 1-11 

restrictions 1-11 
general description 1 -9 
halt(H1-H9) 

assigning on input specifications 7-7 

calculation specifications 8-11 

field indicator 7-43 

field record relation 7-39 

general description 1 -9 

output specifications 9-13 
input specifications 

control level 7-34 

field 7-43 

field record relation 7-39 

record identifying 7-7 
last record (LR) 

calculation specifications 8-2, 8-11 

general description 1-11 

input specifications 7-7 

output specifications 9-8 

record identifying indicator 7-7 
level zero (L0) 

calculation specifications 8-2 

output specifications 9-8 

setting indicator restriction 10-5 
matching record (MR) 

(see also multifile processing) 

assigning match fields 7-36, 11-1 

calculation specifications 8-11 

field record relation 7-39 

general description 1-11 

output specifications 9-8 

when turned on 11-1 
negative 9-8 
output 

(see also *AUTO output specifications) 

AND/OR lines 9-2, 9-8 

columns 23-31 9-8 

command key 9-1 1 

first page 9-13 

halt 9-13 

overflow 9-11 

restriction in use of negative 
indicators 9-8 

restriction in use of N1P 15-13 
overflow (OA-OG, OV) 

assigning on file description 
specifications 3-28 



indicators (continued) 

overflow (OA-OG, OV) (continued) 
calculation specifications 8-11 
conditioning auto report page < 
headings 15-10 
external 9-13 
fetch overflow routine 9-5 
general description 1-11 
output specifications 9-11 
relation to program cycle 9-14 
restriction with exception lines 9-11 
setting of 9-14 
permanent error 6-4 
record available 6-5 
record identifying (01 -99) 

assigning on input specifications 7-7 
calculation specifications 8-6 
field record relation 7-39 
general description 1-9 
referenced in RLABL operation 10-48 
resulting (01-99) 

calculation specifications 8-23 
general description 1-9 
use with ACQ operation code 10-7 ' 
use with LOKUP operation code 10-30 
use with NEXT operation code 10-46 
use with READ operation code 10-47 
use with REL operation code 10-47 
use with TESTB operation code 10-67 
valid entries 8-23 
setting (SETON, SETOF) 8-25, 10-5 
summary chart A-29 
valid A-28 
INFDS 

continuation line option 13-16 
purpose of 13-21 
specifications for 13-25 
INFSR 

continuation line option 13-16 
purpose of 13-21 
specifications for 13-29 
inline inquiry subroutine (SUBR95) 2-10 
input field modifier statement (auto 
report) 15-28 
input file 

description 3-2 
for KEYBORD device 3-2 
translation 2-11 
input job queue 1-1, 18-2 
input/output (I/O) area 
additional 3-22 

input/output subroutine (linkage for 
SPECIAL device) 3-34 
shared 2-14 
input/output, programmed control of 10-6 
input records 

number allowed in program 7-6 
option 7-6 
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input specifications 7-1 

general description 1-5 

summary A-16 

using the copy function 15-28 
inputting and outputting the display 
station local data area (see SUBR21) 
inquiry function 2-9 

(see also file sharing, SUBR95) 
inserting new records (see adding records 
to a file) 

Interactive Communications Feature 13-1 
intermediate block checking (ITB) 6-4 
inverted print 2-4 

(see also edit codes) 
ITB (intermediate block checking) 6-4 



keywords (continued) 
•STATUS 13-26 
FMTS 13-16 
ID 13-16 
IND 13-15 
INFDS 13-16 
INFSR 13-16 
NUM 13-15 
RECNO 3-49 
SAVDS 13-15 
SLN 13-16 



K (1, 024 bytes of main storage) 2-2 
K edit code (generated by auto 
report) 15-14, 15-17 

KA-KN, KP-KY indicators (see command key 
indicators) 
key 

(see also indexed files) 

random processing by 3-11 

sequential processing by 3-9 
key field 

length 3-17 

restriction for binary 3-29 

starting location 3-29 
KEY operation code 

bytes of generated code 16-10 

description 10-25 

with SET operation 10-30 
key sorting 3-17 
KEYBORD file 

as a demand file 3-5 

as a primary file 3-4 

block length 3-7 

description 3-33 

description of input data 3-33 

file description specifications 
summary 3-61 

format of display 3-8 

record length 3-7 



with KEY operation 
keywords 

*CANCL 13-29 
*DETC 13-29 
*GETIN 13-29 
*INP 13-27 
*MODE 13-27 
•OPCODE 13-27 
*OUT 13-27 
•RECORD 13-27 
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label exit, name of 3-46 
.last record (LR) indicator 
calculation specifications 
columns 7-8 8-2 
columns 9-17 8-6 
general description 1-11 
input specifications 7-7 
output specifications 9-8 
record identifying indicator 7-7 
length of 

array entry 4-6 
array name 14-7 
block 3-7 

relation to record length 3-8 
data structure 7-22 
field 

alphameric 7-30 
arithmetic operations 10-4 
compare operations 10-13 
numeric 7-30 

relation to decimal positions 8-22 
form 5-1, 5-2 
key field 3-17 
record 3-7 

record address field 3-17 
result field 8-20 
table entry 4-6 
level zero (L0) indicator 

calculation specifications 8-2 
general description 1-11 
output specifications 9-8 
restriction on setting 10-5 
level, control (see control level) 
levels of totals 15-16 
library specification 

for auto report generated source 
program 15-7 
for object program 2-2 
limits processing 3-10 

(see also sequential within limits 
processing) 
limits record 3-10 
line (columns 3-5) 1-13 
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line counter specifications 

description 5-1 

general description 1-4 

summary A-1 1 
line number 

on specifications sheets 1-13 

overflow 5-2 
linkage (input/output) for SPECIAL 
device 3-34 

linkage editor messages B-65 
linkage to assembler subroutines 10-18 

(see also EXIT operation code, RLABL 
operation code) 
linking to external subroutines 10-6 

(see also EXIT operation code, RLABL 
operation code) 
list options 

for auto report 15-8 

for RPG II object program 2-2 
listing, cross-reference (see 
cross-reference listing) 
literal, alphameric 8-12 
literal, numeric 8-13 
loading 

arrays 14-4 

direct file 3-20 

indexed files 3-20 

tables 14-4 

unordered 3-56 
local data area (see display station local 
data area) 

location of field (input 
specifications) 7-30 
logic of RPG II program 

detailed 17-1 

general 1-5 
LOKUP (lookup) operation code 

bytes of generated code 16-10 

description 10-30 
look-ahead field 

description 7-10 

input specifications entry 7-7 
lookup operation (see LOKUP operation code) 
LR (last record) indicator 

calculation specifications 
columns 7-8 8-2 
columns 9-17 8-6 

general description 1-11 

input specifications 7-7 

output specifications 9-8 

record identifying indicator 7-7 
LR total line 15-16, 15-20 
L0 indicator 

calculation specifications 8-2 

general description 1-11 

output specifications 9-8 

setting indicator restriction 10-5 
L1-L9 (control level) indicators 

assigning to input fields 7-34 



L1-L9 (control level) indicators (continued) 
calculation specifications 
entries 8-2, 8-6 
field record relation 7-39 
general description 1-11 
input specifications 
entries 7-6, 7-34, 7-39 
LO 8-2 
L1-L9 total line 15-16, 15-20 



machine instructions 1-1 
main overlay 16-1 
main storage 

size to compile 2-2 

size to execute 2-2 

usage map 16-3 
match fields 

(see also multifile processing) 

alternate collating sequence 2-4 

assigning values (M1-M9) to 11-1, 11-2 

description 7-36 

example 11-4 

in multifile processing 11-1 

used for sequence checking 7-39 
match levels (M1-M9) 7-36 . 
matching record (MR) indicator 

(see also multifile processing) 

assigning match fields 7-36, 11-1 

calculation specifications 8-6 

field record relation 7-39 

general description 1-11 

output specifications 9-8 

when turned on 11-1 
matching record logic 11-2 
matching records processing 11-3 
message identification code (MIC) 

description 10-57 

with a WORKSTN file 13-49 
message member, user .10-58 
message retrieve subroutine 
(SUBR23) 10-53 
method (mode) of processing 3-8 

(see also processing, mode of) 
method of operation, auto report 15-4 
MHHZO (move high to high zone) operation 
code 10-38 

MHLZO (move high to low zone) operation 
code 10-38 

MIC (see message identification code) 
MLHZO (move low to high zone) operation 
code 10-38 

MLLZO (move low to low zone) operation 
code 10-38 

mode of processing (see addrout file 
processing, consecutive processing, random 
by relative record number or key processing, 
sequential by key processing, sequential within 
limits processing) 
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modifier statements (/COPY function) 

file description specifications 15-26 

input field specifications 15-28 
modifying contents of tables and 
arrays 14-9 

modifying copied specifications (/COPY 
function) 15-26 

modifying file description specifications 
(/COPY function) 15-26 
modifying input field specifications (/COPY 
function) 15-28 

move array (MOVEA) operation code 10-40 
move operation codes 

bytes of generated code 16-12 

MOVE 10-38, 10-38 

MOVEL (move left) 10-43, 10-43 
move remainder (MVR) operation code 

description 10-45 
move zone operation codes 

MHHZO (move high to high zone) 10-38 

MHLZO (move high to low zone) 10-38 

MLHZO (move low to high zone) 10-38 

MLLZO (move low to low zone) 10-38 
MOVEA (move array) operation code 10-40 
MOVEL (move left) operation code 10-43, 
10-43 

MRT program (see multiple requestor 
terminal program) 
MULT (multiply) operation code 

bytes of generated code 16-9 

description 10-45 
multifile logic 11-2 . 
multifile processing 

assigning match field values 7-36, 11-1 

end of file entry 3-6 

FORCE operation code 10-19 

logic 11-2 

match fields 11-1 

no match fields 11-1 

normal selection, three files 11-6 
multiple input/output areas 3-22 
multiple requestor terminal (MRT) 
program 13-3 
MVR (move remainder) operation code 

description 10-45 
M1-M9 (match field values) 7-36 



name 

array 4-3, 14-7 

field 

calculation specifications 8-12, 8-20 
input specifications 7-30 
output specifications 9-13 

program 2-15 

result field 8-20 

table 4-3 
name of label exit 3-46 
negative balance (CR) 9-30 
negative indicators 9-8 
negative numbers 7-26 
negative square root 10-64 
NEXT (next) operation code 

bytes of generated code 16-10 

description 10-46, 13-19 

exception/error indicator 10-46, 13-19 
nonprint characters 2-14 
not (N) 

calculation specifications 8-6 

output specifications 9-8 
restriction 9-8 

record identification code 7-23 
null response 10-54 
NUM continuation line option 13-15 
number of entries per record (table or 
array) 4-3 

number of entries per table or array 4-5 
number of formats 2-14 
number of lines per page 5-2 
number, negative 7-26 
numbering report pages (PAGE special words) 

input specifications 7-32 

output specifications 9-13 

restarting numbering sequence 9-17 
numeric (01-99) indicators (see conditioning 
indicator, field indicator, field record relation, 
record identifying indicator, resulting indicator) 
numeric fields 

auto report 

centering column headings 15-32 
editing 15-17 

conversion 7-27 

moving ' 10-4 

sign of 7-26 

testing 7-43 
numeric literal 

calculation specifications 8-13 

inverted print option 2-4 



N (not) 

calculation specifications 8-6 
output specifications 9-8 

restriction 9-8 
record identification code 7-22 



OA-OG, OV (overflow) indicators 
assigning on file description 

specifications 3-28 
calculation specifications 8-11 
conditioning auto report page 

headings 15-10 
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OA-OG, OV (overflow) indicators (continued) 
fetch overflow routine 9-5 
general description 1-11 
output specifications 9-11 
relation to program cycle 9- "1 4 
restriction with exception lines 9-11 
setting of 9-14 
object program 

execution 18-11 
identification 2-15 
listing options 2-2 
logic 

detailed 17-1 

general 1-5 
output 2-2 
size to execute 2-2 
OCL (operation control language) 18-11 
OP field 

for SUBR20 13-31 
for SUBR21 13-34 
open/close, special 16-2 
operation codes 
arithmetic 

(see also half adjust) 

ADD 10-7 

DIV (divide) 10-16 

MULT (multiply) 10-45 

MVR (move remainder) 10-45 

SQRT (square root) 10-64 

SUB (subtract) 10-64 

XFOOT (summing elements of an 
array) 10-69 

Z- ADD (zero and add) 10-69 

Z-SUB (zero and subtract) 10-69 
bit 

BITOF (set bit off) 10-8 

BITON (set bit on) 10-8 

TESTB (test bit) 10-67 
branching 

(see also linkage to external 
subroutines) 

GOTO 10-22 

TAG 10-64 
bytes of generated code 16-9 
compare and testing 

COMP (compare) 10-13 

TESTZ (test zone) 10-69 
DEBUG 10-15 
linkage to external subroutines 

EXIT 10-18 

RLABL (RPG II label) 10-48 
lookup (LOKUP) 10-30 
move 

MOVE 10-38 

MOVEA (move array) 10-40 

MOVEL (move left) 10-43 
move zone 

MHHZO (move high to high zone) 10-38 

MHLZO (move high to low zone) 10-38 



operation codes (continued) 
move zone (continued) 

MLHZO (move low to high zone) 10-38 
MLLZO (move low to low zone) 10-38 
programmed control of input and output 
CHAIN 10-11 
EXCPT (exception) 10-16 
FORCE 10-19 
KEY 10-25 
NEXT 10-46 
READ 10-47 
SET 10-54 
SETLL 10-60 
setting indicators 

SETOF (set off) 10-62 
SETON (set on) 10-62 
shutdown (SHTDN) 10-62 
subroutine 

BEGSR (begin subroutine) 10-7 
ENDSR (end subroutine) 10-16 
EXSR (exit subroutine) 10-19 
summary table A-26 
time of day (TIME) 10-69 
WORKSTN 

ACQ (acquire) 10-7 
REL (release) 10-47 
operation of auto report 15-4 
operations 

(see also operation codes) 
detail 1-6 ' 

total 1 -6 
operator options for halt recovery 18-11 
option specifications 
summary A-25 
option specifications, auto report 
'suppress 15-7 
date suppress 15-7 
list option 15-8 
source 15-7 

source member reference 15-8 
option, date 2-3 
options, listing 2-2 
OR relationship 

calculation specifications 8-6 

input specifications 7-2, 7-24 

output specifications 9-2, 9-8 

order of generated specifications (auto 

report) 15-5 

output 

detail 1-6, 9-2 
exception 9-2, 10-16 
heading 9-2 
table or array 14-10 
total 1-6, 9-2 
output field 

end position 9-22 
name 9-13 

repeating with *PLACE 9-17 
output file 
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output file (continued) 

description 3-2 

translation 2-11 
output function (see *AUTO output 
specifications , *AUTO page 
headings specifications) 
output indicators 

(see also *AUTO output specifications, 
*AUTO page heading specifications) 

AND/OR lines 9-2, 9-8 

columns 23-31 9-8 

command key 9-1 1 

external 9-13 

first page 9-13 

halt 9-13 

overflow 9-11 

restriction in use of negative 
indicators 9-8 

restriction in use of N1P 15-13 
output records 

detail 9-2 

end position 9-22 

exception 9-2 

heading 9-2 

total 9-2 
output specifications 

description 9-1 

general description 1-5 

generated by auto report 15-5 

summary A-22 
overflow 

automatic 3-28 

fetched 9-5 

line 5-2 

default 5-1 

printing 9.-14 

spacing and skipping 9-11 

with indicator specified 3-28 
overflow indicator (OA-OG, OV) 

assigning on file description 
specifications 3-28 

calculation specifications 8-11 

conditioning auto report page 
headings 15-10 

fetch overflow routine 9-5 

general description 1-11 

output specifications 9-11 

relation to program cycle 9-14 

restriction with exception lines 9-11 

setting of 9-14 
overlapping data structure subfields 8-12 
overlay 

area 16-1 

creating 16-1 

how to find 16-5 

process 16-1 

reducing the size 16-5 
override operation 13-30 
overriding fields in a format 13-30 



packed decimal format 

(see also binary format, zoned decimal 

format) 

description 7-27 

length in bytes 7-29 
packed field 

(see also packed decimal format) 

for table or array file 4-6 

input specifications 7-27 

output specifications 9-26 
packed keys 3-19 
page (columns 1-2) 1-12 
PAGE fields, use by auto report 15-10 
page headings 

(see also *AUTO page headings 
specifications) 

generated by auto report 15-30 

reformatting *AUTO 15-32 
page numbering (see PAGE, PAGE1-PAGE7) 
PAGE, PAGE1-PAGE7 

input specifications 7-32 

output specifications 9-17 

resetting to zero 9-18 
performance improvement techniques 16-8 
permanent error indicator 6-4 
placement of headings and fields, auto 
report 15-30 

polling characters for BSCA file 6-5 
position (record identification 
code) 7-23 

positioning printer forms 2-11 
POST operation code 

bytes of generated code 16-10 

description 10-46 
preexecution-time table or array 

(see also array, table) 

description 14-1 

rules for loading 14-4 
primary files 3-4 
print key (see function control keys) 
print, inverted 2-4 
printer 

block length 3 - 7 

description of device 3-32 

form length 5-1 

record length 3-7 

spacing and skipping 9-7 
procedures 

AUTO 18-9 

RPG 18-3 

RPGR 18-7 

RPGX 18-6 
processing methods 

by addrout file 3-17 

consecutive 3-9 

for direct disk files 3-60 

for indexed files 3-58 

for sequential files 3-59 

random by relative record number or 
key 3-11 
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processing methods (continued) 

sequential by key 3-9 

sequential within limits 3-10 
processing, mode of (see processing 
methods) 

program attributes (see multiple requestor 
terminal program, single requestor 
terminal program) 
program cycle 

(see also program logic) 

detailed 17-1 

general description 1-5 

with WORKSTN file 13-6, 13-7 
program halt, nonprint character 2-14 
program identification 

for CONSOLE 2-15 

for WORKSTN 2-15 

from control specifications 1-14, 2-15 

of cross-reference listing 2-15 . 

used for display screen format name 
program listing 2-2 
program logic 

detailed 17-1 

general description, 1-5 

with WORKSTN file 13-6, 13-7 
programmed control of input and 
output 10-6 
programming aids .:.,-■ 

discussion 16-1 

for auto report 15-39 
prompt format for CONSOLE file, 12-5 



random by relative record number or key 
processing 3-11 
random processing 

by addrout file 3-17 

by CHAIN operation code 10-11 

by key 3-1 1 

by relative record number 3-11 
RCODE field 

for SUBR20 13-31 

for SUBR21 13-32 
READ (read) operation code 

bytes of generated code 16-10 

description 10-47 

exception/error indicator 10-47 

used with demand files 3-5 
RECNO keyword 

deleting records 9-4 

description 3-49 

direct file load (delete-capable 
file) 3-21 
record addition 

file description specifications 
entry 3-51 



record addition (continued) 

indexed file 3-51 

output specifications entry 9-4 

sequential file 3-52 
record address file 

(see also addrout file) 

description 3-5 

extension specifications entry 4-2 

format of records 3-5 

length of key field 3-17 

name of display screen format (CONSOLE 
file) 12-2 
record address type 3-19 
record available indicator 6-5 
record description specifications 

*AUTO output specifications 15-12 

*AUTO page headings 
specifications 15-10 

input specifications 7-2 

output specifications 9-2 
record identification code 

description 7-22 

for CONSOLE file 12-6 

input specifications entries 7-23 
record identifying (01-99) indicators 

assigning on input specifications 7-7 

controlling calculations 8-6 

field record relation 7-39 

general description 1-9 
record key 3-20 
record length 

file description specifications 
entry 3-7 

maximum allowed per device 3-7 
record type 7-7, 7-22 
record, limits 3-10 
records, alternate collating sequence 
table 2-9 

records, creating table or array 14-3 
records, file translation table 2-13 
reducing the overlay size 16-5 
region size used for compilation 2-2 
REL (release) operation code 

bytes of generated code 16-10 

description 10-47, 13-19 

exception /error indicator 10-47, 13-19 , 
related tables or arrays 14-1 
relative record number 

description 3-11 

length 3-17 
relative record number field (see, RECNO) 
release a display station (on output) 9-5 
remainder (see MVR operation code) 
repeating 

operations (see GOTO operation code, TAG 
operation code) 

output fields with *PLACE 9-17 

output lines with EXCPT 9-2 
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report 

formatting with auto report 15-30 

preparation 1-1 

return codes, WORKSTN file C-1 

result field 

contents following KEY operation 10-25 

entries 8-20 

in arithmetic operations 10-4 

length 8-21 

testing the value of 8-23 

resulting (01 -99) indicators 

calculation specifications 8-23 
general description 1-9 
use with ACQ operation code 10-7 
use with CHAIN operation code 10-11 
use with LOKUP operation code 10-30 
use with NEXT operation code 10-46 
use with READ operation code 10-47 
use with REL operation code 10-47 
use with TESTB operation code 10-67 
valid entries 8-23 

RLABL (RPG II label) operation code 10-48 
referencing a data structure 10-48 
referencing a field 10-48 
referencing a table or array 10-48 
referencing an indicator 10-48 

roll down key (see function control keys) 

roll up key (see function control keys) 

rolling totals, auto report 15-15 

root segment 16-1 

rounding numbers in result field (half 
adjust) 8-22 

RPG command 18-1 

RPG II format generator 

automatic generation for CONSOLE 
file 12-1 
command statement 18-4 

RPG II names, valid G-11 

RPG II printed messages B-1 

RPGR command 18-4 

RPGX command 18-4 



S specification, summary of A-33 
sample programs 

auto report 19-21 

using a CONSOLE device 19-1 

using a WORKSTN file 13-32, 19-33 
SAVDS continuation line option 13-15 
screen design aid 13-9 
screen format generator (see $SFGR utility) 
SDA (see screen design aid) 
search word for LOKUP operation 10-30 
secondary files 3-4 

(see also multifile processing) 



sequence 

assigning, numbers 7-2 

for record types 7-2 
sequence checking 

alternate collating sequence 2-4 

file description specifications 
entry 3-6 

for fields in a record 7-39 

for records 3-6 

match field values 7-36 
sequence, collating 2-6 
sequential by key processing 3-9 
sequential file 

addition of records 3-52 

description 3-21 

processing methods 3-59 
sequential within limits processing 3-10 
SET operation code 

bytes of generated code 16-10 

description 10-54 

specifying command keys 8-25 

with KEY 10-60 
SETLL (set lower limits) operation code 

bytes of generated code 16-10 

description 10-60 
SETOF (set off) operation code 8-25, 10-62 
SETON (set on) operation code 8-25, 10-62 
setting and restoring external indicators 
(see SUBR20) 
setting indicators 10-5 
shared file considerations 3-17 
shared input/output area 2-14 
short tables or arrays 14-1 
SHTDN (shutdown) operation code 

bytes of generated code 16-11 

description 10-62 
shutdown operation code 10-62 
sign 

binary format 7-29 

numeric 9-13 

packed decimal format 7-27 

zoned decimal format 7-26 
single requestor terminal (SRT) program 

changing to an MRT 13-1 

description 13-2 
size to compile 2-2 
size to execute 2-2 
size, region 2-2 
skip after 9-6 
skip before 9-6 
skipping 

for printer or CRT file 9-6 

with auto report 15-30 
SLN continuation line option 13-16 
SORTA 

bytes of generated code 16-10 

description 10-63 
sorting keys 3-17 
source member reference (auto 
report) 15-7 
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source program 

compiling 1-1, 18-1 

entering on disk 1-1 
space after 9-6 
space before 9-6 
spacing 

for printer or CRT file 9-6 

special character, definition of G-10 

with auto report 15-30 
special device support (see SPECIAL file) 
SPECIAL file 

block length 3-7 

continuation line option 3-46 

description 3-33 

file description specifications 3-36 

linkage for assembler input/output 
subroutine 3-34 

record length 3-7 

system input subroutine (SUBR01) 3-45 
special open/close 16-2 

special words (see *PLACE, PAGE, PAGE1 -PAGE7, 
UDATE, UDAY, UMONTH, UYEAR) 
specifications 

calculation 8-1 

common entries 1-12 

control 2-1 

extension 4-1 

file description 3-1 

summary charts 3-58 

input 7-1 

line counter 5-1 

order of 1-3 

output 9-1 

overview 1 -4 

summary A-1 
split control field 7-36 
SQRT (square root) operation code 10-64 
SR (see subroutine lines) 
SRT program (see single requestor terminal 
program) 

SRyzzz (for SPECIAL device) 3-36, 3-46 
SSP-ICF (see Interactive Communications 
Feature) 

storage index 3-49 
storage map 16-1 
storage saving techniques 

general 16-4 

overlay process 16-1 
storage size to compile 2-2 
storage size to execute 2-2 
SUB (subtract) operation code 

bytes of generated code 16-9 

description 10-64 
subfields 

data structure 7-21 

overlapping 8-12 
subroutine operation codes 

BEGSR (begin subroutine) 10-7 

ENDSR (end subroutine) 10-16 

EXSR (execute subroutine) 10-19 



subroutines 

(see also EXIT operation code, RLABL 
operation code) 

(see also subroutine operation codes) 
A$$SUM (auto report) 15-34 
assembler language 3-34 
calculation specifications entry 
(SR) 8-2 

coding for RPG II 10-19 
KEY and SET operations 10-58 
linkage for user-written 
input/output 3-34 

generated DTF 3-35 
linkage to external 10-18 
SUBRxx 

for external subroutine 10-18 
for SPECIAL file 3-36 
SUBR01 (system input subroutine tor SPECIAL 
device) 3-45 

SUBR08 (1255 MICR subroutine) 3-45 
SUBR20 (setting and restoring external 
indicators) 13-32 

SUBR21 (inputting and outputting the 
display station local data area) 13-34 
SUBR22 (reading a work station utility 
transaction file) 3-37 
SUBR23 (message retrieve 
subroutine) 10-53 

SUBR25 (1255 MICR subroutine) 3-45 
SUBR95 (inline inquiry subroutine) 2-10 
summary tables 
edit codes 9-23 
extension 4-10 
file description 3-58 
indicators A-29 
operation codes A-26 
specifications A-1 
valid indicators A-28 
suppressing asterisks indication (auto 
report total line) 15-7 
suppressing date and page (auto 
report) 15-7 
suppression of zero 9-21 
synonyms, definition of 3-21 
sysin (see SUBR01) 
system input subroutine (see SUBR01) 



T-*AUTO (see *AUTO output specifications) 
table 

(see also array, LOKUP operation code) 

*AUTO output field name 15-14, 15-21 
restriction with A in column 39 15-17 

*AUTO page headings 15-11 

addition of records 14-9 

alternating 14-3 



X-20 



table (continued) 

auto report specifications 

format of compile-time tables 15-1 

order in generated program 15-1 
binary format 4-6 
building (see loading) 
compile-time 

definition of 14-1 

rules for loading 14-4 
creating input records 14-3 
decimal positions 4-6 
defining 14-3 
definition of terms 14-1 
element 14-1 
entries 

length of 4-6 

number of 4-5 

number per record 4-3 
examples of using 14-12 
extension specifications 4-1 

summary chart 4-10 
file description 3-5 
file description entry 3-4 
filename (when required on file 
description specifications) 3-2 
full table 14-1 
length of entry 4-6 
loading 

compile-time 14-4 

placement in source program 14-4 

preexecution-time 14-4 
LOKUP operation 10-30 
maximum allowed per program 4-1 
modifying contents 14-9 
name 

as field name in *AUTO 
output 15-11, 15-14, 15-17 

as field name in *AUTO page 
headings 15-21 

as result field 8-20 

extension specifications 4-2 

file description specifications 3-2 

how to form . 4-3 
number of entries per record 4-3 
number of entries per table 4-5 
order in source program 14-4 
output 14-10 
packed format 4-6 
preexecution-time 14-1, 14-4 
referenced in RLABL operation 10-48 
related 14-1 

rules for creating records 14-3 
searching 14-7 

sequence of specifications 14-3 
short 4-6 
TAG operation code 10-64 
telecommunications specifications 
description 6-1 
identification of station 6-3 



telecommunications specifications (continued) 

placement in source program 1-3 

transparency 6-3 

type 

of code 6-2 
of control 6-2 
of station 6-2 
test bit operation code 10-67 
test zone operation code 10-69 
TESTB (test bit) operation code 

bytes of generated code 16-9 

description 10-67 
testing fields (see field indicators) 
testing result field 8-23 
TESTZ (test zone) operation code 

bytes of generated code 16-9 

description 10-69 
TIME operation code 

bytes of generated code 16-10 

description 10-69 
TNAME field 

for SUBR20 13-31 

for SUBR21 13-31 
to filename 4-2 
total fields, auto report 

asterisk indication 15-18 

description 15-16 

resetting to zero 15-18 
total operations 1-6 
total output records 9-2 
total rolling, auto report 15-15 
total time 1 -6 

translation table and alternate collating 
sequence coding sheet 2-4 
translation, file (see file translation) 
transparent literal 2-15 



UDATE 

date format 2-3 

description 9-21 

example of editing 9-25 
UDAY 9-21 
UMONTH 9-21 

unordered load (indexed file) 3-56 
update file 

(see also updating files) 

description 3-2 

translation 2-11 
updating files 

CAUTION 3-3 

restriction 3-3 
user message member 10-58 
UYEAR 9-21 
U1-U8 (see external indicators) 
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valid indicators A-28 
wait time for BSCA file 



6-5 



WORKSTN file (continued) 
SAVDS option 13-15 
saving fields or indicators 
SLN option 13-16 
Z edit code 13-21 



13-49 



work station utility transaction file, 
reading and updating a (SUBR22) 3-37 
WORKSTN file 

$SFGR and RPG II input buffers 13-19 

$SFGR and RPG II output buffers 13-22 

ACQ operation code 10-7, 13-17 

as a primary file 3-4 

command key indicators 1-12, 8-6, 13-14 

command keys, enabling/disabling 13-32 

continuation line options 3-47, 13-15 

creating display screen formats 13-9 

data returned to the program 13-6 

debugging hints 13-50 

definition 

of input field 13-11 
of output field 13-11 
of output/input field 13-11 
description 3-33 
duplicate character value, 

processing 13-31 
end of file 13-8 
exception /error processing subroutine 

(see INFSR subroutine) 
file information data structure (see 
INFDS) 
FMTS option 13-16 
format name on output 

specifications 9-28 
function control keys, 

enabling/disabling 13-32 
ID option 13-16 
IND option 13-15 
INFDS data structure 13-25 
INFDS option 13-16 
INFSR option 13-16 
INFSR subroutine 13-29 
input processing 13-5 
input record, first 13-17 
NEXT operation code 10-46, 13-19 
number of formats 2-14, 13-14 
override operation 13-30 
program attributes 13-1 
program logic 13-5, 13-7 
READ operation 10-47 
record length 13-14 
REL (release) operation 10-47, 13-19 
releasing display station at output 

time 9-5 
restrictions 13-11 
return codes C-1 



XFOOT (summing elements of an array) 
operation code 

bytes of generated code 16-10 
description 10-69 



Y edit code 

control specifications entries (columns 
19-21) 2-3 
specification 9-21 
with date option entry 2-3 



Z (zone) 7-22 

Z-ADD (zero and add) operation code 

bytes of generated code 16-9 

description 10-69 
Z edit code (with WORKSTN file) 13-21 
Z-SUB (zero and subtract) operation code 

bytes of generated code 16-9 

description 10-69 
zero (blanking) fields 

blank after 

auto report 15-11 

output specifications 9-22 

subtract operation 10-64 
zero suppression 9-21 
zone 

(see also move zone operations) 

character grouping 7-23 
zoned decimal format 7-26 

length in bytes 7-29 



01-99 indicators (see conditioning 
indicators, field indicator, field 
record relation, record identifying 
indicators, resulting indicators) 
1 -9 or R in column 39 (auto report) 
1P (first page) forms position 2-11 



15-20 



X-22 



1P (first page) indicator 
as output indicator 9-2 
general description 1-11 
restrictions 1-11 
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